edv/SDL
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

neu

Browse Source
This commit is contained in:
Andreas Luxbauer
2021-06-24 23:05:48 +02:00
parent e625acc609
commit f2f992547d
134 changed files with 72921 additions and 2011 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
VERAG_PROG_ALLGEMEIN/AVISO/cDatenbankAVISO.vb
View File

@@ -950,6 +950,10 @@ Public Class cAviso
Return AVISODAL.LesenAviso(hID, hSQL)
End Function
Shared Function getFirmaByAvisoId(AvisoId) As String
Dim SQL As New SQL
Return SQL.getValueTxtBySql("SELECT TOP 1 Firma FROM AVISO WHERE AvisoId=" & AvisoId, "AVISO")
End Function
Shared Function getAVISO_List(Optional Standort = "SUB") As DataTable 'Optional FIRMA = "VERAG") As DataTable
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
@@ -1820,6 +1824,8 @@ Public Class cVermerk
Property VermerkCodeId As Integer
Property VorauskasseId As Object = Nothing
Property Beschreibung As String = ""
Property SMSId As Integer
Property SMSStatus As Integer
End Class
@@ -1851,6 +1857,8 @@ Public Class cVermerkeDAL
daten.SendungID = VarToInt(dr.Item("SendungID"))
daten.VermerkArt = VarToStr(dr.Item("VermerkArt"))
daten.VorauskasseId = VarToStr(dr.Item("VorauskasseId"))
daten.SMSId = VarToInt(dr.Item("SMSId"))
daten.SMSStatus = VarToInt(dr.Item("SMSstatus"))
End If
dr.Close()
End Using
@@ -2000,11 +2008,11 @@ Public Class cVermerkeDAL
If d.VermerkID = 0 Then
'Neuanlage
hAuswahl = "INSERT INTO Vermerke " &
"(AvisoID,VermerkArt,SendungID, Datum, Mitarbeiter, Hinweis_Vermerk, VermerkeCode,MitarbeiterId,Beschreibung,VorauskasseId) VALUES (@AvisoID,@VermerkArt, @SendungID, @Datum, @Mitarbeiter, @Hinweis_Vermerk, @VermerkeCode,@MitarbeiterId,@Beschreibung,@VorauskasseId)"
"(AvisoID,VermerkArt,SendungID, Datum, Mitarbeiter, Hinweis_Vermerk, VermerkeCode,MitarbeiterId,Beschreibung,VorauskasseId,SMSId,SMSStatus) VALUES (@AvisoID,@VermerkArt, @SendungID, @Datum, @Mitarbeiter, @Hinweis_Vermerk, @VermerkeCode,@MitarbeiterId,@Beschreibung,@VorauskasseId,@SMSId,@SMSStatus)"
Else
'Änderung
hAuswahl = String.Format(
"UPDATE Vermerke SET AvisoID = @AvisoID, VermerkArt=@VermerkArt,SendungID=@SendungID,Datum = @Datum, Mitarbeiter = @Mitarbeiter, Hinweis_Vermerk = @Hinweis_Vermerk, VermerkeCode = @VermerkeCode, MitarbeiterId=@MitarbeiterId, Beschreibung=@Beschreibung,VorauskasseId=@VorauskasseId WHERE VermerkID = @VermerkID")
"UPDATE Vermerke SET AvisoID = @AvisoID, VermerkArt=@VermerkArt,SendungID=@SendungID,Datum = @Datum, Mitarbeiter = @Mitarbeiter, Hinweis_Vermerk = @Hinweis_Vermerk, VermerkeCode = @VermerkeCode, MitarbeiterId=@MitarbeiterId, Beschreibung=@Beschreibung,VorauskasseId=@VorauskasseId WHERE VermerkID = @VermerkID,SMSId=@SMSId,SMSStatus=@SMSStatus")
End If
Dim sql = hAuswahl
Dim conn As SqlConnection = cDatenbankAVISO.GetNewOpenConnection()
@@ -2020,6 +2028,8 @@ Public Class cVermerkeDAL
cmd.Parameters.AddWithValue("@VermerkArt", d.VermerkArt)
cmd.Parameters.AddWithValue("@SendungID", If(d.SendungID > 0, d.SendungID, DBNull.Value))
cmd.Parameters.AddWithValue("@VorauskasseId", If(d.VorauskasseId IsNot Nothing, d.VorauskasseId, DBNull.Value))
cmd.Parameters.AddWithValue("@SMSId", d.SMSId)
cmd.Parameters.AddWithValue("@SMSStatus", d.SMSStatus)
Try
cmd.ExecuteNonQuery()

30
VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/KdSearchBox.vb
View File

@@ -70,7 +70,7 @@ Public Class KdSearchBox
Me.SelectAll()
Me.Select()
Catch ex As Exception
MsgBox("Es ist ein Fehler beim Kunden-Such-Feld aufgetreten 01: " & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & System.Reflection.MethodInfo.GetCurrentMethod.Name & vbNewLine & ex.StackTrace)
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,, "Es ist ein Fehler beim Kunden-Such-Feld aufgetreten!",,,, "ERR_KDS_01")
End Try
End Sub
@@ -150,7 +150,7 @@ Public Class KdSearchBox
doKeyDown(Now)
Catch ex As Exception
MsgBox("Es ist ein Fehler beim Kunden-Such-Feld aufgetreten 02: " & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & System.Reflection.MethodInfo.GetCurrentMethod.Name & vbNewLine & ex.StackTrace)
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,, "Es ist ein Fehler beim Kunden-Such-Feld aufgetreten!",,,, "ERR_KDS_02")
End Try
End Sub
@@ -368,7 +368,7 @@ Public Class KdSearchBox
End With
Catch ex As Exception
MsgBox("Es ist ein Fehler beim Kunden-Such-Feld aufgetreten 03: " & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & System.Reflection.MethodInfo.GetCurrentMethod.Name & vbNewLine & ex.StackTrace)
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,, "Es ist ein Fehler beim Kunden-Such-Feld aufgetreten!",,,, "ERR_KDS_03")
End Try
End Sub
@@ -447,7 +447,7 @@ Public Class KdSearchBox
End With
Catch ex As Exception
MsgBox("Es ist ein Fehler beim Kunden-Such-Feld aufgetreten 04: " & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & System.Reflection.MethodInfo.GetCurrentMethod.Name & vbNewLine & ex.StackTrace)
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,, "Es ist ein Fehler beim Kunden-Such-Feld aufgetreten!",,,, "ERR_KDS_04")
End Try
End Sub
@@ -526,7 +526,7 @@ Public Class KdSearchBox
End If
Catch ex As Exception
MsgBox("Es ist ein Fehler beim Such-Feld (" & Me.Name & ") aufgetreten 03,1: " & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & System.Reflection.MethodInfo.GetCurrentMethod.Name & vbNewLine & ex.StackTrace)
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,, "Es ist ein Fehler beim Kunden-Such-Feld aufgetreten!",,,, "ERR_KDS_03_1")
End Try
End Sub
Public Sub prevLKW(dgv As DataGridView) '(sender As Object, e As EventArgs)
@@ -545,7 +545,7 @@ Public Class KdSearchBox
End If
End If
Catch ex As Exception
MsgBox("Es ist ein Fehler beim Such-Feld (" & Me.Name & ") aufgetreten 03,2: " & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & System.Reflection.MethodInfo.GetCurrentMethod.Name & vbNewLine & ex.StackTrace)
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,, "Es ist ein Fehler beim Kunden-Such-Feld aufgetreten!",,,, "ERR_KDS_06")
End Try
End Sub
@@ -570,7 +570,7 @@ Public Class KdSearchBox
End With
End If
Catch ex As Exception
MsgBox("Es ist ein Fehler beim Kunden-Such-Feld aufgetreten 07: " & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & System.Reflection.MethodInfo.GetCurrentMethod.Name & vbNewLine & ex.StackTrace)
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,, "Es ist ein Fehler beim Kunden-Such-Feld aufgetreten!",,,, "ERR_KDS_07")
End Try
End Sub
@@ -589,7 +589,7 @@ Public Class KdSearchBox
End With
End If
Catch ex As Exception
MsgBox("Es ist ein Fehler beim Kunden-Such-Feld aufgetreten 08: " & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & System.Reflection.MethodInfo.GetCurrentMethod.Name & vbNewLine & ex.StackTrace)
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,, "Es ist ein Fehler beim Kunden-Such-Feld aufgetreten!",,,, "ERR_KDS_08")
End Try
End Sub
Private Sub TextBox1_PreviewKeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.PreviewKeyDownEventArgs) Handles Me.PreviewKeyDown
@@ -601,7 +601,7 @@ Public Class KdSearchBox
End If
End If
Catch ex As Exception
MsgBox("Es ist ein Fehler beim Kunden-Such-Feld aufgetreten 09: " & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & System.Reflection.MethodInfo.GetCurrentMethod.Name & vbNewLine & ex.StackTrace)
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,, "Es ist ein Fehler beim Kunden-Such-Feld aufgetreten!",,,, "ERR_KDS_09")
End Try
End Sub
Private Sub dgvFindKD_Click(sender As Object, e As KeyEventArgs) Handles Me.KeyDown, usrcntl.DGV_KeyDown
@@ -634,7 +634,7 @@ Public Class KdSearchBox
End With
End If
Catch ex As Exception
MsgBox("Es ist ein Fehler beim Kunden-Such-Feld aufgetreten 10: " & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & System.Reflection.MethodInfo.GetCurrentMethod.Name & vbNewLine & ex.StackTrace)
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,, "Es ist ein Fehler beim Kunden-Such-Feld aufgetreten!",,,, "ERR_KDS_10")
End Try
End Sub
@@ -661,7 +661,7 @@ Public Class KdSearchBox
End With
End If
Catch ex As Exception
MsgBox("Es ist ein Fehler beim Kunden-Such-Feld aufgetreten 11: " & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & System.Reflection.MethodInfo.GetCurrentMethod.Name & vbNewLine & ex.StackTrace)
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,, "Es ist ein Fehler beim Kunden-Such-Feld aufgetreten!",,,, "ERR_KDS_11")
End Try
End Sub
@@ -737,7 +737,7 @@ Public Class KdSearchBox
If Me.Text.Length > Me.MaxLength Then Me.Text = Me.Text.Substring(0, Me.MaxLength)
Eingabe_verarbeitet = True
Catch ex As Exception
MsgBox("Es ist ein Fehler beim Kunden-Such-Feld aufgetreten 12: " & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & System.Reflection.MethodInfo.GetCurrentMethod.Name & vbNewLine & ex.StackTrace)
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,, "Es ist ein Fehler beim Kunden-Such-Feld aufgetreten!",,,, "ERR_KDS_12")
End Try
End Sub
@@ -754,7 +754,7 @@ Public Class KdSearchBox
KdNr_value = IIf(IsNumeric(v), v, -1)
OnPropertyChanged("KdNr")
Catch ex As Exception
MsgBox("Es ist ein Fehler beim Kunden-Such-Feld aufgetreten 14: " & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & System.Reflection.MethodInfo.GetCurrentMethod.Name & vbNewLine & ex.StackTrace)
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,, "Es ist ein Fehler beim Kunden-Such-Feld aufgetreten!",,,, "ERR_KDS_14")
End Try
End Set
End Property
@@ -805,7 +805,7 @@ Public Class KdSearchBox
tmr_Search.Interval = 200
tmr_Search.Enabled = True
Catch ex As Exception
MsgBox("Es ist ein Fehler beim Kunden-Such-Feld aufgetreten 13: " & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & System.Reflection.MethodInfo.GetCurrentMethod.Name & vbNewLine & ex.StackTrace)
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,, "Es ist ein Fehler beim Kunden-Such-Feld aufgetreten!",,,, "ERR_KDS_13")
End Try
End Sub
@@ -836,7 +836,7 @@ Public Class KdSearchBox
End If
End If
Catch ex As Exception
MsgBox("KdSearchBox_LostFocus: " & ex.Message)
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,, "Es ist ein Fehler beim Kunden-Such-Feld aufgetreten!",,,, "ERR_KDS_LF")
End Try
End Sub

8
VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/MyComboBox.vb
View File

@@ -10,17 +10,17 @@ Public Class MyComboBox
Public Sub New()
End Sub
Sub fillWithMyListItem(l As List(Of MyListItem), Optional firstEmpty As Boolean = False, Optional clearList As Boolean = True)
Sub fillWithMyListItem(l As List(Of MyListItem), Optional firstEmpty As Boolean = False, Optional clearList As Boolean = True, Optional firstEmptyName As String = "")
If clearList Then MyBase.Items.Clear()
If firstEmpty Then
Me.Items.Insert(0, New MyListItem("", ""))
Me.Items.Insert(0, New MyListItem(firstEmptyName, ""))
End If
If l IsNot Nothing Then
For Each i In l : MyBase.Items.Add(i) : Next
End If
End Sub
Sub fillWithSQL(sqlstr As String, Optional showValueInText As Boolean = True, Optional conn As String = "SDL", Optional firstEmpty As Boolean = False, Optional clearList As Boolean = True)
fillWithMyListItem((New SQL).loadCboBySqlWithListItem(sqlstr, showValueInText, conn), firstEmpty, clearList)
Sub fillWithSQL(sqlstr As String, Optional showValueInText As Boolean = True, Optional conn As String = "SDL", Optional firstEmpty As Boolean = False, Optional clearList As Boolean = True, Optional firstEmptyName As String = "")
fillWithMyListItem((New SQL).loadCboBySqlWithListItem(sqlstr, showValueInText, conn), firstEmpty, clearList, firstEmptyName)
_TRANSLATE()
End Sub

9
VERAG_PROG_ALLGEMEIN/Classes/SQL.vb
View File

@@ -927,6 +927,15 @@ Public Class SQL
End Try
Return 0
End Function
Public Shared Function checkNullDateReturnValue(ByVal o As Object, ByVal returnValue As Object) As Object
If o IsNot Nothing And o IsNot DBNull.Value Then
If o.ToString <> "" AndAlso IsDate(o) Then
Return CDate(o)
End If
End If
Return returnValue
End Function
Public Shared Function checkNullDate(ByVal o As Object) As Date
If o IsNot Nothing And o IsNot DBNull.Value Then Return CDate(o)
Return Now

11
VERAG_PROG_ALLGEMEIN/Classes/USTV/cUSTVAntrag.vb
View File

@@ -236,6 +236,17 @@ Public Class cUSTVAntrag
End Function
Public Function getMaxPosNr() As Integer
Try
Dim maxPosNr = -1
Return SQL.getValueTxtBySql("SELECT isnull(max([UStVPo_ID]),0)+1 FROM [tblUStVPositionen] where UStVAn_ID='" & UStVAn_ID & "'", "FMZOLL",,, "1")
Catch ex As Exception
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
End Try
Return -1
End Function
End Class

168
VERAG_PROG_ALLGEMEIN/Classes/cERS.vb Normal file
View File

@@ -0,0 +1,168 @@

Imports System.Data.SqlClient
Imports System.Reflection
Public Class cERS
Property ers_id As Integer
Property ers_progId As Integer
Property ers_progName As Object = Nothing
Property ers_progVersion As Object = Nothing
Property ers_datetime As DateTime = Now
Property ers_Testsystem As Boolean
Property ers_Type As Object = Nothing
Property ers_EMail As Object = Nothing
Property ers_maId As Integer = -1
Property ers_userName As Object = Nothing
Property ers_Firma As Object = Nothing
Property ers_errCode As Object = Nothing
Property ers_errStack As Object = Nothing
Property ers_errMessage As Object = Nothing
Property ers_errMethodName As Object = Nothing
Property ers_infotext As Object = Nothing
Public hasEntry = False
Dim SQL As New SQL
Sub New()
End Sub
Sub New(ers_id)
Me.ers_id = ers_id
LOAD()
End Sub
Shared Function saveErr(ers_Type, ers_errMessage, ers_errStack, ers_errCode, ers_errMethodName, Optional ers_EMail = Nothing, Optional ers_infotext = Nothing) As Boolean
Try
Dim ERS As New cERS
ERS.ers_progId = VERAG_PROG_ALLGEMEIN.cAllgemein.PROGID
ERS.ers_userName = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
ERS.ers_maId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID
ERS.ers_Testsystem = VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM
ERS.ers_progName = VERAG_PROG_ALLGEMEIN.cAllgemein.PROGNAME
ERS.ers_progVersion = VERAG_PROG_ALLGEMEIN.cAllgemein.PROGVERSION
ERS.ers_Type = ers_Type
ERS.ers_EMail = ers_EMail
ERS.ers_Firma = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
ERS.ers_errMessage = ers_errMessage
ERS.ers_errStack = ers_errStack
ERS.ers_errCode = ers_errCode
ERS.ers_errMethodName = ers_errMethodName
ERS.ers_infotext = ers_infotext
Return ERS.SAVE()
Catch ex As Exception
'was soll hier noch helfen??
End Try
End Function
Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ers_id", ers_id,, True))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ers_progId", ers_progId))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ers_progVersion", ers_progVersion))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ers_progName", ers_progName))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ers_datetime", ers_datetime))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ers_Testsystem", ers_Testsystem))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ers_Type", ers_Type))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ers_EMail", ers_EMail))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ers_maId", ers_maId))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ers_userName", ers_userName))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ers_Firma", ers_Firma))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ers_errCode", ers_errCode))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ers_errStack", ers_errStack))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ers_errMessage", ers_errMessage))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ers_errMethodName", ers_errMethodName))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ers_infotext", ers_infotext))
Return list
End Function
Public Function SAVE() As Boolean
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblERS WHERE ers_id=@ers_id) " &
" BEGIN " & getUpdateCmd() & " END " &
" Else " &
" BEGIN " & getInsertCmd() & " END " &
" commit tran "
Return SQL.doSQLVarList(sqlstr, "ADMIN", False, list)
End Function
Public Sub LOAD()
Try
hasEntry = False
Using conn As SqlConnection = SQL.GetNewOpenConnectionADMIN()
Using cmd As New SqlCommand("SELECT * FROM tblERS WHERE ers_id=@ers_id ", conn)
cmd.Parameters.AddWithValue("@ers_id", ers_id)
Dim dr = cmd.ExecuteReader()
If dr.Read Then
For Each l In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
If dr.Item(l.Text) Is DBNull.Value Then
propInfo.SetValue(Me, Nothing)
Else
propInfo.SetValue(Me, dr.Item(l.Text))
End If
Next
hasEntry = True
End If
dr.Close()
End Using
End Using
Catch ex As Exception
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
End Try
End Sub
Public Function getUpdateCmd() As String
Try
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
Dim str As String = ""
For Each i In list
If Not i.isPrimaryParam Then
str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
End If
Next
str = str.Substring(0, str.Length - 1) 'wg. ','
Return (" UPDATE [tblERS] SET " & str & " WHERE ers_id=@ers_id ")
Catch ex As Exception
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
End Try
Return ""
End Function
Public Function getInsertCmd() As String
Try
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
Dim str As String = ""
Dim values As String = ""
For Each i In list
If Not i.isPrimaryParam Then
str &= "[" & i.Text & "],"
values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
End If
Next
str = str.Substring(0, str.Length - 1) 'wg. ','
values = values.Substring(0, values.Length - 1) 'wg. ','
Return (" INSERT INTO tblERS (" & str & ") VALUES(" & values & ") ")
Catch ex As Exception
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
End Try
Return ""
End Function
End Class

1
VERAG_PROG_ALLGEMEIN/Classes/cEmailBenachrichtigung.vb
View File

@@ -179,6 +179,7 @@ Public Class cEmailBenachrichtigung
Case "ATILLA" : Return "noreply@verag.ag"
Case "UNISPED" : Return "No-Reply@unisped.at"
Case "FRONTOFFICE" : Return "noreply@front-office.eu"
Case "AMBAR" : Return "import@ambarlog.com"
Case Else : Return "noreply@verag.ag"
End Select
End Function

3
VERAG_PROG_ALLGEMEIN/Classes/cGestellungsgarantien.vb
View File

@@ -38,6 +38,9 @@ Public Class cGestellungsgarantien
Public Shared Function ENTRY_Exists(KundenNr As Integer, Zollamt As String) As Boolean
Return (CInt((New SQL).getValueTxtBySql("SELECT count(*) FROM tblGestellungsgarantien WHERE gg_KundenNr=" & KundenNr & " AND gg_Zollamt='" & Zollamt & "'", "FMZOLL")) > 0)
End Function
Public Shared Function ENTRY_Exists(KundenNr As Integer, Zollamt As String, gg_erhalten_Datum As Date) As Boolean
Return (CInt((New SQL).getValueTxtBySql("SELECT count(*) FROM tblGestellungsgarantien WHERE gg_KundenNr=" & KundenNr & " AND gg_Zollamt='" & Zollamt & "' AND gg_erhalten_Datum='" & gg_erhalten_Datum.ToShortDateString & "'", "FMZOLL")) > 0)
End Function
Public Function SAVE() As Boolean
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()

6
VERAG_PROG_ALLGEMEIN/Classes/cKundenErweitert.vb
View File

@@ -62,6 +62,9 @@ Public Class cKundenErweitert
Property kde_KundeFremdspedition As Boolean = False
Property kde_verzolltBei As Object = Nothing
Property kde_API_Tradeshift As Boolean = False
Property kde_FakturierungSR_Details As Boolean = False
Property kde_Fakturierung_Sprache As Object = Nothing
Property kde_TOBB_KundenNr As Object = Nothing
Dim SQL As New SQL
@@ -124,6 +127,9 @@ Public Class cKundenErweitert
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_KundeFremdspedition", kde_KundeFremdspedition))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_verzolltBei", kde_verzolltBei))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_API_Tradeshift", kde_API_Tradeshift))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_FakturierungSR_Details", kde_FakturierungSR_Details))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_Fakturierung_Sprache", kde_Fakturierung_Sprache))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_TOBB_KundenNr", kde_TOBB_KundenNr))
Return list
End Function

16
VERAG_PROG_ALLGEMEIN/Classes/cKundenVermerk.vb
View File

@@ -75,7 +75,7 @@ Public Class cKundenVermerke
End Using
End Using
Catch ex As Exception
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
End Sub
@@ -90,7 +90,7 @@ Public Class cKundenVermerke
KDV.kvm_sbId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID
Return KDV.SAVE()
Catch ex As Exception
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
Return False
End Function
@@ -109,7 +109,7 @@ Public Class cKundenVermerke
Return True
End If
Catch ex As Exception
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
Return False
End Function
@@ -120,7 +120,7 @@ Public Class cKundenVermerke
Dim KDV As New cKundenVermerkItem(id)
Return KDV.DELETE()
Catch ex As Exception
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
Return False
End Function
@@ -135,7 +135,7 @@ Public Class cKundenVermerke
End If
Next
Catch ex As Exception
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
Return False
End Function
@@ -231,7 +231,7 @@ Public Class cKundenVermerkItem
End Using
End Using
Catch ex As Exception
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
End Sub
@@ -251,7 +251,7 @@ Public Class cKundenVermerkItem
Return (" UPDATE [tblKundenVermerke] SET " & str & " WHERE kvm_id=@kvm_id ")
Catch ex As Exception
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
Return ""
End Function
@@ -272,7 +272,7 @@ Public Class cKundenVermerkItem
values = values.Substring(0, values.Length - 1) 'wg. ','
Return (" INSERT INTO tblKundenVermerke (" & str & ") VALUES(" & values & ") ")
Catch ex As Exception
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
Return ""
End Function

35
VERAG_PROG_ALLGEMEIN/Classes/cMessenger.vb
View File

@@ -70,11 +70,11 @@ Public Class cMessenger
End Sub
Sub New(chat_id As Integer, Optional topMax As String = "")
Sub New(chat_id As Integer, Optional topMax As String = "", Optional dateTmp As Object = Nothing)
Me.chat_id = chat_id
Me.chat_erstelltMaId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID
Me.chat_erstelltAm = Now
LOAD(topMax)
LOAD(topMax, dateTmp)
End Sub
Public Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
@@ -108,8 +108,8 @@ Public Class cMessenger
Return chat_id > 0
End Function
Public Sub LOAD(Optional topMax As String = "")
Try
Public Sub LOAD(Optional topMax As String = "", Optional dateTmp As Object = Nothing)
Try
Using conn As SqlConnection = SQL.GetNewOpenConnectionADMIN()
Using cmd As New SqlCommand("Select * FROM tblMessenger_Chat WHERE chat_id=@chat_id ", conn)
cmd.Parameters.AddWithValue("@chat_id", chat_id)
@@ -126,7 +126,12 @@ Public Class cMessenger
Next
Me.LOAD_MEMBERS()
Me.LOAD_MESSAGES(topMax)
If dateTmp Is Nothing Then
Me.LOAD_MESSAGES(topMax)
Else
Me.LOAD_MESSAGES_DATE(dateTmp)
End If
End If
dr.Close()
End Using
@@ -198,6 +203,26 @@ Public Class cMessenger
End Try
End Sub
Public Sub LOAD_MESSAGES_DATE(dateTmp As Date)
Try
Me.CHAT_MESSAGES.Clear()
Using conn As SqlConnection = SQL.GetNewOpenConnectionADMIN()
Using cmd As New SqlCommand("SELECT * FROM [tblMessenger_ChatMessages] WHERE chatMg_chatId=@chat_id AND CAST(chatMg_datetime as date)>=@dateTmp order by chatMg_datetime asc", conn)
cmd.Parameters.AddWithValue("@chat_id", chat_id)
cmd.Parameters.AddWithValue("@dateTmp", dateTmp)
Dim dr = cmd.ExecuteReader()
While dr.Read
Dim MSG As New cMessenger_ChatMessages(dr.Item("chatMg_id")) 'Me.chat_id, dr.Item("chatMb_maId")) 'yxc
Me.CHAT_MESSAGES.Add(MSG)
End While
dr.Close()
End Using
End Using
Catch ex As Exception
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
End Try
End Sub
Public Function getUpdateCmd() As String
Try
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()

20
VERAG_PROG_ALLGEMEIN/Classes/cRechnungsausgang.vb
View File

@@ -362,6 +362,7 @@ Public Class cRechnungsausgang
Public Function SAVE_POSITIONEN(RK_ID) As Boolean
If DELETE_POSITIONEN() Then ' zuerst Einträge löschen...
ORDER_POSITIONEN() ' ... dann ordnen ...
For Each p In POSITIONEN
If Not p.INSERT(RK_ID) Then Return False ' ... dann insert
Next
@@ -509,6 +510,22 @@ Public Class cRechnungsausgang
End Try
End Sub
Public Sub ORDER_POSITIONEN()
Try
' Dim POSITIONEN_Tmp As New List(Of cRechnungsausgangPositionen)
Try
POSITIONEN = POSITIONEN.OrderByDescending(Function(x) x.Preis).ToList()
Catch ex As Exception
'Preis null??
End Try
POSITIONEN = POSITIONEN.OrderBy(Function(x) x.LeistungsNr).ToList()
Catch ex As Exception
MsgBox("Fehler In der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
End Try
End Sub
End Class
@@ -614,4 +631,7 @@ Public Class cRechnungsausgangPositionen
End Try
Return ""
End Function
End Class

89
VERAG_PROG_ALLGEMEIN/Classes/cSMS.vb
View File

@@ -1,4 +1,6 @@
Imports System.Data.SqlClient
Imports com.esendex.sdk.messaging
Imports com.esendex.sdk.sent
Imports System.Data.SqlClient
Imports System.Reflection
Public Class cSMS
@@ -11,17 +13,27 @@ Public Class cSMS
Property sms_KundenNr As Object = Nothing
Property sms_Kunde As Object = Nothing
Property sms_Vorwahl As Object = Nothing
Property sms_Handynummer As Object = Nothing
Property sms_Nachricht As Object = Nothing
Property sms_BatchId As Object = Nothing
Property sms_MessageIds As Object = Nothing
Property sms_Uris As Object = Nothing
Property sms_Sachbearbeiter As String = Nothing
Property sms_SachbearbeiterId As Integer
Property sms_AvisoId As Object = Nothing
Property sms_Status As Integer = -1
Property sms_Queued As Object = Nothing
Property sms_Sent As Object = Nothing
Property sms_Delivered As Object = Nothing
Property sms_Failure As Object = Nothing
Dim ESENDEX_USER As String = "al@verag.ag"
Dim ESENDEX_PWD As String = "Developer#2"
Dim SQL As New SQL
@@ -54,9 +66,15 @@ Public Class cSMS
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sms_Nachricht", sms_Nachricht))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sms_BatchId", sms_BatchId))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sms_MessageIds", sms_MessageIds))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sms_Uris", sms_Uris))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sms_Sachbearbeiter", sms_Sachbearbeiter))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sms_SachbearbeiterId", sms_SachbearbeiterId))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sms_AvisoId", sms_AvisoId))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sms_Status", sms_Status))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sms_Queued", sms_Queued))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sms_Sent", sms_Sent))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sms_Delivered", sms_Delivered))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sms_Failure", sms_Failure))
Return list
@@ -68,7 +86,7 @@ Public Class cSMS
Public Function SAVE() As Boolean
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblSMS WITH(updlock,serializable) WHERE sms_id=@sms_id) " &
" BEGIN " & getUpdateCmd() & " END " &
" Else " &
@@ -154,6 +172,71 @@ Public Class cSMS
Return SQL.doSQL(sqlstr, "FMZOLL")
End Function
Function sendSMS() As Boolean
Try
Dim messagingService As New MessagingService(ESENDEX_USER, ESENDEX_PWD)
'SENDEN DER SMS
Dim result = messagingService.SendMessage(New SmsMessage(Me.sms_Handynummer, Me.sms_Nachricht, Me.sms_Account))
Dim Uris As String = ""
Dim msgIDs As String = ""
Try
Me.sms_BatchId = result.BatchId
If result.MessageIds IsNot Nothing Then
For Each m In result.MessageIds
Uris &= m.Uri & ";;"
msgIDs &= m.Id.ToString & ";;"
Next
End If
Catch ex As Exception
End Try
While Uris.EndsWith(";;")
Uris = Uris.Substring(0, Uris.Length - 2)
End While
While msgIDs.EndsWith(";;")
msgIDs = msgIDs.Substring(0, msgIDs.Length - 2)
End While
Me.sms_MessageIds = msgIDs
Me.sms_Uris = Uris
If Not Me.SAVE() Then
MsgBox("Fehler: SMS Daten wurden nicht gespeichert!")
End If
Return True
Catch ex As Exception
MsgBox("Fehler beim Senden der SMS!" & vbNewLine & ex.Message & ex.StackTrace)
Return False
End Try
End Function
Function checkSMSStatus() As String
Try
If Me.sms_Status >= 3 Then Return Me.sms_Status ' Bereits finaler Status, keine Abfrage nötig
If If(Me.sms_MessageIds, "") = "" Then MsgBox("Keine MessageId gefunden!") : Return False ' Keine MsgId
Dim sendService As New SentService(ESENDEX_USER, ESENDEX_PWD)
'Send a message and retrieve the message ID
Dim MSG = sendService.GetMessage(New Guid(Me.sms_MessageIds.ToString))
Dim messageStatus = MSG.Status
MsgBox(MSG.Status)
'Status in DB Ubdaten
Me.sms_Status = messageStatus
Me.sms_Sent = MSG.SentAt
Me.sms_Delivered = MSG.DeliveredAt
If MSG.FailureReason IsNot Nothing Then Me.sms_Failure = MSG.FailureReason.Description
Me.SAVE()
Return messageStatus
Catch ex As Exception
MsgBox("Fehler beim Prüfen des SMS Status!" & vbNewLine & ex.Message & ex.StackTrace)
End Try
Return ""
End Function
End Class

17
VERAG_PROG_ALLGEMEIN/Classes/cSendungen.vb
View File

@@ -240,8 +240,8 @@ Public Class cSendungen
Public Function SAVE() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM [tblSendungen] WITH(updlock,serializable) WHERE tblSnd_SendungID=@tblSnd_SendungID) " &
'WITH(updlock,serializable)
Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM [tblSendungen] WHERE tblSnd_SendungID=@tblSnd_SendungID) " &
" BEGIN " & getUpdateCmd() & " END " &
" Else " &
" BEGIN " & getInsertCmd() & " END " &
@@ -254,12 +254,21 @@ Public Class cSendungen
Return False
End Function
'WITH(updlock,serializable)
Public Function DELETE() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
Dim sqlstr = " DELETE FROM [tblSendungen] WITH(updlock,serializable) WHERE tblSnd_SendungID=" & Me.tblSnd_SendungID
Dim sqlstr = " DELETE FROM [tblSendungen] WHERE tblSnd_SendungID=" & Me.tblSnd_SendungID
Return SQL.doSQL(sqlstr, "AVISO")
End Function
Public Shared Function LOADByFilialenNrAbfertigungsNr(FilialenNr As Integer, AbfertigungsNr As Integer) As cSendungen
Dim sql As New VERAG_PROG_ALLGEMEIN.SQL
Dim tblSnd_SendungID = sql.getValueTxtBySql("SELECT TOP 1 tblSnd_SendungID FROM tblSendungen WHERE FilialenNr='" & FilialenNr & "' AND AbfertigungsNr='" & AbfertigungsNr & "'", "AVISO")
If tblSnd_SendungID <> "" Then
Return New cSendungen(tblSnd_SendungID)
Else
Return Nothing
End If
End Function
Public Sub LOAD(tblSnd_SendungID As Integer)
Try

3
VERAG_PROG_ALLGEMEIN/Classes/cSpeditionsbuch.vb
View File

@@ -182,6 +182,7 @@ Public Class cSpeditionsbuch
Property FilialenNrAbklaerung As Object = Nothing
Property PersonalnummerAbklTR As Object = Nothing
Property UK_EIDR_ausstehend As Boolean = False
Property UNTERPOS As New List(Of cSpeditionsbuchUnterPos)
@@ -347,6 +348,7 @@ Public Class cSpeditionsbuch
Me.FilialenNrAbklaerung = SQL.checkNullReturnValue(dr.Item("FilialenNrAbklaerung"), Nothing)
Me.HandlingZuKassieren = SQL.checkNulDbl(dr.Item("HandlingZuKassieren"))
Me.PersonalnummerAbklTR = SQL.checkNullReturnValue(dr.Item("PersonalnummerAbklTR"), Nothing)
Me.UK_EIDR_ausstehend = SQL.checkNullBool(dr.Item("UK_EIDR_ausstehend"))
Me.SB_CMRNr = SQL.checkNullReturnValue(dr.Item("SB_CMRNr"), Nothing)
@@ -499,6 +501,7 @@ Public Class cSpeditionsbuch
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FilialenNrAbklaerung", FilialenNrAbklaerung))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("HandlingZuKassieren", HandlingZuKassieren))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("PersonalnummerAbklTR", PersonalnummerAbklTR))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UK_EIDR_ausstehend", UK_EIDR_ausstehend))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("SB_CMRNr", SB_CMRNr))

14
VERAG_PROG_ALLGEMEIN/Classes/cUIDPruefung.vb
View File

@@ -122,18 +122,20 @@ Public Class cUIDPruefung
Dim where = ""
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "IMEX" : where = " And FilialenNr IN (5501)"
Case "ATILLA" : where = " And FilialenNr IN (4801)"
Case Else : where = " And isnull(FilialenNr,'') Not IN (5501)"
Case "AMBAR" : where = " And Filialen.FilialenNr IN (5701)"
Case "IMEX" : where = " And Filialen.FilialenNr IN (5501)"
Case "ATILLA" : where = " And Filialen.FilialenNr IN (4801)"
Case "UNISPED" : where = " AND Filialen.firma='UNISPED' "
Case Else : where = " AND Filialen.firma='VERAG' " '" And isnull(FilialenNr,'') Not IN (5501,5701)"
End Select
Dim Top = ""
If MaxEintraege > 0 Then
Top = " TOP " & MaxEintraege
End If
dt = SQL.loadDgvBySql("SELECT " & Top & " [AdressenNr] as KdNr,[Ordnungsbegriff] as Firma,UstIdGeprüft as [letzte Prüfung],UstIdKz,UstIdnr " &
" From [Adressen] inner Join kunden On KundenNr=AdressenNr " &
" where UstIdGeprüft <= '" & datum.ToShortDateString & "' and UstIdKz is not null and UstIdNr is not null " &
dt = SQL.loadDgvBySql("SELECT " & Top & " [AdressenNr] as KdNr,[Ordnungsbegriff] as Firma,UstIdGeprüft as [letzte Prüfung],Adressen.UstIdKz,Adressen.UstIdnr " &
" From [Adressen] inner Join kunden On KundenNr=AdressenNr inner join Filialen on Filialen.FilialenNr=Kunden.FilialenNr " &
" where (UstIdGeprüft <= '" & datum.ToShortDateString & "' OR (Adressen.UstIdKz is not null and Adressen.UstIdNr is not null)) " &
" And Auswahl='A' " & where & " ORDER BY Ordnungsbegriff", "FMZOLL")
If dt IsNot Nothing Then

21
VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger.Designer.vb generated
View File

@@ -62,6 +62,7 @@ Partial Class frmMessenger
Me.Timer_REFRESH = New System.Windows.Forms.Timer(Me.components)
Me.cntxt = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.ChatDeaktivierenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.Button4 = New System.Windows.Forms.Button()
CType(Me.SplitContainer, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SplitContainer.Panel1.SuspendLayout()
Me.SplitContainer.Panel2.SuspendLayout()
@@ -399,6 +400,7 @@ Partial Class frmMessenger
'pnl
'
Me.pnl.BackColor = System.Drawing.Color.White
Me.pnl.Controls.Add(Me.Button4)
Me.pnl.Controls.Add(Me.pic)
Me.pnl.Controls.Add(Me.FlowLayoutPanel)
Me.pnl.Controls.Add(Me.Button3)
@@ -414,9 +416,9 @@ Partial Class frmMessenger
'
Me.pic.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.pic.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.pic.Location = New System.Drawing.Point(489, 94)
Me.pic.Location = New System.Drawing.Point(10, 255)
Me.pic.Name = "pic"
Me.pic.Size = New System.Drawing.Size(49, 26)
Me.pic.Size = New System.Drawing.Size(524, 20)
Me.pic.TabIndex = 7
Me.pic.TabStop = False
Me.pic.WaitOnLoad = True
@@ -437,7 +439,7 @@ Partial Class frmMessenger
Me.Button3.BackColor = System.Drawing.Color.SteelBlue
Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button3.ForeColor = System.Drawing.Color.White
Me.Button3.Location = New System.Drawing.Point(461, 47)
Me.Button3.Location = New System.Drawing.Point(461, 44)
Me.Button3.Name = "Button3"
Me.Button3.Size = New System.Drawing.Size(76, 40)
Me.Button3.TabIndex = 2
@@ -488,6 +490,18 @@ Partial Class frmMessenger
Me.ChatDeaktivierenToolStripMenuItem.Size = New System.Drawing.Size(166, 22)
Me.ChatDeaktivierenToolStripMenuItem.Text = "Chat deaktivieren"
'
'Button4
'
Me.Button4.BackColor = System.Drawing.Color.SteelBlue
Me.Button4.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button4.ForeColor = System.Drawing.Color.White
Me.Button4.Location = New System.Drawing.Point(462, 90)
Me.Button4.Name = "Button4"
Me.Button4.Size = New System.Drawing.Size(76, 25)
Me.Button4.TabIndex = 8
Me.Button4.Text = "Chat History"
Me.Button4.UseVisualStyleBackColor = False
'
'frmMessenger
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -554,4 +568,5 @@ Partial Class frmMessenger
Friend WithEvents Button5 As Button
Friend WithEvents PictureBox1 As PictureBox
Friend WithEvents MyTextBox1 As MyTextBox
Friend WithEvents Button4 As Button
End Class

15
VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger.vb
View File

@@ -7,6 +7,7 @@ Public Class frmMessenger
Dim CHAT As VERAG_PROG_ALLGEMEIN.cMessenger.cMessenger_Chat = Nothing
Dim MSG_LISTENDER As New cMessangerListender
Dim topMessages As String = "20"
Dim topMessagesDateHistory As Object = Nothing
Dim loaded = False
Public EMOJI_PATH_MAIN = DATENVERVER_OPTIONS.getRootDir & "\DOKUMENTE\CHAT_EMOJIS\"
Public EMOJI_PATH = ""
@@ -250,9 +251,10 @@ Public Class frmMessenger
Private Sub dgvChats_SelectionChanged(sender As Object, e As EventArgs) Handles dgvChats.SelectionChanged
If Not loaded Then Exit Sub
topMessagesDateHistory = Nothing ' zurücksetzen des HistoryDate
MyFlowLayoutPanel1.Controls.Clear()
If dgvChats.SelectedRows.Count > 0 Then
CHAT = New VERAG_PROG_ALLGEMEIN.cMessenger.cMessenger_Chat(dgvChats.SelectedRows(0).Cells("chat_id").Value, topMessages)
CHAT = New VERAG_PROG_ALLGEMEIN.cMessenger.cMessenger_Chat(dgvChats.SelectedRows(0).Cells("chat_id").Value, topMessages, topMessagesDateHistory)
SplitContainer1.Enabled = True
RELOAD_CHAT()
End If
@@ -849,6 +851,17 @@ Public Class frmMessenger
intiDGVChats(, False, True)
End Sub
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
Dim dateTmp = InputBox("Bitte geben Sie das Datum ein, ab dem der Chat dargestellt werden soll:",, Now.AddMonths(-1).ToShortDateString)
If IsDate(dateTmp) Then
topMessagesDateHistory = CDate(dateTmp)
CHAT = New VERAG_PROG_ALLGEMEIN.cMessenger.cMessenger_Chat(dgvChats.SelectedRows(0).Cells("chat_id").Value, 1, topMessagesDateHistory)
RELOAD_CHAT()
Else
MsgBox("Datum ungültig!")
End If
End Sub
'Private Sub rtbChatMessage_TextChanged(sender As Object, e As EventArgs) Handles rtbChatMessage.TextChanged

2
VERAG_PROG_ALLGEMEIN/My Project/Resources.Designer.vb generated
View File

@@ -22,7 +22,7 @@ Namespace My.Resources
'''<summary>
''' Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw.
'''</summary>
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "15.0.0.0"), _
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "16.0.0.0"), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
Global.Microsoft.VisualBasic.HideModuleNameAttribute()> _

2
VERAG_PROG_ALLGEMEIN/Schnittstellen/ATEZ/cATEZ_NCTS.vb
View File

@@ -146,7 +146,7 @@ Public Class GOOITEGD
Public Property PRODOCDC2 As PRODOCDC2()
Public Property PREADMREFAR2 As PREADMREFAR2
Public Property CONNR2 As CONNR2()
Public Property PACGS2 As PACGS2
Public Property PACGS2 As PACGS2()
Public Property CouOfDesGDS59 As String
Public Property CouOfDisGDS58 As String
Public Property TRACONCO2 As String

88
VERAG_PROG_ALLGEMEIN/Schnittstellen/MIC/MicCustExportBasicTypes.Designer.vb generated Normal file
View File

@@ -0,0 +1,88 @@
'' ------------------------------------------------------------------------------
'' <auto-generated>
'' Generated by Xsd2Code++. Version 5.0.0.47. www.xsd2code.com
'' <NameSpace>MIC_EXPORT_Basic</NameSpace><Collection>List</Collection><codeType>VisualBasic</codeType><EnableDataBinding>False</EnableDataBinding><GenerateCloneMethod>False</GenerateCloneMethod><GenerateDataContracts>False</GenerateDataContracts><DataMemberNameArg>OnlyIfDifferent</DataMemberNameArg><DataMemberOnXmlIgnore>False</DataMemberOnXmlIgnore><CodeBaseTag>Net45</CodeBaseTag><InitializeFields>All</InitializeFields><GenerateUnusedComplexTypes>True</GenerateUnusedComplexTypes><GenerateUnusedSimpleTypes>True</GenerateUnusedSimpleTypes><GenerateXMLAttributes>True</GenerateXMLAttributes><OrderXMLAttrib>False</OrderXMLAttrib><EnableLazyLoading>False</EnableLazyLoading><VirtualProp>False</VirtualProp><PascalCase>False</PascalCase><AutomaticProperties>False</AutomaticProperties><PropNameSpecified>None</PropNameSpecified><PrivateFieldName>StartWithUnderscore</PrivateFieldName><PrivateFieldNamePrefix></PrivateFieldNamePrefix><EnableRestriction>False</EnableRestriction><RestrictionMaxLenght>False</RestrictionMaxLenght><RestrictionRegEx>False</RestrictionRegEx><RestrictionRange>False</RestrictionRange><ValidateProperty>False</ValidateProperty><ClassNamePrefix></ClassNamePrefix><ClassLevel>Public</ClassLevel><PartialClass>True</PartialClass><ClassesInSeparateFiles>False</ClassesInSeparateFiles><ClassesInSeparateFilesDir></ClassesInSeparateFilesDir><TrackingChangesEnable>False</TrackingChangesEnable><GenTrackingClasses>False</GenTrackingClasses><HidePrivateFieldInIDE>False</HidePrivateFieldInIDE><EnableSummaryComment>False</EnableSummaryComment><EnableAppInfoSettings>False</EnableAppInfoSettings><EnableExternalSchemasCache>False</EnableExternalSchemasCache><EnableDebug>False</EnableDebug><EnableWarn>True</EnableWarn><ExcludeImportedTypes>True</ExcludeImportedTypes><ExpandNesteadAttributeGroup>True</ExpandNesteadAttributeGroup><CleanupCode>False</CleanupCode><EnableXmlSerialization>True</EnableXmlSerialization><SerializeMethodName>Serialize</SerializeMethodName><DeserializeMethodName>Deserialize</DeserializeMethodName><SaveToFileMethodName>SaveToFile</SaveToFileMethodName><LoadFromFileMethodName>LoadFromFile</LoadFromFileMethodName><EnableEncoding>False</EnableEncoding><EnableXMLIndent>True</EnableXMLIndent><IndentChar>Indent2Space</IndentChar><NewLineAttr>False</NewLineAttr><OmitXML>False</OmitXML><Encoder>UTF8</Encoder><Serializer>XmlSerializer</Serializer><sspNullable>False</sspNullable><sspString>False</sspString><sspCollection>False</sspCollection><sspComplexType>False</sspComplexType><sspSimpleType>False</sspSimpleType><sspEnumType>False</sspEnumType><XmlSerializerEvent>False</XmlSerializerEvent><BaseClassName>EntityBase</BaseClassName><UseBaseClass>False</UseBaseClass><GenBaseClass>False</GenBaseClass><CustomUsings></CustomUsings><AttributesToExlude></AttributesToExlude>
'' </auto-generated>
'' ------------------------------------------------------------------------------
Imports System
Imports System.Diagnostics
Imports System.Xml.Serialization
Imports System.Collections
Imports System.Xml.Schema
Imports System.ComponentModel
Imports System.IO
Imports System.Text
Imports System.Xml
Imports System.Collections.Generic
Namespace MIC_EXPORT_Basic
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.7.3056.0"),
System.SerializableAttribute(),
System.Xml.Serialization.XmlTypeAttribute([Namespace]:="urn:http://www.mic-cust.com/MicCustExportShipment/6.2"),
System.Xml.Serialization.XmlRootAttribute([Namespace]:="urn:http://www.mic-cust.com/MicCustExportShipment/6.2", IsNullable:=False)>
Public Enum ShipmentType
'''<remarks/>
E
'''<remarks/>
B
'''<remarks/>
I
'''<remarks/>
X
'''<remarks/>
N
End Enum
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.7.3056.0"),
System.SerializableAttribute(),
System.Xml.Serialization.XmlTypeAttribute([Namespace]:="urn:http://www.mic-cust.com/MicCustExportShipment/6.2"),
System.Xml.Serialization.XmlRootAttribute([Namespace]:="urn:http://www.mic-cust.com/MicCustExportShipment/6.2", IsNullable:=False)>
Public Enum ContainerCode
'''<remarks/>
<System.Xml.Serialization.XmlEnumAttribute("1")>
Item1
'''<remarks/>
<System.Xml.Serialization.XmlEnumAttribute("0")>
Item0
End Enum
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.7.3056.0"),
System.SerializableAttribute(),
System.Xml.Serialization.XmlTypeAttribute([Namespace]:="urn:http://www.mic-cust.com/MicCustExportShipment/6.2"),
System.Xml.Serialization.XmlRootAttribute([Namespace]:="urn:http://www.mic-cust.com/MicCustExportShipment/6.2", IsNullable:=False)>
Public Enum PartnerTyp
'''<remarks/>
EX
'''<remarks/>
DT
'''<remarks/>
AE
'''<remarks/>
EV
End Enum
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.7.3056.0"),
System.SerializableAttribute(),
System.Xml.Serialization.XmlTypeAttribute([Namespace]:="urn:http://www.mic-cust.com/MicCustExportShipment/6.2"),
System.Xml.Serialization.XmlRootAttribute([Namespace]:="urn:http://www.mic-cust.com/MicCustExportShipment/6.2", IsNullable:=False)>
Public Enum AddCostsSplitType
'''<remarks/>
V
'''<remarks/>
Q
End Enum
End Namespace

1122
VERAG_PROG_ALLGEMEIN/Schnittstellen/MIC/MicCustExportBasicTypes.xsd Normal file
View File

File diff suppressed because it is too large Load Diff

9501
VERAG_PROG_ALLGEMEIN/Schnittstellen/MIC/MicCustExportComponents.Designer.vb generated Normal file
View File

File diff suppressed because it is too large Load Diff

3721
VERAG_PROG_ALLGEMEIN/Schnittstellen/MIC/MicCustExportComponents.xsd Normal file
View File

File diff suppressed because it is too large Load Diff

4333
VERAG_PROG_ALLGEMEIN/Schnittstellen/MIC/MicCustExportInvoiceTypes.Designer.vb generated Normal file
View File

File diff suppressed because it is too large Load Diff

3907
VERAG_PROG_ALLGEMEIN/Schnittstellen/MIC/MicCustExportInvoiceTypes.xsd Normal file
View File

File diff suppressed because it is too large Load Diff

2348
VERAG_PROG_ALLGEMEIN/Schnittstellen/MIC/MicCustExportShipment.Designer.vb generated Normal file
View File

File diff suppressed because it is too large Load Diff

1862
VERAG_PROG_ALLGEMEIN/Schnittstellen/MIC/MicCustExportShipment.xsd Normal file
View File

File diff suppressed because it is too large Load Diff

18285
VERAG_PROG_ALLGEMEIN/Schnittstellen/MIC/MicCustImportInvoiceTypes.Designer.vb generated Normal file
View File

File diff suppressed because it is too large Load Diff

11393
VERAG_PROG_ALLGEMEIN/Schnittstellen/MIC/MicCustImportInvoiceTypes.xsd Normal file
View File

File diff suppressed because it is too large Load Diff

2510
VERAG_PROG_ALLGEMEIN/Schnittstellen/MIC/MicCustImportShipment.Designer.vb generated Normal file
View File

File diff suppressed because it is too large Load Diff

1815
VERAG_PROG_ALLGEMEIN/Schnittstellen/MIC/MicCustImportShipment.xsd Normal file
View File

File diff suppressed because it is too large Load Diff

1287
VERAG_PROG_ALLGEMEIN/Schnittstellen/MIC/MicErrorWarningMessage.Designer.vb generated Normal file
View File

File diff suppressed because it is too large Load Diff

138
VERAG_PROG_ALLGEMEIN/Schnittstellen/MIC/MicErrorWarningMessage.xsd Normal file
View File

@@ -0,0 +1,138 @@
<?xml version="1.0" encoding="UTF-8"?>
<!-- Mit XMLSpy v2011 rel. 3 sp1 (x64) (http://www.altova.com) von MIC Datenverarbeitung GmbH (MIC Datenverarbeitung GmbH) bearbeitet -->
<xs:schema xmlns:xs="http://www.w3.org/2001/XMLSchema" xmlns="urn:http://www.mic-cust.com/MicErrorWarningMessage/5.2" targetNamespace="urn:http://www.mic-cust.com/MicErrorWarningMessage/5.2" elementFormDefault="qualified" attributeFormDefault="unqualified">
<xs:element name="ErrorMessages">
<xs:complexType>
<xs:sequence>
<xs:element ref="ErrorMessage" minOccurs="0" maxOccurs="unbounded"/>
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="WarningMessages">
<xs:complexType>
<xs:sequence>
<xs:element ref="WarningMessage" minOccurs="0" maxOccurs="unbounded"/>
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="WarningMessage" type="TErrorMessageType">
<xs:annotation>
<xs:documentation>Warning message used for all occurred warnings and minor exceptions</xs:documentation>
</xs:annotation>
</xs:element>
<xs:element name="ErrorMessage" type="TErrorMessageType">
<xs:annotation>
<xs:documentation>Error message used for all occurred exceptions</xs:documentation>
</xs:annotation>
</xs:element>
<xs:element name="FaultMessage" type="TErrorMessageType">
<xs:annotation>
<xs:documentation>Fault message used for all occurred fault exceptions</xs:documentation>
</xs:annotation>
</xs:element>
<xs:complexType name="TErrorDetail">
<xs:annotation>
<xs:documentation>Contains details to an error message</xs:documentation>
</xs:annotation>
<xs:sequence>
<xs:element name="timestamp" type="xs:dateTime"/>
<xs:element name="stackTrace" type="xs:string" minOccurs="0">
<xs:annotation>
<xs:documentation>Stacktrace from Exception</xs:documentation>
</xs:annotation>
</xs:element>
<xs:element name="additionalDetails" minOccurs="0" maxOccurs="unbounded">
<xs:annotation>
<xs:documentation>Additional error details</xs:documentation>
</xs:annotation>
<xs:complexType>
<xs:attribute name="type" type="xs:string" use="required"/>
<xs:attribute name="key" type="xs:string" use="required"/>
<xs:attribute name="value" type="xs:string" use="required"/>
</xs:complexType>
</xs:element>
</xs:sequence>
</xs:complexType>
<xs:complexType name="TErrorMessageType">
<xs:annotation>
<xs:documentation>General error type used for error messages</xs:documentation>
</xs:annotation>
<xs:sequence>
<xs:element name="module" type="xs:string" minOccurs="0">
<xs:annotation>
<xs:documentation>MIC Module where the error occured</xs:documentation>
</xs:annotation>
</xs:element>
<xs:element name="process" type="xs:string" minOccurs="0">
<xs:annotation>
<xs:documentation>Process inside the MIC module where the error occured</xs:documentation>
</xs:annotation>
</xs:element>
<xs:element name="errorCode" type="xs:string">
<xs:annotation>
<xs:documentation>Error code to identify error </xs:documentation>
</xs:annotation>
</xs:element>
<xs:element name="errorDesc" type="xs:string">
<xs:annotation>
<xs:documentation>Description of the occurred exception</xs:documentation>
</xs:annotation>
</xs:element>
<xs:element name="Reference" type="TReference" minOccurs="0"/>
<xs:element name="Details" type="TErrorDetail" minOccurs="0">
<xs:annotation>
<xs:documentation>More detailed information about the error</xs:documentation>
</xs:annotation>
</xs:element>
</xs:sequence>
</xs:complexType>
<xs:complexType name="TReference">
<xs:sequence>
<xs:element name="company" type="xs:string" minOccurs="0">
<xs:annotation>
<xs:documentation>MIC company</xs:documentation>
</xs:annotation>
</xs:element>
<xs:element name="plant" type="xs:string" minOccurs="0">
<xs:annotation>
<xs:documentation>MIC plant</xs:documentation>
</xs:annotation>
</xs:element>
<xs:element name="correlationId" minOccurs="0">
<xs:annotation>
<xs:documentation>Unique reference number generated in MIC </xs:documentation>
</xs:annotation>
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="255"/>
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="referenceType" type="xs:string" minOccurs="0">
<xs:annotation>
<xs:documentation>Reference type used in MIC </xs:documentation>
</xs:annotation>
</xs:element>
<xs:element name="referenceSid" type="xs:long" minOccurs="0">
<xs:annotation>
<xs:documentation>Reference sid used MIC </xs:documentation>
</xs:annotation>
</xs:element>
<xs:element name="user" type="xs:string" minOccurs="0">
<xs:annotation>
<xs:documentation>MIC user</xs:documentation>
</xs:annotation>
</xs:element>
<xs:element name="partnerId" type="xs:string" minOccurs="0">
<xs:annotation>
<xs:documentation>Partner ID used in MIC</xs:documentation>
</xs:annotation>
</xs:element>
<xs:element name="routeId" type="xs:string" minOccurs="0">
<xs:annotation>
<xs:documentation>ID of route where error is occurred</xs:documentation>
</xs:annotation>
</xs:element>
</xs:sequence>
</xs:complexType>
</xs:schema>

32
VERAG_PROG_ALLGEMEIN/Schnittstellen/MIC/MicMetaCustExportShipment.xsd Normal file
View File

@@ -0,0 +1,32 @@
<?xml version="1.0" encoding="UTF-8"?>
<xs:schema xmlns:xs="http://www.w3.org/2001/XMLSchema" xmlns="urn:http://www.mic-cust.com/MicCustExportShipment/6.2" xmlns:meta="urn:http://www.mic-cust.com/MicMetadata/5.2" xmlns:error="urn:http://www.mic-cust.com/MicErrorWarningMessage/5.2" targetNamespace="urn:http://www.mic-cust.com/MicCustExportShipment/6.2" elementFormDefault="qualified" attributeFormDefault="unqualified">
<xs:include schemaLocation="MicCustExportShipment.xsd"/>
<xs:import namespace="urn:http://www.mic-cust.com/MicErrorWarningMessage/5.2" schemaLocation="http://www.mic-cust.com/MicMetadata/MicErrorWarningMessage.xsd"/>
<xs:import namespace="urn:http://www.mic-cust.com/MicMetadata/5.2" schemaLocation="http://www.mic-cust.com/MicMetadata/MicMetadata.xsd"/>
<!--===== Data Groups Declarations =====-->
<!-- actual request/response types, describes the data which may be sent as response, you should define a response type for each webservice operation / business process-->
<xs:element name="InsertExportShipment">
<xs:annotation>
<xs:documentation>Message for inserting MIC CUST ExportShipment</xs:documentation>
</xs:annotation>
<xs:complexType>
<xs:sequence>
<xs:element ref="ExportShipmentMessage"/>
</xs:sequence>
</xs:complexType>
</xs:element>
<!--elements which should be used for operations-->
<xs:element name="ExportShipmentMessage" type="TExportShipMsg"/>
<xs:element name="StatusResponse" type="meta:TStatusResponse"/>
<!-- types which include the MIC standard message details, eg messageID, transactionID, ActionCode,... and links it with the actual structure-->
<xs:complexType name="TExportShipMsg">
<xs:annotation>
<xs:documentation>MIC request message</xs:documentation>
</xs:annotation>
<xs:sequence>
<xs:element ref="meta:Metadata"/>
<xs:element ref="meta:MessageDetail"/>
<xs:element ref="ExportShipment"/>
</xs:sequence>
</xs:complexType>
</xs:schema>

32
VERAG_PROG_ALLGEMEIN/Schnittstellen/MIC/MicMetaCustImportShipment.xsd Normal file
View File

@@ -0,0 +1,32 @@
<?xml version="1.0" encoding="UTF-8"?>
<xs:schema xmlns:xs="http://www.w3.org/2001/XMLSchema" xmlns="urn:http://www.mic-cust.com/MicCustImportShipment/6.1" xmlns:meta="urn:http://www.mic-cust.com/MicMetadata/5.2" xmlns:error="urn:http://www.mic-cust.com/MicErrorWarningMessage/5.2" targetNamespace="urn:http://www.mic-cust.com/MicCustImportShipment/6.1" elementFormDefault="qualified" attributeFormDefault="unqualified">
<xs:include schemaLocation="MicCustImportShipment.xsd"/>
<xs:import namespace="urn:http://www.mic-cust.com/MicErrorWarningMessage/5.2" schemaLocation="http://www.mic-cust.com/MicMetadata/MicErrorWarningMessage.xsd"/>
<xs:import namespace="urn:http://www.mic-cust.com/MicMetadata/5.2" schemaLocation="http://www.mic-cust.com/MicMetadata/MicMetadata.xsd"/>
<!--===== Data Groups Declarations =====-->
<!-- actual request/response types, describes the data which may be sent as response, you should define a response type for each webservice operation / business process-->
<xs:element name="InsertImportShipment">
<xs:annotation>
<xs:documentation>Message for inserting MIC CUST ImportShipment</xs:documentation>
</xs:annotation>
<xs:complexType>
<xs:sequence>
<xs:element ref="ImportShipmentMessage"/>
</xs:sequence>
</xs:complexType>
</xs:element>
<!--elements which should be used for operations-->
<xs:element name="ImportShipmentMessage" type="TImportShipMsg"/>
<xs:element name="StatusResponse" type="meta:TStatusResponse"/>
<!-- types which include the MIC standard message details, eg messageID, transactionID, ActionCode,... and links it with the actual structure-->
<xs:complexType name="TImportShipMsg">
<xs:annotation>
<xs:documentation>MIC request message</xs:documentation>
</xs:annotation>
<xs:sequence>
<xs:element ref="meta:Metadata"/>
<xs:element ref="meta:MessageDetail"/>
<xs:element ref="ImportShipment"/>
</xs:sequence>
</xs:complexType>
</xs:schema>

1681
VERAG_PROG_ALLGEMEIN/Schnittstellen/MIC/MicMetadata.Designer.vb generated Normal file
View File

File diff suppressed because it is too large Load Diff

215
VERAG_PROG_ALLGEMEIN/Schnittstellen/MIC/MicMetadata.xsd Normal file
View File

@@ -0,0 +1,215 @@
<!-- Mit XMLSpy v2011 rel. 3 sp1 (x64) (http://www.altova.com) von MIC Datenverarbeitung GmbH (MIC Datenverarbeitung GmbH) bearbeitet -->
<xs:schema xmlns:xs="http://www.w3.org/2001/XMLSchema" xmlns="urn:http://www.mic-cust.com/MicMetadata/5.2" xmlns:err="urn:http://www.mic-cust.com/MicErrorWarningMessage/5.2" targetNamespace="urn:http://www.mic-cust.com/MicMetadata/5.2" elementFormDefault="qualified" attributeFormDefault="unqualified">
<xs:import namespace="urn:http://www.mic-cust.com/MicErrorWarningMessage/5.2" schemaLocation="MicErrorWarningMessage.xsd"/>
<xs:element name="Metadata" type="TMicMetadata"/>
<xs:element name="MessageDetail" type="TMessageDetail"/>
<xs:element name="Status" type="TStatus"/>
<xs:complexType name="TMicMetadata">
<xs:annotation>
<xs:documentation>Details of the connection to the ERP-System</xs:documentation>
</xs:annotation>
<xs:sequence>
<xs:element name="connectionId" type="TConnectionId"/>
<xs:element name="partnerId" type="TPartnerId">
<xs:annotation>
<xs:documentation>The partner ID is a unique ID provided by the MIC-System and classify the ERP-System of the customer. This information is given by MIC.</xs:documentation>
</xs:annotation>
</xs:element>
<xs:element name="dateTime" type="xs:dateTime">
<xs:annotation>
<xs:documentation>Creation date/time of the message in the ERP-System</xs:documentation>
</xs:annotation>
</xs:element>
</xs:sequence>
</xs:complexType>
<xs:complexType name="TActionCode">
<xs:annotation>
<xs:documentation> Action Requested for automatic processing</xs:documentation>
</xs:annotation>
<xs:sequence>
<xs:element name="code">
<xs:annotation>
<xs:documentation>Action code for automatic processing</xs:documentation>
</xs:annotation>
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:minLength value="1"/>
<xs:maxLength value="10"/>
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="parameter" minOccurs="0" maxOccurs="unbounded">
<xs:annotation>
<xs:documentation>additional parameters</xs:documentation>
</xs:annotation>
<xs:complexType>
<xs:attribute name="key" use="required"/>
<xs:attribute name="value" use="required"/>
</xs:complexType>
</xs:element>
</xs:sequence>
</xs:complexType>
<xs:complexType name="TMessageDetail">
<xs:annotation>
<xs:documentation>MIC Interface Message Envelope: description of the single message</xs:documentation>
</xs:annotation>
<xs:sequence>
<xs:element name="messageId" type="TMessageId">
<xs:annotation>
<xs:documentation>Unique Message ID</xs:documentation>
</xs:annotation>
</xs:element>
<xs:element name="partyId" type="TPartyId">
<xs:annotation>
<xs:documentation>Party ID is used as a separations of departments or single message groups</xs:documentation>
</xs:annotation>
</xs:element>
<xs:element name="transactionId" type="TTransactionId">
<xs:annotation>
<xs:documentation>Unique Identifier of a transaction (declaration) e.g. MRN or LRN</xs:documentation>
</xs:annotation>
</xs:element>
<xs:element name="sequenceNum" type="TSequenceNum">
<xs:annotation>
<xs:documentation>Running number of the transaction Id</xs:documentation>
</xs:annotation>
</xs:element>
<xs:element name="ActionCode" type="TActionCode" minOccurs="0">
<xs:annotation>
<xs:documentation>The ActionCode definies the autmoatic process in the MIC-Application. </xs:documentation>
</xs:annotation>
</xs:element>
</xs:sequence>
</xs:complexType>
<xs:element name="StatusMessage">
<xs:annotation>
<xs:documentation>Status message with Metadata and MessageDetail</xs:documentation>
</xs:annotation>
<xs:complexType>
<xs:sequence>
<xs:element ref="Metadata"/>
<xs:element ref="MessageDetail"/>
<xs:element ref="Status">
<xs:annotation>
<xs:documentation>Set of Messages</xs:documentation>
</xs:annotation>
</xs:element>
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:complexType name="TStatusResponse">
<xs:annotation>
<xs:documentation>Status response message used for synchronous answers</xs:documentation>
</xs:annotation>
<xs:sequence>
<xs:element ref="Status">
<xs:annotation>
<xs:documentation>Set of Messages</xs:documentation>
</xs:annotation>
</xs:element>
</xs:sequence>
</xs:complexType>
<xs:complexType name="TStatus">
<xs:sequence>
<xs:element name="status">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:enumeration value="OK"/>
<xs:enumeration value="ERROR"/>
<xs:enumeration value="WARNING"/>
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:choice>
<xs:element name="Reference" type="TMetaReference"/>
<xs:element ref="err:ErrorMessages" minOccurs="0"/>
<xs:element ref="err:WarningMessages" minOccurs="0"/>
</xs:choice>
</xs:sequence>
</xs:complexType>
<xs:complexType name="TMetaReference">
<xs:sequence>
<xs:element name="correlationId" minOccurs="0">
<xs:annotation>
<xs:documentation>Unique reference number generated in MIC </xs:documentation>
</xs:annotation>
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="255"/>
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="company" type="xs:string" minOccurs="0">
<xs:annotation>
<xs:documentation>MIC company</xs:documentation>
</xs:annotation>
</xs:element>
<xs:element name="plant" type="xs:string" minOccurs="0">
<xs:annotation>
<xs:documentation>MIC plant</xs:documentation>
</xs:annotation>
</xs:element>
<xs:element name="referenceType" type="xs:string" minOccurs="0">
<xs:annotation>
<xs:documentation>Reference type used in MIC </xs:documentation>
</xs:annotation>
</xs:element>
<xs:element name="referenceSid" type="xs:long" minOccurs="0">
<xs:annotation>
<xs:documentation>Reference sid used MIC </xs:documentation>
</xs:annotation>
</xs:element>
</xs:sequence>
</xs:complexType>
<xs:simpleType name="TTransactionId">
<xs:annotation>
<xs:documentation> Envelope:Unique transaction ID used for communication with EDIS webservice</xs:documentation>
</xs:annotation>
<xs:restriction base="xs:string">
<xs:maxLength value="100"/>
</xs:restriction>
</xs:simpleType>
<xs:simpleType name="TSequenceNum">
<xs:annotation>
<xs:documentation> Envelope:running count </xs:documentation>
</xs:annotation>
<xs:restriction base="xs:integer"/>
</xs:simpleType>
<xs:simpleType name="TMessageId">
<xs:annotation>
<xs:documentation>envelope:Unique Message ID used for communication in message envelope</xs:documentation>
</xs:annotation>
<xs:restriction base="xs:string">
<xs:maxLength value="100"/>
<xs:minLength value="1"/>
</xs:restriction>
</xs:simpleType>
<xs:simpleType name="TPartyId">
<xs:annotation>
<xs:documentation> Envelope: communication pary</xs:documentation>
</xs:annotation>
<xs:restriction base="xs:string">
<xs:minLength value="1"/>
<xs:maxLength value="30"/>
</xs:restriction>
</xs:simpleType>
<xs:simpleType name="TPartnerId">
<xs:annotation>
<xs:documentation> Envelope: communication partner</xs:documentation>
</xs:annotation>
<xs:restriction base="xs:string">
<xs:minLength value="1"/>
<xs:maxLength value="30"/>
</xs:restriction>
</xs:simpleType>
<xs:simpleType name="TConnectionId">
<xs:annotation>
<xs:documentation>Connection ID of the MIC-Webservice</xs:documentation>
</xs:annotation>
<xs:restriction base="xs:string">
<xs:maxLength value="40"/>
<xs:minLength value="1"/>
</xs:restriction>
</xs:simpleType>
</xs:schema>

254
VERAG_PROG_ALLGEMEIN/Schnittstellen/MIC/cMIC.vb Normal file
View File

@@ -0,0 +1,254 @@
Public Class cMIC
Shared Sub send_MIC_AvisoSendung(AVISO As cAviso, SENDUNG As cSendungen, Optional sendWOQ As Boolean = False, Optional showBezugsNr As Boolean = False)
If sendWOQ OrElse vbYes = MsgBox("Sollen die Daten abgeschickt werden?" & vbNewLine & "Eine Änderung ist nur noch in der MIC Software möglich.", vbYesNoCancel) Then
' Dim cDyAnm As New cDakosy_Zollanmeldungen(cDy_ART, BezugsNr, AVISO.AvisoID, SENDUNG.tblSnd_SendungID)
If AVISO IsNot Nothing And SENDUNG IsNot Nothing Then
If SENDUNG.FilialenNr < 1000 Then MsgBox("Keine Filialen-Nummer!")
If SENDUNG.AbfertigungsNr < 1000 Then MsgBox("Keine Abfertigungs-Nummer!")
Dim BezugsNr = SENDUNG.FilialenNr & "/" & SENDUNG.AbfertigungsNr
If showBezugsNr Then
BezugsNr = InputBox("MIC Bezugsnummer:", "MIC", BezugsNr)
End If
Dim saveFile = ""
If generateIMPORT(AVISO, SENDUNG, saveFile, BezugsNr) Then
If saveFile <> "" Then
Process.Start(saveFile)
'If Not send_Data_To_Dakosy_FTP(saveFile, BezugsNr, Nothing, Nothing) Then
' MsgBox("Sendefehler!")
'End If
End If
End If
End If
End If
End Sub
Shared Function getInvPartner(KdNr As Integer, NameText As String, Type As String) As MIC_IMPORT_Invoice.TPartner
If KdNr > 0 Then
Dim PARTNER As New MIC_IMPORT_Invoice.TPartner
Dim AD As New cAdressen(KdNr)
Dim KD As New cKunde(KdNr)
PARTNER.partnerType = Type
PARTNER.PartnerAddress.addrName.Add(AD.Name_1)
If If(AD.Name_2, "") <> "" Then PARTNER.PartnerAddress.addrName.Add(AD.Name_2)
PARTNER.PartnerAddress.addrStreet = AD.Straße
PARTNER.PartnerAddress.addrZip = AD.PLZ
PARTNER.PartnerAddress.addrLoc = AD.Ort
PARTNER.PartnerAddress.addrCtry = cProgramFunctions.getISO2Land(AD.LandKz)
PARTNER.PartnerAddress.addrEori = KD.EORITIN
PARTNER.PartnerAddress.addrTin = KD.EORITIN
Return PARTNER
ElseIf If(NameText, "") <> "" Then
Dim PARTNER As New MIC_IMPORT_Invoice.TPartner
PARTNER.partnerType = Type
PARTNER.PartnerAddress.addrName.Add(NameText)
Return PARTNER
End If
Return Nothing
End Function
Shared Function generateNCTS(cDY As cNCTS_TR, ByRef saveFile As String, BezugsNr As String) As Boolean 'DY_ACTION As String) As Boolean
Try
'Dim Interface_VERSION = "003"
'Dim ObjectAktion = DY_ACTION
Dim XML As New MIC_EXPORT_Shipment.ExportShipment
'Transaktion:
XML.ShipmentHead.company = "VERAG"
XML.ShipmentHead.plant = "GB/01"
XML.ShipmentHead.shipmentId = BezugsNr
saveFile = getDefaultFolder_SEND("NCTS") & "MIC_NCTS_" & Now.ToString("yyMMdd_HHmmss") & ".xml"
'' Dim saveDir = Application.StartupPath & "\Dakosy_SEND\"
'Dim saveDir = "\\share01\Datenarchiv\MIC\SEND\"
'If Not System.IO.Directory.Exists(saveDir) Then
' System.IO.Directory.CreateDirectory(saveDir)
'End If
'saveFile = saveDir & "MIC_" & Now.ToString("yyMMdd_HHmmss") & ".xml"
'MsgBox(saveFile)
XML.SaveToFile(saveFile)
replaceNullDateXML(saveFile)
Return True
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
Return False
End Try
End Function
Shared Function generateIMPORT(AVISO As cAviso, SENDUNG As cSendungen, ByRef saveFile As String, ByRef BezugsNr As String) As Boolean
Dim Interface_VERSION = "000"
Dim XML As New MIC_IMPORT.ImportShipment
'XML.schemaVersion =
XML.Shipment.company = "VERAG"
XML.Shipment.plant = "GB/01"
XML.Shipment.shipmentId = BezugsNr
XML.Shipment.ShipmentHead.shipmentType = MIC_IMPORT.TShipmentHeadShipmentType.E 'E:Import
XML.Shipment.ShipmentHead.customsDate = Now
If SENDUNG.tblSnd_Gewicht IsNot Nothing AndAlso IsNumeric(SENDUNG.tblSnd_Gewicht) Then XML.Shipment.ShipmentHead.grossWeight = CDec(SENDUNG.tblSnd_Gewicht)
'XML.Shipment.ShipmentHead.departurePlace = Now
XML.Shipment.ShipmentHead.MotBorderCrossing.motVehicle = AVISO.LKW_Nr
XML.Shipment.ShipmentHead.MotBorderCrossing.motCountry = AVISO.LKW_Nationalitaet
XML.Shipment.ShipmentHead.MotBorder.motVehicle = AVISO.LKW_Nr
XML.Shipment.ShipmentHead.MotBorder.motCountry = AVISO.LKW_Nationalitaet
XML.Shipment.ShipmentHead.MotInland.motVehicle = AVISO.LKW_Nr
XML.Shipment.ShipmentHead.MotInland.motCountry = AVISO.LKW_Nationalitaet
Dim INV As New MIC_IMPORT_Invoice.TInvoice
Dim ILN As New MIC_IMPORT_Invoice.TInvoiceLine
Dim Partner_IM = getInvPartner(SENDUNG.tblSnd_EmpfaengerKdNr, SENDUNG.tblSnd_Empfaenger, "IM")
If Partner_IM IsNot Nothing Then ILN.Partners.Add(Partner_IM)
Dim Partner_CZ = getInvPartner(SENDUNG.tblSnd_AbsenderKdNr, SENDUNG.tblSnd_Absender, "CZ")
If Partner_CZ IsNot Nothing Then ILN.Partners.Add(Partner_CZ)
INV.InvoiceLines.Add(ILN)
XML.Invoice.Add(INV)
Dim CF_BezugsNr = New MIC_IMPORT_Invoice.TCustomerText()
CF_BezugsNr.key = 1
CF_BezugsNr.value = BezugsNr
XML.Shipment.ShipmentHead.CustomerFields.Texts.Add(CF_BezugsNr)
XML.Shipment.ShipmentHead.countryDestination = "UK"
XML.Shipment.ShipmentHead.creationDate = Now
XML.Shipment.ShipmentHead.creationUser = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
If SENDUNG.tblSnd_Frachtkosten IsNot Nothing Then XML.Shipment.ShipmentHead.Freight.frtAmount = SENDUNG.tblSnd_Frachtkosten
saveFile = getDefaultFolder_SEND("IMPORT") & "MIC_IMPORT_" & Now.ToString("yyMMdd_HHmmss") & ".xml"
'MsgBox(saveFile)
XML.SaveToFile(saveFile)
replaceNullDateXML(saveFile)
Return True
End Function
Shared Sub replaceNullDateXML(XMLFile As String)
Try
If Not System.IO.File.Exists(XMLFile) Then Exit Sub
Dim lines() As String = System.IO.File.ReadAllLines(XMLFile)
Using writer = New System.IO.StreamWriter(XMLFile, False)
For Each line In lines
If Not line.Contains("0001-01-01") Then writer.WriteLine(line)
Next
End Using
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
End Try
End Sub
Shared Function getDefaultFolder_SEND(pathType As String) As String
' pathType: IMPORT
' pathType: EXPORT
' pathType: TRANSIT
Try
getDefaultFolder_SEND = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir(False) & "MIC\" & If(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "TESTSYSTEM", "ECHTSYSTEM") & "\Ausgang_Zolldaten\" & pathType & "\" & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\" ' Path.GetTempPath
If Not IO.Directory.Exists(getDefaultFolder_SEND) Then
IO.Directory.CreateDirectory(getDefaultFolder_SEND)
End If
Catch ex As Exception
Try
getDefaultFolder_SEND = "C:\TEMP\" ' Path.GetTempPath
If Not IO.Directory.Exists(getDefaultFolder_SEND) Then
IO.Directory.CreateDirectory(getDefaultFolder_SEND)
End If
Catch ex2 As Exception
MsgBox(ex2.Message & ex2.StackTrace)
getDefaultFolder_SEND = ""
End Try
End Try
End Function
Shared Function send_Data_To_Dakosy_FTP(file, dySt_BezugsNr, dy_Id, FRIMA_DY)
'Try
' If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ZOLL_DakosyZA_Senden", "AVISO") Then
' MsgBox("Sie haben keine Sendeberechtigung.")
' Return False
' End If
' If Not IO.File.Exists(file) Then Return False
' Dim F As New System.IO.FileInfo(file)
' Dim DY_server = ""
' Dim DY_name = ""
' Dim DY_pwd = ""
' Dim DY_port = ""
' Dim DY_PFAD_IN = ""
' Dim DY_PFAD_IN_KD = ""
' getSFTPLoginData(DY_server, DY_name, DY_pwd, DY_port, DY_PFAD_IN, "", DY_PFAD_IN_KD, FRIMA_DY)
' Dim ConnectionInfo As New ConnectionInfo(DY_server, DY_port, DY_name, New PasswordAuthenticationMethod(DY_name, DY_pwd))
' Using client = New SftpClient(ConnectionInfo)
' client.Connect()
' 'client.Create(file, file)
' client.ChangeDirectory(DY_PFAD_IN)
' If IO.File.Exists(file) Then
' 'MsgBox(file)
' Using uplfileStream = System.IO.File.OpenRead(file)
' client.UploadFile(uplfileStream, "." & F.Name, True)
' client.RenameFile("." & F.Name, F.Name)
' End Using
' client.Disconnect()
' Else
' MsgBox("Sendedatei nicht gefunden!")
' End If
' End Using
' 'Dim STATUS As New DAKOSY_Worker.cDakosy_Statusmeldungen
' 'STATUS.dySt_BezugsNr = dySt_BezugsNr
' 'STATUS.dySt_artMitteilung = "VERAG_SND"
' 'STATUS.dySt_dyArt = "" '"NCTS" 'T1/T2
' 'STATUS.dySt_status = DAKOSY_Worker.cDY_Statusliste.S_03
' ''STATUS.dySt_ergCode = "ANR"
' 'STATUS.dySt_ergCode = "SND"
' 'STATUS.dySt_ergMitteilung = "An Dakosy gesendet"
' 'STATUS.dySt_ergZeitpunkt = Now
' 'STATUS.dySt_dyId = dy_Id
' 'STATUS.SAVE()
' Return True
'Catch ex As Exception
' MsgBox(ex.Message & ex.StackTrace)
' Return False
'End Try
End Function
End Class

1543
VERAG_PROG_ALLGEMEIN/Schnittstellen/MIC/cMICInterface.vb Normal file
View File

File diff suppressed because it is too large Load Diff

112
VERAG_PROG_ALLGEMEIN/Schnittstellen/cNCTS_Helper.vb Normal file
View File

@@ -0,0 +1,112 @@
Public Class cNCTS_Helper
Shared Function getXLS_FremdBRG(_COMPANY As String, _BRG_TEXT As String, _BRG_VALUE As String, datVon As Date, datBis As Date, _EZOLL As Boolean) As String 'MyComboBox1._value ,cboBRG.TEXT,_BRG_VALUE,datVon.Value ,datBis.Value.ToShortDateString ,cbxEZollDaten.Checked
Try
Dim SQL As New SQL
' lblErr.Visible = False
If _BRG_VALUE = "" Then Return ""
Dim where = ""
Select Case _COMPANY
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')) "
End Select
'DAKOSY:
Dim sqlatr = " SELECT (SELECT TOP 1 CONVERT(varchar, [dySt_ergZeitpunkt] ,104 ) FROM [tblDakosy_Statusmeldungen] WHERE [dySt_dyId]=ncts_dyaAnmID AND [dySt_status] = 50 ) as Datum, ncts_Befoerderungsmittel_KennzeichenAbgang as Kennzeichen, isnull(ncts_MRN,'') as MRN, ncts_SumA_Befoerderer_Land as Land, nctsSA_AbgabenBetrag as GarantieBetrag, ncts_SumA_Befoerderer_Name as Firma " &
" " & If(_BRG_TEXT.Contains("TOBB") Or _BRG_TEXT.Contains("OREGON"), ", isnull(ncts_BestimmungsstelleDienststellennummer,'') as Bestimmungsstelle ", "") & " " &
" ,ncts_ObjectName as Bezugsnummer " &
"FROM [tblDakosy_NCTSOut] INNER JOIN [tblDakosy_NCTSOut_Sicherheitsangaben] on ncts_Id=[nctsSA_NctsId] "
sqlatr &= " WHERE nctsSA_GRN IN (" & _BRG_VALUE & ") and ncts_Status between 50 and 60 " ' CONVERT(date, ncts_Trans_DatumZeit ,104 ) BETWEEN '" & datVon.Value.ToShortDateString & "' AND '" & datBis.Value.ToShortDateString & "'"
sqlatr &= where
sqlatr &= " AND (SELECT COUNT(*) FROM [tblDakosy_Statusmeldungen] WHERE [dySt_dyId]=ncts_dyaAnmID AND [dySt_status] = 50 AND CONVERT(date, [dySt_ergZeitpunkt] ,104 ) BETWEEN '" & datVon.ToShortDateString & "' AND '" & datBis.ToShortDateString & "')>0 "
Dim dt As DataTable = SQL.loadDgvBySql(sqlatr, "FMZOLL", 120)
'Bei IMEX kein E-ZOLL
If _COMPANY = "VERAG/ATILLA" Then
If _EZOLL Then
'EZOLL:
sqlatr = " Select TOP 100 AnmeldungsDatum As Datum , (Select [CrossIdnt] FROM [zsAnmTransp] where [zsAnmTransp].AnmID=vwVERAG_Zolaris_EZoll_NCTS_Datenübernahme_Eroeffnung.AnmID ) As Kennzeichen, isnull(CRN,'') as MRN, (select [CrossIdntNat] FROM [zsAnmTransp] where [zsAnmTransp].AnmID=vwVERAG_Zolaris_EZoll_NCTS_Datenübernahme_Eroeffnung.AnmID ) as Land, cast(GarantieWert as Decimal(17,2)) as GarantieBetrag,(SELECT [Na] FROM [ezoll].[dbo].[zsAnmCarrTra] where [zsAnmCarrTra].AnmID=vwVERAG_Zolaris_EZoll_NCTS_Datenübernahme_Eroeffnung.AnmID) as Firma "
sqlatr &= " " & If(_BRG_TEXT.Contains("TOBB") Or _BRG_TEXT.Contains("OREGON"), ", isnull(Bestimmungszollstelle,'') as Bestimmungsstelle ", "") & " "
sqlatr &= " ,LRN as Bezugsnummer "
sqlatr &= " FROM vwVERAG_Zolaris_EZoll_NCTS_Datenübernahme_Eroeffnung "
sqlatr &= " WHERE GRN IN (" & _BRG_VALUE & ") and cast( AnmeldungsDatum as date) BETWEEN '" & datVon.ToShortDateString & "' AND '" & datBis.ToShortDateString & "' "
Dim dt2 As DataTable = SQL.loadDgvBySql(sqlatr, "EZOLL", 120)
If dt Is Nothing Then
dt = dt2
Else
'zusammenführen:
If dt2 IsNot Nothing Then
dt.Merge(dt2, True, MissingSchemaAction.Add)
'For Each r As DataRow In dt2.Rows
' dt.Rows.Add(r)
'Next
End If
End If
End If
End If
If dt Is Nothing OrElse dt.Rows.Count = 0 Then Return "NO_RESULT" 'lblErr.Visible = True :
getEmptyFraechter(dt)
dt.Columns.Remove("Bezugsnummer")
Dim optfileName = "NCTS_TOBB_" & datVon.ToShortDateString & "-" & datBis.ToShortDateString
Return cProgramFunctions.genExcelFromDT_NEW(dt, {"E1:E" & (dt.Rows.Count + 1)}, , "Bürgschaftsbuchungen " & _BRG_TEXT, "Datum: " & Now.ToShortDateString, False, optfileName)
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
Return ""
End Try
End Function
Shared Sub getEmptyFraechter(ByRef dt As DataTable)
Dim SQL As New SQL
If dt IsNot Nothing Then
For Each r In dt.Rows
Try
If r("Firma") Is DBNull.Value OrElse r("Firma") = "" Then
Dim Bezugsnummer = If(r("Bezugsnummer"), "")
Dim FirmaTmp = ""
Dim FirmaNat = ""
Dim FirmaTmpKdNR = SQL.DLookup("isnull([FrachtführerKundenNr],'')", "Speditionsbuch", " ([AtlasBezNrEZA]='" & Bezugsnummer & "' OR [AtlasBezNrNCTS]='" & Bezugsnummer & "')", "FMZOLL")
If IsNumeric(FirmaTmpKdNR) Then
Dim AD As New VERAG_PROG_ALLGEMEIN.cAdressen(FirmaTmpKdNR)
If AD.hasEntry Then
FirmaTmp = AD.Name_1
FirmaNat = AD.LandKz
End If
Else
FirmaTmp = SQL.DLookup("isnull([Frachtführer],'')", "Speditionsbuch", " ([AtlasBezNrEZA]='" & Bezugsnummer & "' OR [AtlasBezNrNCTS]='" & Bezugsnummer & "')", "FMZOLL")
End If
If FirmaTmp.ToString.Contains(";") Then FirmaTmp = FirmaTmp.ToString.Split(";")(0)
If FirmaTmp.Length > 30 Then
FirmaTmp = FirmaTmp.ToString.Substring(0, 30)
End If
r("Firma") = FirmaTmp
r("Land") = FirmaNat
End If
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
End Try
Next
End If
End Sub
End Class

23
VERAG_PROG_ALLGEMEIN/Schnittstellen/cTherefore.vb
View File

@@ -10,7 +10,11 @@ Public Class cTherefore
Case 7
Return saveFileTo_ImportFolderCat(Path, FilialeAbfertigungsNr, AvisoId, "Atilla ab Juni 2011",, deleteFileAfterImport)
Case 21,22,23
Return saveFileTo_ImportFolderCat(Path, FilialeAbfertigungsNr, AvisoId, "Import ab Jänner 2021 UNISPED DE",, deleteFileAfterImport)
'Return saveFileTo_ImportFolderCat(Path, FilialeAbfertigungsNr, AvisoId, "Import ab Jänner 2021 UNISPED", "UNISPED\Import ab Jänner 2021 UNISPED DE", deleteFileAfterImport)
'Return saveFileTo_ImportFolderCat(Path, FilialeAbfertigungsNr, AvisoId, "Import ab Jänner 2021 UNISPED", "Import ab Jänner 2021 UNISPED DE", deleteFileAfterImport)
Return saveFileTo_ImportFolderCat(Path, FilialeAbfertigungsNr, AvisoId, "Import ab Jänner 2021 UNISPED_DE", "UNISPED Zollakten", deleteFileAfterImport)
'Return saveFileTo_ImportFolderCat(Path, FilialeAbfertigungsNr, AvisoId, 394, 394, deleteFileAfterImport)
Case 1, 11, 20, 17 ', 15
' Return saveFileTo_ImportFolderCat(Path, FilialeAbfertigungsNr, AvisoId, "Import an Jänner 2019", "Import ab Jänner 2019", deleteFileAfterImport)
Return saveFileTo_ImportFolderCat(Path, FilialeAbfertigungsNr, AvisoId, "Import ab Jänner 2021", "Import ab Jänner 2021", deleteFileAfterImport)
@@ -50,13 +54,24 @@ Public Class cTherefore
'indexData("Eingabedatum") = Now.ToShortDateString
'indexData("LKW_ID") = AvisoId
' MsgBox(doc.IndexData.Count)
'MsgBox(doc.IndexData.Count)
' 7. Archive the document
'Dim docNo As Integer = doc.Archive(server, 0)
'Dim docNo As Integer = 0
'Dim filenameNEW As String = doc.Retrieve(docNo, "", server)
Dim TableName = SQL.getValueTxtBySql("SELECT TOP 1 [TableName] FROM [TheCategory] WHERE Title='" & Category & "'", "SCANCANON",,, "")
Dim TableName = ""
If IsNumeric(Category) Then
TableName = "TheCat" & Category
If SQL.getValueTxtBySql("SELECT count(*) FROM [TheCategory] WHERE TableName='" & TableName & "'", "SCANCANON",,, "") = 0 Then
MsgBox("Therefore: Tabelle nicht gefunden: " & TableName)
Return False
End If
Else
TableName = SQL.getValueTxtBySql("SELECT TOP 1 [TableName] FROM [TheCategory] WHERE Title='" & Category & "'", "SCANCANON",,, "")
End If
Dim docNo As Integer = SQL.getValueTxtBySql("SELECT TOP 1 isnull([DocNo],-1) FROM " & TableName & " WHERE [String] LIKE '" & FilialeAbfertigungsNr & "' ORDER BY [Eingabedatum] DESC", "SCANCANON",,, -1)
' MsgBox("docNo: " & docNo)
Dim filename As String = ""
If docNo <= 0 Then
doc.Create(filename)
@@ -86,7 +101,7 @@ Public Class cTherefore
doc.Close()
' 9. Delete the temporary file
If deleteFileAfterImport Then System.IO.File.Delete(filename)
If deleteFileAfterImport Then System.IO.File.Delete(filename)
' 10. Optional: Print a success message on the console
' Console.WriteLine("Document successfully archived as " + docNo.ToString() + ".")

46
VERAG_PROG_ALLGEMEIN/VERAG_PROG_ALLGEMEIN.vbproj
View File

@@ -299,6 +299,7 @@
<Compile Include="Classes\cDHF_Anhaenge.vb" />
<Compile Include="Classes\cEasyBinding.vb" />
<Compile Include="Classes\cEmailBenachrichtigung.vb" />
<Compile Include="Classes\cERS.vb" />
<Compile Include="Classes\cEZB_Waehrungskurse.vb" />
<Compile Include="Classes\cEZT_ImportCodenummern.vb" />
<Compile Include="Classes\cFirmen.vb" />
@@ -470,9 +471,20 @@
<Compile Include="Schnittstellen\cBMD_Interface.vb" />
<Compile Include="Schnittstellen\cDVO_Interface.vb" />
<Compile Include="Schnittstellen\cJsonPost.vb" />
<Compile Include="Schnittstellen\cNCTS_Helper.vb" />
<Compile Include="Schnittstellen\cSyska_Interface.vb" />
<Compile Include="Schnittstellen\cTherefore.vb" />
<Compile Include="Schnittstellen\GASTON_SCHUL\agsCustomsExchange.Designer.vb" />
<Compile Include="Schnittstellen\MIC\cMIC.vb" />
<Compile Include="Schnittstellen\MIC\cMICInterface.vb" />
<Compile Include="Schnittstellen\MIC\MicCustExportBasicTypes.Designer.vb" />
<Compile Include="Schnittstellen\MIC\MicCustExportComponents.Designer.vb" />
<Compile Include="Schnittstellen\MIC\MicCustExportInvoiceTypes.Designer.vb" />
<Compile Include="Schnittstellen\MIC\MicCustExportShipment.Designer.vb" />
<Compile Include="Schnittstellen\MIC\MicCustImportInvoiceTypes.Designer.vb" />
<Compile Include="Schnittstellen\MIC\MicCustImportShipment.Designer.vb" />
<Compile Include="Schnittstellen\MIC\MicErrorWarningMessage.Designer.vb" />
<Compile Include="Schnittstellen\MIC\MicMetadata.Designer.vb" />
<Compile Include="Schnittstellen\SGS\CC015B_TR_EXT_V4_3.Designer.vb" />
<Compile Include="Schnittstellen\SGS\Codelists.Designer.vb" />
<Compile Include="Schnittstellen\SGS\Constraints4.Designer.vb" />
@@ -586,6 +598,36 @@
<None Include="Schnittstellen\GASTON_SCHUL\agsCustomsExchange.xsd">
<SubType>Designer</SubType>
</None>
<None Include="Schnittstellen\MIC\MicCustExportBasicTypes.xsd">
<SubType>Designer</SubType>
</None>
<None Include="Schnittstellen\MIC\MicCustExportComponents.xsd">
<SubType>Designer</SubType>
</None>
<None Include="Schnittstellen\MIC\MicCustExportInvoiceTypes.xsd">
<SubType>Designer</SubType>
</None>
<None Include="Schnittstellen\MIC\MicCustExportShipment.xsd">
<SubType>Designer</SubType>
</None>
<None Include="Schnittstellen\MIC\MicCustImportInvoiceTypes.xsd">
<SubType>Designer</SubType>
</None>
<None Include="Schnittstellen\MIC\MicCustImportShipment.xsd">
<SubType>Designer</SubType>
</None>
<None Include="Schnittstellen\MIC\MicErrorWarningMessage.xsd">
<SubType>Designer</SubType>
</None>
<None Include="Schnittstellen\MIC\MicMetaCustExportShipment.xsd">
<SubType>Designer</SubType>
</None>
<None Include="Schnittstellen\MIC\MicMetaCustImportShipment.xsd">
<SubType>Designer</SubType>
</None>
<None Include="Schnittstellen\MIC\MicMetadata.xsd">
<SubType>Designer</SubType>
</None>
<None Include="Schnittstellen\SGS\CC015B_TR_EXT_V4_3.xsd">
<SubType>Designer</SubType>
</None>
@@ -814,6 +856,9 @@
<None Include="Resources\people.png" />
</ItemGroup>
<ItemGroup>
<PackageReference Include="esendex-dotnet-sdk">
<Version>3.8.0</Version>
</PackageReference>
<PackageReference Include="Newtonsoft.Json">
<Version>6.0.8</Version>
</PackageReference>
@@ -872,6 +917,7 @@
<ItemGroup>
<EmbeddedResource Include="My Project\license.elic.xml" />
</ItemGroup>
<ItemGroup />
<Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
<ProjectExtensions />
<!-- To modify your build process, add your task inside one of the targets below and uncomment it.

1
VERAG_PROG_ALLGEMEIN/cAllgemein.vb
View File

@@ -49,6 +49,7 @@ Public Class cAllgemein
Public Shared _LAN As String = "DE" '"EN"
Public Shared SESSION As New cSession
Public Shared _DummyCNT As Integer
Shared SQL As New SQL

14
VERAG_PROG_ALLGEMEIN/cErrorHandler.vb
View File

@@ -2,7 +2,7 @@
Public Class cErrorHandler
Public Shared Sub ERR(message As String, stack As String, functionName As String, Optional OP As String = "", Optional title As String = "", Optional mailadess As String = "al@verag.ag", Optional recieverMailAdress As String = "", Optional zusatz As String = "")
Public Shared Sub ERR(message As String, stack As String, functionName As String, Optional OP As String = "", Optional title As String = "", Optional mailadess As String = "al@verag.ag", Optional recieverMailAdress As String = "", Optional zusatz As String = "", Optional errCode As String = Nothing)
If OP = "" Then OP = VERAG_PROG_ALLGEMEIN.cAllgemein.ERR_OP_GLOBAL ' GLobal gesetzes Errorhandling! (Standart=SHOW)
Select Case OP
Case ERROR_OP.MAIL
@@ -11,13 +11,20 @@ Public Class cErrorHandler
'MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message)
MsgBox(If(functionName <> "", "Fehler in der Funktion '" & functionName & "'" & vbNewLine & vbNewLine, "") & message & vbNewLine & stack & vbNewLine & zusatz, MsgBoxStyle.OkOnly, If(title <> "", title, "Fehler"))
End Select
VERAG_PROG_ALLGEMEIN.cERS.saveErr(OP, message, stack, errCode, functionName, recieverMailAdress, zusatz)
End Sub
Public Shared Sub sendERRORperMail(title, errmsg, errstack, recieverMailAdress, zusatz, functionName)
Dim Msg As New MailMessage
Dim myCredentials As New System.Net.NetworkCredential
myCredentials.UserName = "support@verag.ag"
myCredentials.Password = "support"
'myCredentials.UserName = "support@verag.ag"
'myCredentials.Password = "$up0Rt2809!"
myCredentials.UserName = "al@verag.ag"
myCredentials.Password = "verag#2"
Msg.IsBodyHtml = False
Dim mySmtpsvr As New SmtpClient()
mySmtpsvr.Host = "owa.verag.ag" 'bei web.de
@@ -65,4 +72,5 @@ Public Class ERROR_OP
Shared Property SHOW As String = "SHOW"
Shared Property MAIL As String = "MAIL"
Shared Property TOFILE As String = "TOFILE"
Shared Property LOG As String = "LOG" 'Nur fürs Protokoll, keine Fehlermeldung
End Class

55
VERAG_PROG_ALLGEMEIN/cProgramFunktions.vb
View File

@@ -90,8 +90,41 @@ Public Class cProgramFunctions
End Function
Public Shared Function fktEuroKurs(varVonWährung As Object, Rechnungsdatum As Date) As Object 'Funktioniert nciht mit datum!!!!!!!!!!!!!!!!!!!
'(FixeTaxe, "ATS", RECHNUNG.Währungscode)
'Dim varVonWährung As Object
'Dim varNachWährung As Object
Dim varKurs As Object
Public Shared Function genExcelFromDT_NEW(dt As DataTable, Optional rangeAsWaehrung() As String = Nothing, Optional ShowAutoFilter As Boolean = True, Optional HeaderTxt As String = "", Optional HeaderTxt2 As String = "", Optional openPDF As Boolean = True) As String
If varVonWährung Is Nothing Then Return Nothing
If varVonWährung = "EUR" Then ' Sind beide Währungen gleich,
Return 1 ' ist keine Umrechnung erforderlich
Exit Function ' und die Funktion wird beendet
End If
If Not IsNumeric(varVonWährung) Then
varVonWährung = SQL.DLookup("[Währungsschlüssel]", "Währungstabelle", "[Währungscode] = '" & varVonWährung & "' order by Währungsschlüssel DESC", "FMZOLL")
End If
Dim varBetrag = 1
If varVonWährung <> 900 Then ' Eingangswährung in Euro umrechnen.
varKurs = SQL.DLookup("[Eurokurs]", "Währungstabelle", "[Währungsschlüssel] = " & varVonWährung & " order by Währungsschlüssel DESC", "FMZOLL")
If varKurs = "" OrElse varKurs = 0 Then
MsgBox("(1) Die Währungstabelle enthält keinen Umrechnungskurs für den Währungsschlüssel " & varVonWährung, , "fktEuro")
fktEuroKurs = Nothing
Exit Function
End If
varBetrag = Int(varBetrag / varKurs * 100 + 0.5) / 100
End If
fktEuroKurs = varBetrag
End Function
Public Shared Function genExcelFromDT_NEW(dt As DataTable, Optional rangeAsWaehrung() As String = Nothing, Optional ShowAutoFilter As Boolean = True, Optional HeaderTxt As String = "", Optional HeaderTxt2 As String = "", Optional openPDF As Boolean = True, Optional optFileName As String = "") As String
Try
Dim sPath As String = Environment.GetFolderPath(Environment.SpecialFolder.Personal) & "\VERAG\SDL\tmp\" ' My.Computer.FileSystem.GetTempFileName
@@ -127,9 +160,16 @@ Public Class cProgramFunctions
End If
Dim filename As String = ""
If optFileName <> "" Then
filename = sPath & optFileName & ".xlsx"
If IO.File.Exists(filename) Then
filename = sPath & optFileName & Now.ToString("ddMMyyyyHHmmss") & ".xlsx"
End If
Else
filename = sPath & "tmp_" & Now.ToString("ddMMyyyyHHmmss") & ".xlsx"
End If
Dim filename As String = sPath & "tmp_" & Now.ToString("ddMMyyyyHHmmss") & ".xlsx"
wb.SaveAs(filename)
If openPDF Then Process.Start(filename)
@@ -157,6 +197,15 @@ Public Class cProgramFunctions
myCredentials.Password = "$up0Rt2809!"
mySmtpsvr.Host = "owa.verag.ag"
mySmtpsvr.Port = 587
Case "AMBAR"
' myCredentials.UserName = "office@ambarlog.com"
' myCredentials.Password = "Naq30716"
myCredentials.UserName = "import@ambarlog.com"
myCredentials.Password = "Meh062020"
mySmtpsvr.Host = "smtp.office365.com"
mySmtpsvr.Port = 587
mySmtpsvr.EnableSsl = True
' eMailfrom = "import@ambarlog.com"
Case Else
myCredentials.UserName = "support@verag.ag"
myCredentials.Password = "$up0Rt2809!"

1
VERAG_PROG_ALLGEMEIN/frmScan.Designer.vb generated
View File

@@ -479,6 +479,7 @@ Partial Class frmScan
Me.UsrcntlPDFScan1.Name = "UsrcntlPDFScan1"
Me.UsrcntlPDFScan1.Size = New System.Drawing.Size(8, 8)
Me.UsrcntlPDFScan1.TabIndex = 21
Me.UsrcntlPDFScan1.Visible = False
'
'frmScan
'

22
VERAG_PROG_ALLGEMEIN/frmScan.vb
View File

@@ -401,6 +401,7 @@ Public Class frmScan
Me.fileName = addExtension(tbxSaveFileName.Text) ' DS.LAST_ID
Me.ReturnValue = PDF_bytes ' DS.LAST_ID
Me.DialogResult = Windows.Forms.DialogResult.OK
Case Else : saveToFile()
End Select
Catch ex As Exception
@@ -583,13 +584,16 @@ Public Class frmScan
Private Sub frmScan_Load(sender As Object, e As EventArgs) Handles Me.Load
InitDefaultValueForTWAIN()
cboResolution.Text = 150
cboResolution.Text = 240
Select Case ART
Case "DirectScan"
grpTyp.Visible = False
Case "QuickScan"
End Select
End Sub
@@ -652,8 +656,24 @@ Public Class frmScan
End If
tbxSaveFileName.Text = DefaultFileName
Select Case ART
Case "DirectScan"
Case "QuickScan"
Do
startScan()
Dim PDF_bytes As Byte() = m_PDFCreator.SaveAsBytes(TryCast(Me, ISave))
Me.fileName = addExtension(tbxSaveFileName.Text) ' DS.LAST_ID
Me.ReturnValue = PDF_bytes ' DS.LAST_ID
Loop While MsgBox("Möchten Sie weitere Dokumente scannen?" & vbNewLine & "NEIN = fertig!", vbYesNo) = vbYes
Me.DialogResult = Windows.Forms.DialogResult.OK
End Select
End Sub
Private Sub frmScan_TabStopChanged(sender As Object, e As EventArgs) Handles Me.TabStopChanged
End Sub
End Class