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
2020-03-12 14:49:31 +01:00
parent f4c1a74870
commit cc28d5a6cf
197 changed files with 37402 additions and 4503 deletions
Download Patch File Download Diff File Expand all files Collapse all files

109
VERAG_PROG_ALLGEMEIN/AVISO/cDatenbankAVISO.vb
View File

@@ -859,6 +859,7 @@ Public Class cAviso
Property Frächter As String
Property Frächter_KdNr As String = ""
Property letzterMitarbeiter As String
Property LetzterMitarbeiterId As Object = Nothing
Property Ankunft As Date
Property Freigabe As Date
Property Vorbereitet As Date
@@ -896,6 +897,12 @@ Public Class cAviso
Property Freigabe_Info As String = ""
Property KdAuftragsNr_Avisierer As Object = Nothing
Property KdAuftragsNr_Frachtfuehrer As Object = Nothing
Property FreigabeFiliale As Object = Nothing
Property VoraussichtlichesEintreffen As Object = Nothing
Shared Function getAvisoById(hID, Optional hSQL = "") As cAviso
Dim AVISODAL As New cAvisoDAL
@@ -920,6 +927,10 @@ Public Class cAviso
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
SQL.doSQL("UPDATE AVISO SET Freigabe_Info='" & Freigabe_Info & "' WHERE AvisoId=" & AvisoID, "AVISO")
End Sub
End Class
Public Class cDruckAviso
@@ -1003,9 +1014,15 @@ Public Class cAvisoDAL
daten.FahrerHandy = VarToStr(dr.Item("FahrerHandy"))
daten.LKW_Nationalitaet = VarToStr(dr.Item("LKW_Nationalitaet"))
daten.DakosyRef = VarToStr(dr.Item("DakosyRef"))
daten.LetzterMitarbeiterId = If(dr.Item("letzterMitarbeiterid") Is DBNull.Value, Nothing, dr.Item("letzterMitarbeiterid"))
daten.TeamId = If(dr.Item("TeamId") Is DBNull.Value, Nothing, dr.Item("TeamId"))
daten.Cluster = If(dr.Item("Cluster") Is DBNull.Value, Nothing, dr.Item("Cluster"))
daten.Freigabe_Info = VarToStr(dr.Item("Freigabe_Info"))
daten.KdAuftragsNr_Frachtfuehrer = If(dr.Item("KdAuftragsNr_Frachtfuehrer") Is DBNull.Value, Nothing, dr.Item("KdAuftragsNr_Frachtfuehrer"))
daten.KdAuftragsNr_Avisierer = If(dr.Item("KdAuftragsNr_Avisierer") Is DBNull.Value, Nothing, dr.Item("KdAuftragsNr_Avisierer"))
daten.FreigabeFiliale = If(dr.Item("FreigabeFiliale") Is DBNull.Value, Nothing, dr.Item("FreigabeFiliale"))
daten.VoraussichtlichesEintreffen = If(dr.Item("VoraussichtlichesEintreffen") Is DBNull.Value, Nothing, dr.Item("VoraussichtlichesEintreffen"))
End If
@@ -1263,7 +1280,7 @@ Public Class cAvisoDAL
conn.Close()
End Sub
Public Function SpeichernAviso(ByVal d As cAviso) As Integer
Public Function SpeichernAviso(ByVal d As cAviso, Optional letzerMaIdAuto As Boolean = True) As Integer
Dim hAuswahl As String
Dim id As Integer = -1
If d.AvisoID <= 0 Then
@@ -1271,17 +1288,17 @@ Public Class cAvisoDAL
hAuswahl = "INSERT INTO Aviso " &
"(Datum, LKW_Nr, Telefonisch, Änderungen, Info, Status, Auftraggeber, Frächter, letzterMitarbeiter, " &
"Vorbereitet,Vorgeschrieben, Ankunft, Freigabe, Dauer, AvisoEingang, Grenzstelle, LKW_fertig,letzterMitarbeiterId,Handling,Sendungen_Gesamtanzahl,Sammelakt,Frächter_KdNr,Auftraggeber_KdNr,AvisoTVHinweis,Buero,Imex,Abgeschlossen,FIRMA, " &
" Durchgangszollstelle1,Durchgangszollstelle2,Durchgangszollstelle3,Durchgangszollstelle4,Durchgangszollstelle5,Durchgangszollstelle6,Ausgangszollstelle,Zollstelle,TransportTemperatur,Zugmaschine,FahrerHandy,LKW_Nationalitaet,DakosyRef,TeamId,Cluster,Freigabe_Info) VALUES (" &
" Durchgangszollstelle1,Durchgangszollstelle2,Durchgangszollstelle3,Durchgangszollstelle4,Durchgangszollstelle5,Durchgangszollstelle6,Ausgangszollstelle,Zollstelle,TransportTemperatur,Zugmaschine,FahrerHandy,LKW_Nationalitaet,DakosyRef,TeamId,Cluster,Freigabe_Info,KdAuftragsNr_Frachtfuehrer,KdAuftragsNr_Avisierer,FreigabeFiliale,VoraussichtlichesEintreffen) VALUES (" &
"@Datum, @LKW_Nr, @Telefonisch, @Änderungen, @Info, @Status, @Auftraggeber, @Frächter, @letzterMitarbeiter, " &
"@Vorbereitet, @Vorgeschrieben, @Ankunft, @Freigabe, @Dauer, @AvisoEingang, @Grenzstelle, @LKW_fertig,@letzterMitarbeiterId,@Handling,@Sendungen_Gesamtanzahl,@Sammelakt,@Frächter_KdNr,@Auftraggeber_KdNr,@AvisoTVHinweis,@Buero,@Imex,@Abgeschlossen,@FIRMA," &
"@Durchgangszollstelle1,@Durchgangszollstelle2,@Durchgangszollstelle3,@Durchgangszollstelle4,@Durchgangszollstelle5,@Durchgangszollstelle6,@Ausgangszollstelle,@Zollstelle,@TransportTemperatur,@Zugmaschine,@FahrerHandy,@LKW_Nationalitaet,@DakosyRef,@TeamId,@Cluster,@Freigabe_Info); SELECT CAST(scope_identity() AS int);"
"@Durchgangszollstelle1,@Durchgangszollstelle2,@Durchgangszollstelle3,@Durchgangszollstelle4,@Durchgangszollstelle5,@Durchgangszollstelle6,@Ausgangszollstelle,@Zollstelle,@TransportTemperatur,@Zugmaschine,@FahrerHandy,@LKW_Nationalitaet,@DakosyRef,@TeamId,@Cluster,@Freigabe_Info,@KdAuftragsNr_Frachtfuehrer,@KdAuftragsNr_Avisierer,@FreigabeFiliale,@VoraussichtlichesEintreffen); SELECT CAST(scope_identity() AS int);"
Else
id = d.AvisoID
'Änderung
hAuswahl = String.Format(
"UPDATE Aviso SET Datum = @Datum, LKW_Nr = @LKW_Nr, Telefonisch=@Telefonisch, Änderungen=@Änderungen, Info=@Info, Status=@Status, Auftraggeber=@Auftraggeber, Frächter=@Frächter, " &
" letzterMitarbeiter = @letzterMitarbeiter, Vorbereitet=@Vorbereitet,Vorgeschrieben=@Vorgeschrieben, Ankunft = @Ankunft, Freigabe = @Freigabe, Dauer = @Dauer, AvisoEingang = @AvisoEingang, Grenzstelle=@Grenzstelle, LKW_fertig=@LKW_fertig, letzterMitarbeiterId=@letzterMitarbeiterId, Handling=@Handling,Sendungen_Gesamtanzahl=@Sendungen_Gesamtanzahl,Sammelakt=@Sammelakt,Frächter_KdNr=@Frächter_KdNr,Auftraggeber_KdNr=@Auftraggeber_KdNr,AvisoTVHinweis=@AvisoTVHinweis,Buero=@Buero,Imex=@Imex,Abgeschlossen=@Abgeschlossen, " &
" Durchgangszollstelle1=@Durchgangszollstelle1,Durchgangszollstelle2=@Durchgangszollstelle2,Durchgangszollstelle3=@Durchgangszollstelle3,Durchgangszollstelle4=@Durchgangszollstelle4,Durchgangszollstelle5=@Durchgangszollstelle5,Durchgangszollstelle6=@Durchgangszollstelle6,Ausgangszollstelle=@Ausgangszollstelle,Zollstelle=@Zollstelle,TransportTemperatur=@TransportTemperatur,Zugmaschine=@Zugmaschine,FahrerHandy=@FahrerHandy, LKW_Nationalitaet=@LKW_Nationalitaet, DakosyRef=@DakosyRef,TeamId=@TeamId,Cluster=@Cluster,Freigabe_Info=@Freigabe_Info " &
" Durchgangszollstelle1=@Durchgangszollstelle1,Durchgangszollstelle2=@Durchgangszollstelle2,Durchgangszollstelle3=@Durchgangszollstelle3,Durchgangszollstelle4=@Durchgangszollstelle4,Durchgangszollstelle5=@Durchgangszollstelle5,Durchgangszollstelle6=@Durchgangszollstelle6,Ausgangszollstelle=@Ausgangszollstelle,Zollstelle=@Zollstelle,TransportTemperatur=@TransportTemperatur,Zugmaschine=@Zugmaschine,FahrerHandy=@FahrerHandy, LKW_Nationalitaet=@LKW_Nationalitaet, DakosyRef=@DakosyRef,TeamId=@TeamId,Cluster=@Cluster,Freigabe_Info=@Freigabe_Info,KdAuftragsNr_Frachtfuehrer =@KdAuftragsNr_Frachtfuehrer,KdAuftragsNr_Avisierer=@KdAuftragsNr_Avisierer , FreigabeFiliale=@FreigabeFiliale,VoraussichtlichesEintreffen=@VoraussichtlichesEintreffen" &
" WHERE AvisoID = @AvisoID")
End If
@@ -1316,7 +1333,7 @@ Public Class cAvisoDAL
cmd.Parameters.AddWithValue("@Grenzstelle", d.Grenzstelle)
cmd.Parameters.AddWithValue("@LKW_fertig", d.LKW_fertig)
cmd.Parameters.AddWithValue("@AvisoID", d.AvisoID)
cmd.Parameters.AddWithValue("@letzterMitarbeiterId", cGlobal.AktiverMitarbeiter.MitarbeiterID)
cmd.Parameters.AddWithValue("@letzterMitarbeiterId", If(letzerMaIdAuto, cGlobal.AktiverMitarbeiter.MitarbeiterID, IIf(IsNumeric(d.LetzterMitarbeiterId), d.LetzterMitarbeiterId, DBNull.Value)))
cmd.Parameters.AddWithValue("@Handling", d.Handling)
cmd.Parameters.AddWithValue("@Sendungen_Gesamtanzahl", d.Sendungen_Gesamtanzahl)
cmd.Parameters.AddWithValue("@Sammelakt", d.Sammelakt)
@@ -1346,6 +1363,11 @@ Public Class cAvisoDAL
cmd.Parameters.AddWithValue("@Cluster", If(d.Cluster Is Nothing, DBNull.Value, d.Cluster))
cmd.Parameters.AddWithValue("@Freigabe_Info", d.Freigabe_Info)
cmd.Parameters.AddWithValue("@KdAuftragsNr_Frachtfuehrer", If(d.KdAuftragsNr_Frachtfuehrer Is Nothing, DBNull.Value, d.KdAuftragsNr_Frachtfuehrer))
cmd.Parameters.AddWithValue("@KdAuftragsNr_Avisierer", If(d.KdAuftragsNr_Avisierer Is Nothing, DBNull.Value, d.KdAuftragsNr_Avisierer))
cmd.Parameters.AddWithValue("@FreigabeFiliale", If(d.FreigabeFiliale Is Nothing, DBNull.Value, d.FreigabeFiliale))
cmd.Parameters.AddWithValue("@VoraussichtlichesEintreffen", If(d.VoraussichtlichesEintreffen Is Nothing, DBNull.Value, d.VoraussichtlichesEintreffen))
Try
If d.AvisoID <= 0 Then
@@ -1689,10 +1711,13 @@ Public Class cVermerk
Property Hinweis_Vermerk As String
Property VermerkCodeId As Integer
Property Beschreibung As String = ""
End Class
Public Class cVermerkeDAL
Public Function LesenVermerk(hID As Integer, hSQL As String) As cVermerk
'falls ID mitgegeben, dann diese laden, ansonsten den anderen Wert suchen
Dim sql As String
@@ -1858,7 +1883,9 @@ Public Class cVermerkeDAL
End Function
Public Sub SpeichernVermerk(ByVal d As cVermerk)
Public Function SpeichernVermerk(ByVal d As cVermerk) As Integer
SpeichernVermerk = -1
Dim hAuswahl As String
If d.VermerkID = 0 Then
'Neuanlage
@@ -1885,16 +1912,42 @@ Public Class cVermerkeDAL
Try
cmd.ExecuteNonQuery()
Dim newcmd As New SqlCommand("SELECT @@IDENTITY", conn)
SpeichernVermerk = CInt(newcmd.ExecuteScalar)
Catch ex As SqlException
MsgBox("Datensatz kann nicht gespeichert werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Speichern Vermerk")
End Try
End Using
conn.Close()
End Sub
End Function
Public Function SpeichernVermerkIDAufgehoben(VermerkID, VermerkIDAufgehoben) As Boolean
Dim SQLstr As String = " UPDATE Vermerke SET VermerkIDAufgehoben = @VermerkIDAufgehoben WHERE VermerkID = @VermerkID"
'MsgBox("UPDATE Vermerke SET VermerkIDAufgehoben = " & VermerkIDAufgehoben & " WHERE VermerkID = " & VermerkID & "")
Dim conn As SqlConnection = cDatenbankAVISO.GetNewOpenConnection()
Using cmd As New SqlCommand(SQLstr, conn)
cmd.Parameters.AddWithValue("@VermerkID", VermerkID)
cmd.Parameters.AddWithValue("@VermerkIDAufgehoben", VermerkIDAufgehoben)
Try
cmd.ExecuteNonQuery()
Return True
Catch ex As SqlException
MsgBox("Datensatz kann nicht gespeichert werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Speichern Vermerk")
End Try
End Using
conn.Close()
Return False
End Function
Public Sub UpdateLKW(ByVal avisoID As Integer, ByVal LKW_fertig As Boolean)
Dim sql = "UPDATE Aviso SET [LKW_fertig]= @LKW_fertig WHERE AvisoID = @AvisoID"
Dim sql = "UPDATE Aviso Set [LKW_fertig]= @LKW_fertig WHERE AvisoID = @AvisoID"
Dim conn As SqlConnection = cDatenbankAVISO.GetNewOpenConnection()
Using cmd As New SqlCommand(sql, conn)
cmd.Parameters.AddWithValue("@LKW_fertig", LKW_fertig)
@@ -1910,7 +1963,7 @@ Public Class cVermerkeDAL
Public Sub UpdateSendungVorbereitet(ByVal AvisoID As Integer, ByVal sendungsId As Integer, ByVal MaId As Integer, ByVal inBearbeitung As Boolean)
Dim sql = "UPDATE tblSendungen SET tblSnd_inBearbeitung= @inBearbeitung,tblSnd_Bearbeitung_MaId= @MaId WHERE tblSnd_SendungID = @sendungsId"
Dim sql = "UPDATE tblSendungen Set tblSnd_inBearbeitung= @inBearbeitung, tblSnd_Bearbeitung_MaId = @MaId WHERE tblSnd_SendungID = @sendungsId"
Dim conn As SqlConnection = cDatenbankAVISO.GetNewOpenConnection()
Using cmd As New SqlCommand(sql, conn)
cmd.Parameters.AddWithValue("@inBearbeitung", inBearbeitung)
@@ -1929,7 +1982,7 @@ Public Class cVermerkeDAL
Public Sub SetInBearbeitungAVISO(ByVal AvisoID As Integer)
Dim sql = "UPDATE Aviso SET inBearbeitung= (SELECT CASE WHEN count([tblSnd_inBearbeitung])>0 THEN '1' ELSE '0' END FROM [tblSendungen] where [tblSnd_AvisoID]=@AvisoID) WHERE AvisoID = @AvisoID "
Dim sql = "UPDATE Aviso SET inBearbeitung= (SELECT CASE WHEN count([tblSnd_inBearbeitung])>0 Then '1' ELSE '0' END FROM [tblSendungen] where [tblSnd_AvisoID]=@AvisoID) WHERE AvisoID = @AvisoID "
Dim conn As SqlConnection = cDatenbankAVISO.GetNewOpenConnection()
Using cmd As New SqlCommand(sql, conn)
cmd.Parameters.AddWithValue("@AvisoID", AvisoID)
@@ -2508,7 +2561,7 @@ Public Class StatDB
' cn.ConnectionString = "Data Source=BUCHHALTUNG\SQLEXPRESS;Initial Catalog=AVISO;Integrated Security=false;User ID=sa;Password=BmWr501956;"
' cn.Open()
cn = cDatenbankAVISO.GetNewOpenConnection()
Using cmd As New SqlCommand("SELECT COUNT(*) FROM [Aviso] where " & art & " between @DatVon and @DatBis and Grenzstelle='SUB' AND Firma='" & If(firma <> "", firma, VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA) & "' ", cn)
Using cmd As New SqlCommand("SELECT COUNT(*) FROM [Aviso] where " & art & " between @DatVon and @DatBis and AND Firma='" & If(firma <> "", firma, VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA) & "' ", cn)
'DATEADD(dd, 0, DATEDIFF(dd, 0, [Ankunft]))=DATEADD(dd, 0, DATEDIFF(dd, 0, [Freigabe])) AND
Dim VonStr = ""
Dim BisStr = ""
@@ -2543,6 +2596,40 @@ Public Class StatDB
Return 0
End Function
Public Function getAnzahlLkwAnkunft(art As String, ByVal datTmp As Date, firma As String) As Integer
Dim lkws As Integer = 0
Try
Dim cn As New SqlConnection()
' cn.ConnectionString = "Data Source=BUCHHALTUNG\SQLEXPRESS;Initial Catalog=AVISO;Integrated Security=false;User ID=sa;Password=BmWr501956;"
' cn.Open()
cn = cDatenbankAVISO.GetNewOpenConnection()
Using cmd As New SqlCommand("SELECT COUNT(*) FROM [Aviso] where " & art & " between @DatVon and @DatBis AND Firma='" & If(firma <> "", firma, VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA) & "' ", cn)
'DATEADD(dd, 0, DATEDIFF(dd, 0, [Ankunft]))=DATEADD(dd, 0, DATEDIFF(dd, 0, [Freigabe])) AND
Dim VonStr = ""
Dim BisStr = ""
VonStr = datTmp.ToString("yyyy-MM-dd ") & "00:00:00"
BisStr = datTmp.ToString("yyyy-MM-dd ") & "23:59:59"
cmd.Parameters.AddWithValue("@DatVon", VonStr)
cmd.Parameters.AddWithValue("@DatBis", BisStr)
' MsgBox(VonStr)
Dim dr = cmd.ExecuteReader()
If dr.HasRows Then
dr.Read()
lkws = CInt(dr.Item(0))
End If
dr.Close()
cn.Close()
End Using
Return lkws
Catch ex As Exception
MsgBox(ex.Message)
End Try
Return 0
End Function
Public Function getAnzahlLkwDauer(ByVal datumVon As DateTime, ByVal datumBis As DateTime, ByVal DauerVon As String, ByVal DauerBis As String, ByVal DauerEinschrVon As String, ByVal DauerEinschrBis As String, Optional where As String = "") As Integer
Dim sql As String = "SELECT count(*) as count " &

74
VERAG_PROG_ALLGEMEIN/AVISO/cMeineFunktionenAVISO.vb
View File

@@ -146,6 +146,9 @@ Public Class cMeineFunktionenAVISO
End Function
Public Shared Function Minuten_auf_Text(hMinuten As Long) As String
If hMinuten <= 0 Then Return ""
Dim hStunden As Long
Dim hMinus As Boolean
Dim hMin As Long
@@ -179,6 +182,77 @@ Public Class cMeineFunktionenAVISO
Return VERAG_PROG_ALLGEMEIN.cAllgemein.getMaxPosNrIncrement(FilialeNr, CInt(IIf(Year > 0, Year, Now.Year)))
End Function
Public Shared Function LKWFertig(AvisoID, Optional newLKWOK = Nothing) As Boolean
Dim AvisoDAL As New VERAG_PROG_ALLGEMEIN.cAvisoDAL
Dim VermerkeDAL As New VERAG_PROG_ALLGEMEIN.cVermerkeDAL
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("VERIMEX", "AVISO") Then
MsgBox("Keine Berechtigung!")
Return False
End If
'falls keine Auswahl bzw. kein Datensatz, dann nichts machen
If AvisoID <= 0 Then
MsgBox("Kein Aviso ausgewählt!")
Return False
End If
'jetzt ausgewählten Datensatz einlesen
Dim Aviso As New cAviso
Aviso = AvisoDAL.LesenAviso(AvisoID, "")
If Aviso Is Nothing Then Return False
If Aviso.Abgeschlossen Then MsgBox("Der Akt wurde bereichts abgeschlossen.", vbInformation) : Return False
If newLKWOK Is Nothing Then
newLKWOK = Not Aviso.LKW_fertig
Else
If newLKWOK = Aviso.LKW_fertig Then Return True 'Wenn schon OK ist
End If
Dim msg As String
Dim antwort As MsgBoxResult
'Taste LKW ist fertig
If Aviso.Status <> VERAG_PROG_ALLGEMEIN.cGlobal.Status_Ankunft Then
MsgBox("Es kann nur ein LKW mit Status ANKUNFT auf 'FERTIG/nicht FERTIG' gesetzt werden.", vbInformation)
Return False
End If
Dim aendArt As String = ""
Dim aendText As String = ""
'Status ist Ankunft - LKW wird je nach Eintrag auf Fertig/nicht fertig gesetzt
Aviso.letzterMitarbeiter = VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter
Aviso.TeamId = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId
Dim hVermerk As New cVermerk 'bei Fertig zusätzlich einen Vermerk setzen
hVermerk.AvisoID = Aviso.AvisoID
hVermerk.Datum = Now
hVermerk.Mitarbeiter = VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter
hVermerk.MitarbeiterId = VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.MitarbeiterID
If newLKWOK Then
Aviso.LKW_fertig = True
Aviso.Änderungen = "LKW ist fertig - gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm") & vbCrLf & Trim(VarToStr(Aviso.Änderungen))
hVermerk.Hinweis_Vermerk = "LKW ist fertig!"
hVermerk.VermerkCodeId = 26
VermerkeDAL.SpeichernVermerk(hVermerk)
aendArt = "LKW ist fertig - gesetzt"
aendText = "LKW ist fertig - gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm")
Else
Aviso.LKW_fertig = False
Aviso.Änderungen = "LKW ist nicht fertig - gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm") & vbCrLf & Trim(VarToStr(Aviso.Änderungen))
hVermerk.Hinweis_Vermerk = "LKW ist nicht fertig."
hVermerk.VermerkCodeId = 27
VermerkeDAL.SpeichernVermerk(hVermerk)
aendArt = "LKW ist nicht fertig - gesetzt"
aendText = "LKW ist nicht fertig - gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm")
End If
Dim tmpid = AvisoDAL.SpeichernAviso(Aviso)
AvisoDAL.addAenderung(tmpid, aendArt, aendText)
Return (tmpid > 0)
End Function
End Class

187
VERAG_PROG_ALLGEMEIN/AVISO/cVermerkeCodes.vb Normal file
View File

@@ -0,0 +1,187 @@

Imports System.Data.SqlClient
Imports System.Reflection
Public Class cVermerkeCodes_LIST
Dim LIST As New List(Of cVermerkeCodes)
Sub New()
LOAD_LIST()
End Sub
Public Sub LOAD_LIST()
Try
LIST.Clear()
Using conn As SqlConnection = SQL.GetNewOpenConnectionAVISO()
Using cmd As New SqlCommand("SELECT * FROM VermerkeCodes ", conn)
' cmd.Parameters.AddWithValue("@OffertenNr", OffertenNr)
Dim dr = cmd.ExecuteReader()
While dr.Read
Dim l As New cVermerkeCodes
For Each i In l.getParameterList()
Dim propInfo As PropertyInfo = l.GetType.GetProperty(i.Scalarvariable)
If dr.Item(i.Text) Is DBNull.Value Then
propInfo.SetValue(l, Nothing)
Else
propInfo.SetValue(l, dr.Item(i.Text))
End If
Next
LIST.Add(l)
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 getTxt(VermerkCodeId, language) As String
For Each l In LIST
If l.VermerkCodeId = VermerkCodeId Then
Select Case language
Case "EN" : If l.Beschreibung_EN <> "" Then Return l.Beschreibung_EN
Case "TR" : If l.Beschreibung_TR <> "" Then Return l.Beschreibung_TR
Case "SRB", "YU" : If l.Beschreibung_SRB <> "" Then Return l.Beschreibung_SRB
Case "RO" : If l.Beschreibung_RO <> "" Then Return l.Beschreibung_RO
Case "BG" : If l.Beschreibung_BG <> "" Then Return l.Beschreibung_BG
Case "HU" : If l.Beschreibung_HU <> "" Then Return l.Beschreibung_HU
Case Else : If l.Beschreibung_DE <> "" Then Return l.Beschreibung_DE
End Select
Return l.Bezeichnung
End If
Next
Return ""
End Function
End Class
Public Class cVermerkeCodes
Property VermerkCodeId As Integer
Property Bezeichnung As String = ""
Property LKW_Vermerk As Boolean
Property Kunde_Vermerk As Boolean
Property Beschreibung_DE As String = ""
Property Beschreibung_EN As String = ""
Property Beschreibung_TR As String = ""
Property Beschreibung_SRB As String = ""
Property Beschreibung_RO As String = ""
Property Beschreibung_BG As String = ""
Property Beschreibung_HU As String = ""
Dim SQL As New SQL
Sub New()
End Sub
Sub New(VermerkCodeId)
Me.VermerkCodeId = VermerkCodeId
LOAD()
End Sub
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("VermerkCodeId", VermerkCodeId))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Bezeichnung", Bezeichnung))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("LKW_Vermerk", LKW_Vermerk))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Kunde_Vermerk", Kunde_Vermerk))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Beschreibung_DE", Beschreibung_DE))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Beschreibung_EN", Beschreibung_EN))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Beschreibung_TR", Beschreibung_TR))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Beschreibung_SRB", Beschreibung_SRB))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Beschreibung_RO", Beschreibung_RO))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Beschreibung_BG", Beschreibung_BG))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Beschreibung_HU", Beschreibung_HU))
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 VermerkeCodes WHERE VermerkCodeId=@VermerkCodeId) " &
" BEGIN " & getUpdateCmd() & " END " &
" Else " &
" BEGIN " & getInsertCmd() & " END " &
" commit tran "
Return SQL.doSQLVarList(sqlstr, "AVISO", , list)
End Function
Public Sub LOAD()
Try
Using conn As SqlConnection = SQL.GetNewOpenConnectionAVISO()
Using cmd As New SqlCommand("SELECT * FROM VermerkeCodes WHERE VermerkCodeId=@VermerkCodeId ", conn)
cmd.Parameters.AddWithValue("@VermerkCodeId", VermerkCodeId)
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
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 [VermerkeCodes] SET " & str & " WHERE VermerkCodeId=@VermerkCodeId ")
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 VermerkeCodes (" & 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

58
VERAG_PROG_ALLGEMEIN/App.config
View File

@@ -9,22 +9,38 @@
</sectionGroup>
</configSections>
<connectionStrings>
<add name="VERAG_PROG_ALLGEMEIN.My.MySettings.FMZOLL_PRODConnectionString" connectionString="Data Source=192.168.0.91\SQLFMZOLL;Initial Catalog=VERAG;Integrated Security=false;User ID=test;Password=BmWr501956;"/>
<add name="VERAG_PROG_ALLGEMEIN.My.MySettings.ATLASConnectionString" connectionString="Data Source=192.168.0.95\SQLATLAS;Initial Catalog=atlas;Integrated Security=false;User ID=sa;Password=BmWr501956;"/>
<add name="VERAG_PROG_ALLGEMEIN.My.MySettings.ADMINConnectionString" connectionString="Data Source=192.168.0.94\SQLEXPRESS;Initial Catalog=ADMIN;Integrated Security=false;User ID=sa;Password=BmWr501956;"/>
<add name="VERAG_PROG_ALLGEMEIN.My.MySettings.SDL_PRODConnectionString" connectionString="Data Source=192.168.0.91\SQLFMZOLL;Initial Catalog=SDL;Integrated Security=false;User ID=sa;Password=BmWr501956;"/>
<add name="VERAG_PROG_ALLGEMEIN.My.MySettings.FMZOLLConnectionString" connectionString="Data Source=192.168.0.90\DEVSQL;Initial Catalog=VERAG;Integrated Security=false;User ID=sa;Password=BmWr501956;"/>
<add name="VERAG_PROG_ALLGEMEIN.My.MySettings.AVISOConnectionStringTEST" connectionString="Data Source=192.168.0.90\DEVSQL;Initial Catalog=AVISO_new;Integrated Security=false;User ID=sa;Password=BmWr501956;Pooling=true;Min Pool Size=5;Max Pool Size=200"/>
<add name="VERAG_PROG_ALLGEMEIN.My.MySettings.AVISOConnectionString" connectionString="Data Source=192.168.0.94\SQLEXPRESS;Initial Catalog=AVISO;Integrated Security=false;User ID=sa;Password=BmWr501956;Pooling=true;Min Pool Size=5;Max Pool Size=200"/>
<add name="VERAG_PROG_ALLGEMEIN.My.MySettings.SDLConnectionString" connectionString="Data Source=192.168.0.90\DEVSQL;Initial Catalog=SDL;Integrated Security=False;Persist Security Info=True;User ID=sa;Password=BmWr501956;TrustServerCertificate=False"/>
<add name="VERAG_PROG_ALLGEMEIN.My.MySettings.EZOLLConnectionString" connectionString="Data Source=192.168.0.94\SQLEXPRESS;Initial Catalog=ezoll;Integrated Security=false;User ID=sa;Password=BmWr501956;"/>
<add name="VERAG_PROG_ALLGEMEIN.My.MySettings.AVISO_ATILLAConnectionString" connectionString="Data Source=192.168.0.94\SQLEXPRESS;Initial Catalog=AVISO;Integrated Security=false;User ID=sa;Password=BmWr501956;Pooling=true;Min Pool Size=5;Max Pool Size=200"/>
<add name="VERAG_PROG_ALLGEMEIN.My.MySettings.ATLAS_SBGConnectionString" connectionString="Data Source=192.168.133.98;Initial Catalog=atlas;Integrated Security=false;User ID=sa;Password=BmWr501956;"/>
<add name="VERAG_PROG_ALLGEMEIN.My.MySettings.UIDConnectionString" connectionString="Data Source=192.168.0.90\DEVSQL;Initial Catalog=UID;Persist Security Info=True;User ID=sa;Password=BmWr501956"/>
<add name="VERAG_PROG_ALLGEMEIN.My.MySettings.UID_PRODConnectionString" connectionString="Data Source=192.168.0.94\SQLEXPRESS;Initial Catalog=UID;Integrated Security=false;User ID=sa;Password=BmWr501956;"/>
<add name="VERAG_PROG_ALLGEMEIN.My.MySettings.FDConnectionString" connectionString="Data Source=192.168.0.94\SQLEXPRESS;Initial Catalog=FD;Integrated Security=false;User ID=sa;Password=BmWr501956;"/>
<add name="VERAG_PROG_ALLGEMEIN.My.MySettings.FD_PRODConnectionString" connectionString="Data Source=192.168.0.90\DEVSQL;Initial Catalog=FD;Integrated Security=false;User ID=sa;Password=BmWr501956;"/>
<add name="VERAG_PROG_ALLGEMEIN.My.MySettings.DISPOConnectionStringTEST" connectionString="Data Source=192.168.0.90\DEVSQL;Initial Catalog=DISPO;Integrated Security=false;User ID=sa;Password=BmWr501956;Pooling=true;Min Pool Size=5;Max Pool Size=200" providerName=""/>
<add name="VERAG_PROG_ALLGEMEIN.My.MySettings.FMZOLL_PRODConnectionString"
connectionString="Data Source=192.168.0.91\SQLFMZOLL;Initial Catalog=VERAG;Integrated Security=false;User ID=test;Password=BmWr501956;" />
<add name="VERAG_PROG_ALLGEMEIN.My.MySettings.ATLASConnectionString"
connectionString="Data Source=192.168.0.95\SQLATLAS;Initial Catalog=atlas;Integrated Security=false;User ID=sa;Password=BmWr501956;" />
<add name="VERAG_PROG_ALLGEMEIN.My.MySettings.ADMINConnectionString"
connectionString="Data Source=SQLGUIDE01.verag.ost.dmn\SQLEXPRESS;Initial Catalog=ADMIN;Integrated Security=false;User ID=sa;Password=BmWr501956;" />
<add name="VERAG_PROG_ALLGEMEIN.My.MySettings.SDL_PRODConnectionString"
connectionString="Data Source=192.168.0.91\SQLFMZOLL;Initial Catalog=SDL;Integrated Security=false;User ID=sa;Password=BmWr501956;" />
<add name="VERAG_PROG_ALLGEMEIN.My.MySettings.FMZOLLConnectionString"
connectionString="Data Source=192.168.0.90\DEVSQL;Initial Catalog=VERAG;Integrated Security=false;User ID=sa;Password=BmWr501956;" />
<add name="VERAG_PROG_ALLGEMEIN.My.MySettings.AVISOConnectionStringTEST"
connectionString="Data Source=192.168.0.90\DEVSQL;Initial Catalog=AVISO_new;Integrated Security=false;User ID=sa;Password=BmWr501956;Pooling=true;Min Pool Size=5;Max Pool Size=200" />
<add name="VERAG_PROG_ALLGEMEIN.My.MySettings.AVISOConnectionString"
connectionString="Data Source=SQLGUIDE01.verag.ost.dmn\SQLEXPRESS;Initial Catalog=AVISO;Integrated Security=false;User ID=sa;Password=BmWr501956;Pooling=true;Min Pool Size=5;Max Pool Size=200" />
<add name="VERAG_PROG_ALLGEMEIN.My.MySettings.SDLConnectionString"
connectionString="Data Source=192.168.0.90\DEVSQL;Initial Catalog=SDL;Integrated Security=False;Persist Security Info=True;User ID=sa;Password=BmWr501956;TrustServerCertificate=False" />
<add name="VERAG_PROG_ALLGEMEIN.My.MySettings.EZOLLConnectionString"
connectionString="Data Source=SQLGUIDE01.verag.ost.dmn\SQLEXPRESS;Initial Catalog=ezoll;Integrated Security=false;User ID=sa;Password=BmWr501956;" />
<add name="VERAG_PROG_ALLGEMEIN.My.MySettings.AVISO_ATILLAConnectionString"
connectionString="Data Source=SQLGUIDE01.verag.ost.dmn\SQLEXPRESS;Initial Catalog=AVISO;Integrated Security=false;User ID=sa;Password=BmWr501956;Pooling=true;Min Pool Size=5;Max Pool Size=200" />
<add name="VERAG_PROG_ALLGEMEIN.My.MySettings.ATLAS_SBGConnectionString"
connectionString="Data Source=192.168.133.98;Initial Catalog=atlas;Integrated Security=false;User ID=sa;Password=BmWr501956;" />
<add name="VERAG_PROG_ALLGEMEIN.My.MySettings.UIDConnectionString"
connectionString="Data Source=192.168.0.90\DEVSQL;Initial Catalog=UID;Persist Security Info=True;User ID=sa;Password=BmWr501956" />
<add name="VERAG_PROG_ALLGEMEIN.My.MySettings.UID_PRODConnectionString"
connectionString="Data Source=SQLGUIDE01.verag.ost.dmn\SQLEXPRESS;Initial Catalog=UID;Integrated Security=false;User ID=sa;Password=BmWr501956;" />
<add name="VERAG_PROG_ALLGEMEIN.My.MySettings.FDConnectionString"
connectionString="Data Source=SQLGUIDE01.verag.ost.dmn\SQLEXPRESS;Initial Catalog=FD;Integrated Security=false;User ID=sa;Password=BmWr501956;" />
<add name="VERAG_PROG_ALLGEMEIN.My.MySettings.FD_PRODConnectionString"
connectionString="Data Source=192.168.0.90\DEVSQL;Initial Catalog=FD;Integrated Security=false;User ID=sa;Password=BmWr501956;" />
<add name="VERAG_PROG_ALLGEMEIN.My.MySettings.DISPOConnectionStringTEST"
connectionString="Data Source=192.168.0.90\DEVSQL;Initial Catalog=DISPO;Integrated Security=false;User ID=sa;Password=BmWr501956;Pooling=true;Min Pool Size=5;Max Pool Size=200" />
</connectionStrings>
<startup>
<supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.7"/>
@@ -35,16 +51,20 @@
<value>Data Source=192.168.0.99;Initial Catalog=Therefore;Integrated Security=false;User ID=sa;Password=BmWr501956;</value>
</setting>
<setting name="d" serializeAs="String">
<value/>
<value />
</setting>
<setting name="DISPOConnectionString" serializeAs="String">
<value>Data Source=192.168.0.94\SQLEXPRESS;Initial Catalog=DISPO;Integrated Security=false;User ID=sa;Password=BmWr501956;Pooling=true;Min Pool Size=5;Max Pool Size=200</value>
<value>Data Source=SQLGUIDE01.verag.ost.dmn\SQLEXPRESS;Initial Catalog=DISPO;Integrated Security=false;User ID=sa;Password=BmWr501956;Pooling=true;Min Pool Size=5;Max Pool Size=200</value>
</setting>
<setting name="jjjjj8uuuuu" serializeAs="String">
<value />
</setting>
</VERAG_PROG_ALLGEMEIN.My.MySettings>
</userSettings>
<applicationSettings>
<VERAG_PROG_ALLGEMEIN.My.MySettings>
<setting name="VERAG_PROG_ALLGEMEIN_UIDPruefung_checkVatService" serializeAs="String">
<setting name="VERAG_PROG_ALLGEMEIN_UIDPruefung_checkVatService"
serializeAs="String">
<value>http://ec.europa.eu/taxation_customs/vies/services/checkVatService</value>
</setting>
</VERAG_PROG_ALLGEMEIN.My.MySettings>

24
VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/KdSearchBox.vb
View File

@@ -32,6 +32,7 @@ Public Class KdSearchBox
Public Property dgvpos As String = "LEFT"
Public Property _autoSizeGross As Boolean = False
Public Property _AlleFirmenCLUSTER As Boolean = False
Public Property _UseFIRMA As String = ""
Public usrcntlWIDTH = 600
Public usrcntlHEIGHT = 380
@@ -278,7 +279,7 @@ Public Class KdSearchBox
AvisoEmail = ", (SELECT CASE WHEN Count(*)>0 Then 'JA' ELSE '' END [Adressen] FROM [tblEmailBenachrichtigung] WHERE [eb_KundenNr]=AdressenNr) as [E-Mail] "
End If
Dim SQLstr As String = " SELECT top " & topAnz & " Ordnungsbegriff as Firma, AdressenNr as KdNr,Adressen.[LandKz] + ' ' + Adressen.[PLZ] + ' - ' + Adressen.[Ort] + ' ' + Adressen.[Straße] as Adresse " & AvisoEmail & " "
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "FRONTOFFICE" Or _AlleFirmenCLUSTER Then SQLstr &= ", Filialen.Firma as Firma_Intern "
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "FRONTOFFICE" Or _AlleFirmenCLUSTER Or _UseFIRMA <> "" Or VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("AVISO_IMEX", "AVISO") Then SQLstr &= ", Filialen.Firma as Firma_Intern "
SQLstr &= " FROM [Adressen] "
SQLstr &= " INNER JOIN Kunden on KundenNr=AdressenNr "
SQLstr &= " INNER JOIN Filialen on Filialen.FilialenNr=isnull(Kunden.FilialenNr,4803) "
@@ -295,8 +296,14 @@ Public Class KdSearchBox
If _AlleFirmenCLUSTER Then
SQLstr &= " AND '" & VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER & "' IN (Filialen.Firma,Filialen.Cluster) " ' Wenn die Firmenbezeichnung im CLUSter vorkommt .--> Frontoffice
ElseIf _UseFIRMA <> "" Then
SQLstr &= " AND '" & _UseFIRMA & "' IN (Filialen.Firma,Filialen.Cluster) " ' Wenn die Firmenbezeichnung im CLUSter vorkommt .--> Frontoffice
Else
SQLstr &= " AND '" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA.Replace("ATILLA", "VERAG") & "' IN (Filialen.Firma,Filialen.Cluster) " ' Wenn die Firmenbezeichnung im CLUSter vorkommt .--> Frontoffice
SQLstr &= " AND ( '" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA.Replace("ATILLA", "VERAG") & "' IN (Filialen.Firma,Filialen.Cluster) " ' Wenn die Firmenbezeichnung im CLUSter vorkommt .--> Frontoffice
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("AVISO_IMEX", "AVISO") Then
SQLstr &= " OR Filialen.Firma IN ('IMEX') " ' Wenn die Firmenbezeichnung im CLUSter vorkommt .--> Frontoffice
End If
SQLstr &= " ) "
End If
@@ -339,7 +346,7 @@ Public Class KdSearchBox
If srch2.StartsWith("*") Then srch2 = Replace(srch2, "*", "%", , 1) ' Suche mit beginnenden *
Dim SQLstr As String = " SELECT top 4 Ordnungsbegriff as Firma, AdressenNr as KdNr,Adressen.[LandKz] + ' ' + Adressen.[PLZ] + ' - ' + Adressen.[Ort] + ' ' + Adressen.[Straße] as Adresse "
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "FRONTOFFICE" Or _AlleFirmenCLUSTER Then SQLstr &= ", Filialen.Firma as Firma_Intern "
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "FRONTOFFICE" Or _AlleFirmenCLUSTER Or _UseFIRMA <> "" Or VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("AVISO_IMEX", "AVISO") Then SQLstr &= ", Filialen.Firma as Firma_Intern "
SQLstr &= " FROM [Adressen] "
SQLstr &= " INNER JOIN Kunden on KundenNr=AdressenNr "
SQLstr &= " INNER JOIN Filialen on Filialen.FilialenNr=isnull(Kunden.FilialenNr,4803) "
@@ -362,12 +369,21 @@ Public Class KdSearchBox
' SQLstr &= " AND Filialen.Firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' "
'End If
If _AlleFirmenCLUSTER Then
SQLstr &= " AND '" & VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER & "' IN (Filialen.Firma,Filialen.Cluster) " ' Wenn die Firmenbezeichnung im CLUSter vorkommt .--> Frontoffice
ElseIf _UseFIRMA <> "" Then
SQLstr &= " AND '" & _UseFIRMA & "' IN (Filialen.Firma,Filialen.Cluster) " ' Wenn die Firmenbezeichnung im CLUSter vorkommt .--> Frontoffice
Else
SQLstr &= " AND '" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA.Replace("ATILLA", "VERAG") & "' IN (Filialen.Firma,Filialen.Cluster) " ' Wenn die Firmenbezeichnung im CLUSter vorkommt .--> Frontoffice
SQLstr &= " AND ( '" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA.Replace("ATILLA", "VERAG") & "' IN (Filialen.Firma,Filialen.Cluster) " ' Wenn die Firmenbezeichnung im CLUSter vorkommt .--> Frontoffice
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("AVISO_IMEX", "AVISO") Then
SQLstr &= " OR Filialen.Firma IN ('IMEX') " ' Wenn die Firmenbezeichnung im CLUSter vorkommt .--> Frontoffice
End If
SQLstr &= " ) "
End If
If Not _displayWoelflKd Then SQLstr &= " AND AdressenNr NOT LIKE '15%'"
SQLstr &= " order by Ordnungsbegriff "

46
VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/MyTextBox.vb
View File

@@ -1,5 +1,6 @@
Imports System.ComponentModel
Imports System.Drawing
Imports System.Globalization
Imports System.Windows.Forms
Public Class MyTextBox
@@ -46,7 +47,7 @@ Public Class MyTextBox
Sub fillWithSQL(sql As String, Optional conn As String = "SDL")
' MsgBox((New SQL).getValueTxtBySql(sql, conn))
Me._value = (New Sql).getValueTxtBySql(sql, conn)
Me._value = (New SQL).getValueTxtBySql(sql, conn)
' MsgBox(Me._value)
'Me.Text = Me._value
End Sub
@@ -236,11 +237,20 @@ Public Class MyTextBox
Dim pruefungHandled = False
If _numbersOnly Then
sender.text = sender.text.ToString.Replace(" ", "")
'If sender.text.ToString.StartsWith("21") Then
' For Each s In sender.text.ToString
' MsgBox(s & " - " & Convert.ToByte(s))
' Next
' ' MsgBox(CInt(sender.text.ToString.Chars(3)))
'End If
sender.text = sender.text.ToString.Replace(" ", "").Replace(Chr(160), "") ' 160: irgend ein Sonder-Leerzeichen
pruefungHandled = True
Try
If IsNumeric(_numbersOnlyKommastellen) And IsNumeric(sender.text) Then
sender.text = CDbl(sender.text).ToString("N" & _numbersOnlyKommastellen)
sender.text = CDbl(sender.text).ToString("N" & _numbersOnlyKommastellen) ' , CultureInfo.InvariantCulture)
Me._value = CDbl(sender.text)
' Else
' sender.text = CDbl(sender.text)
@@ -280,12 +290,24 @@ Public Class MyTextBox
If _ShortDateNew Then
pruefungHandled = True
Me.ForeColor = Color.Black
If (Me.Text.Length >= 6 And Me.Text.Length <= 10) AndAlso IsDate(Me.Text.Replace(",", ".")) AndAlso CDate(Me.Text) > CDate("01.01.1990") Then
'------ falls Jahr zweistellig:
Dim split = Me.Text.Replace(",", ".").Split
'------ falls Jahr zweistellig:
Me.Text = Me.Text.Replace(",", ".")
If Me.Text.Length = 8 Then
Dim split = Me.Text.Split(".")
If split.Count = 3 Then
Me.Text = split(0) & "." & split(1) & ".20" & split(2)
End If
End If
If (Me.Text.Length >= 6 And Me.Text.Length <= 10) AndAlso IsDate(Me.Text.Replace(",", ".")) AndAlso CDate(Me.Text) > CDate("01.01.1900") Then
'MsgBox(Me.Text)
''------ falls Jahr zweistellig:
'Dim split = Me.Text.Replace(",", ".").Split
'If split.Count = 3 Then
' Me.Text = split(0) & "." & split(1) & ".20" & split(2)
'End If
'MsgBox(Me.Text)
'------
Me._value = CDate(Me.Text).ToShortDateString 'Nur wenns Passt
Me.Text = CDate(Me.Text).ToShortDateString
@@ -301,7 +323,7 @@ Public Class MyTextBox
pruefungHandled = True
Me.ForeColor = Color.Black
If Me.Text.Length > 16 Then Me.Text = Me.Text.Substring(0, 16)
If (Me.Text.Length >= 6 And Me.Text.Length <= 16) AndAlso IsDate(Me.Text.Replace(",", ".")) AndAlso CDate(Me.Text) > CDate("01.01.1990") Then
If (Me.Text.Length >= 6 And Me.Text.Length <= 16) AndAlso IsDate(Me.Text.Replace(",", ".")) AndAlso CDate(Me.Text) > CDate("01.01.1900") Then
'------ falls Jahr zweistellig:
Dim split = Me.Text.Replace(",", ".").Split
If split.Count = 3 Then
@@ -387,7 +409,7 @@ Public Class MyTextBox
If _ShortDateNew Then
pruefungHandled = True
Me.ForeColor = Color.Black
If Me.Text.Length = 10 AndAlso IsDate(Me.Text.Replace(",", ".")) AndAlso CDate(Me.Text) > CDate("01.01.1990") Then
If Me.Text.Length = 10 AndAlso IsDate(Me.Text.Replace(",", ".")) AndAlso CDate(Me.Text) > CDate("01.01.1900") Then
Me._value = CDate(Me.Text).ToShortDateString 'Nur wenns Passt
Me.Text = CDate(Me.Text).ToShortDateString
ElseIf Me.Text = "" Then
@@ -409,7 +431,7 @@ Public Class MyTextBox
If _DateTimeOnly Then
pruefungHandled = True
Me.ForeColor = Color.Black
If Me.Text.Length = 16 AndAlso IsDate(Me.Text.Replace(",", ".")) AndAlso CDate(Me.Text) > CDate("01.01.1990 00:00") Then
If Me.Text.Length = 16 AndAlso IsDate(Me.Text.Replace(",", ".")) AndAlso CDate(Me.Text) > CDate("01.01.1900 00:00") Then
Me._value = CDate(Me.Text).ToString("dd.MM.yyyy HH:mm") 'Nur wenns Passt
Me.Text = CDate(Me.Text).ToString("dd.MM.yyyy HH:mm")
ElseIf Me.Text = "" Then
@@ -433,7 +455,7 @@ Public Class MyTextBox
If Me.Multiline And IsNumeric(MaxLines_Warning) Then
' If Me.Lines.Length > MaxLines Then
If MaxLines_Warning_Label IsNot Nothing Then
MaxLines_Warning_Label.visible = CBool(Me.Lines.Length > MaxLines_Warning)
MaxLines_Warning_Label.Visible = CBool(Me.Lines.Length > MaxLines_Warning)
End If
'End If
End If
@@ -497,7 +519,7 @@ Public Class MyTextBox
If IsNumeric(Me._numbersOnlyKommastellen) And IsNumeric(v) Then
Propvalue = CDbl(v)
Me.Text = CDbl(v).ToString("N" & Me._numbersOnlyKommastellen)
Me.Text = CDbl(v).ToString("N" & Me._numbersOnlyKommastellen) ' , CultureInfo.InvariantCulture)
ElseIf IsNumeric(v) Then
Propvalue = CDbl(v)
Me.Text = v
@@ -537,7 +559,7 @@ Public Class MyTextBox
Try
'String.Format("{0:N2}", CDbl(sender.text))
If IsNumeric(_numbersOnlyKommastellen) And IsNumeric(sender.text) Then
sender.text = CDbl(sender.text).ToString("N" & _numbersOnlyKommastellen)
sender.text = CDbl(sender.text).ToString("N" & _numbersOnlyKommastellen) ' , CultureInfo.InvariantCulture)
Else
sender.text = CDbl(sender.text)
End If

3
VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/frmPDFScanList.Designer.vb generated
View File

@@ -22,8 +22,9 @@ Partial Class frmPDFScanList
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Me.FlowLayoutPanel = New System.Windows.Forms.FlowLayoutPanel()
Me.cntxtMulti = New System.Windows.Forms.ContextMenuStrip()
Me.cntxtMulti = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.DateiScannenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.DateiHochladenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator()

21
VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/usrcntlPDFScanList.vb
View File

@@ -8,9 +8,12 @@ Public Class usrcntlPDFScanList
Public Property _DATENSERVER_UOrdner1 As String = ""
Public Property _DATENSERVER_UOrdner2 As String = ""
Public Property _DATENSERVER_UOrdner3 As String = ""
Public Property _OPEN_ORIGINAL As Boolean = False
Private Property _TEXT_PDF As String = "SONSTIGE"
Private Property _MULTI_FILES As Boolean = True
Public Property _TYPE As String = "PDF"
' Public pdf_Path As String = ""
Dim KdNr As Integer = -1
@@ -18,7 +21,7 @@ Public Class usrcntlPDFScanList
' Public ScanID As Integer = -1
Public COLL_ID As Integer = -1
'Dim DatenserverIDCollection As New cDatenserverIDCollectionList
Dim DS As VERAG_PROG_ALLGEMEIN.cDATENSERVER
Public DS As VERAG_PROG_ALLGEMEIN.cDATENSERVER
Public Event FileAdded(id As String, path As String, name As String)
@@ -82,7 +85,7 @@ Public Class usrcntlPDFScanList
' initPdf()
' End If
' End Sub
Sub initPdf()
Public Sub initPdf()
MyListBox1.Items.Clear()
KopierenZwischenablageToolStripMenuItem.Enabled = False
@@ -144,7 +147,7 @@ Public Class usrcntlPDFScanList
End Sub
Private Sub DateiHochladenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem2.Click
If DS.uploadDataToDATENSERVERFileDialog_MULTI(, ".pdf", , "PDF") Then
If DS.uploadDataToDATENSERVERFileDialog_MULTI(, , , _TYPE) Then
initPdf()
End If
'If DS.uploadDataToDATENSERVERFileDialog(, ".pdf", , "PDF") <> "" Then
@@ -191,8 +194,18 @@ Public Class usrcntlPDFScanList
Private Sub MyListBox1_DoubleClick(sender As Object, e As EventArgs) Handles MyListBox1.DoubleClick
Try
If _OPEN_ORIGINAL Then
Dim collId = DirectCast(MyListBox1.SelectedItem, VERAG_PROG_ALLGEMEIN.MyListItem).Value
For Each i In DS.DATA_LIST.LIST
If i.coll_id = collId Then
Process.Start(i.coll_pfad)
Exit Sub
End If
Next
Else
DS.OPEN(DirectCast(MyListBox1.SelectedItem, VERAG_PROG_ALLGEMEIN.MyListItem).Value,, True)
End If
DS.OPEN(DirectCast(MyListBox1.SelectedItem, VERAG_PROG_ALLGEMEIN.MyListItem).Value,, True)
' VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.copyToTmp_KeepFilename(ii.coll_pfad, ii.coll_bezeichnung)

55
VERAG_PROG_ALLGEMEIN/Classes/SQL.vb
View File

@@ -27,18 +27,41 @@ Public Class SQL
End If
End Function
Public Shared Function GetFMZOLLConnectionString() As String
'Properties.Settings.Default.
If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then
Return My.MySettings.Default.FMZOLLConnectionString
Else
Return My.MySettings.Default.FMZOLL_PRODConnectionString
Try
Return My.MySettings.Default.FMZOLL_PRODConnectionString
Catch ex As Exception
Return "Data Source=192.168.0.91\SQLFMZOLL;Initial Catalog=VERAG;Integrated Security=false;User ID=test;Password=BmWr501956;"
End Try
End If
End Function
Public Shared Function GetWEBConnectionString() As String
'Properties.Settings.Default.
If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then
Return "Data Source=192.168.0.90\DEVSQL;Initial Catalog=VERAG_HOMEPAGE;Integrated Security=false;User ID=sa;Password=BmWr501956;"
Else
Return "Data Source=192.168.0.91\SQLFMZOLL;Initial Catalog=VERAG_HOMEPAGE;Integrated Security=false;User ID=sa;Password=BmWr501956;"
End If
End Function
Public Shared Function GetFMZOLLConnectionString(TESTSYSTEM) As String
If TESTSYSTEM Then
Return My.MySettings.Default.FMZOLLConnectionString
Else
Return My.MySettings.Default.FMZOLL_PRODConnectionString
Try
Return My.MySettings.Default.FMZOLL_PRODConnectionString
Catch ex As Exception
Return "Data Source=192.168.0.91\SQLFMZOLL;Initial Catalog=VERAG;Integrated Security=false;User ID=test;Password=BmWr501956;"
End Try
End If
End Function
@@ -89,7 +112,11 @@ Public Class SQL
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "ATILLA" Then
Return My.MySettings.Default.AVISO_ATILLAConnectionString
Else
Return My.MySettings.Default.AVISOConnectionString
Try
Return My.MySettings.Default.AVISOConnectionString
Catch ex As Exception
Return "Data Source=SQLGUIDE01.verag.ost.dmn\SQLEXPRESS;Initial Catalog=AVISO;Integrated Security=false;User ID=sa;Password=BmWr501956;Pooling=true;Min Pool Size=5;Max Pool Size=200"
End Try
End If
End If
End Function
@@ -142,6 +169,12 @@ Public Class SQL
cn.Open()
Return cn
End Function
Public Shared Function GetNewOpenConnectionWEB(Optional pooling As Boolean = True) As SqlConnection
Dim cn As New SqlConnection()
cn.ConnectionString = GetWEBConnectionString() & IIf(pooling, "", ";pooling=false")
cn.Open()
Return cn
End Function
Public Shared Function GetNewOpenConnectionFMZOLL_SYSTEM(TESTSYSTEM As Boolean, Optional pooling As Boolean = True) As SqlConnection
Dim cn As New SqlConnection()
cn.ConnectionString = GetFMZOLLConnectionString(TESTSYSTEM) & IIf(pooling, "", ";pooling=false")
@@ -281,6 +314,7 @@ Public Class SQL
Case "AVISO" : conn = GetNewOpenConnectionAVISO()
Case "VERAG" : conn = GetNewOpenConnectionFMZOLL()
Case "FD" : conn = GetNewOpenConnectionFD()
Case "WEB" : conn = GetNewOpenConnectionWEB()
Case "AVISO_ATILLA"
conn.ConnectionString = "Data Source=172.16.0.98;Initial Catalog=AVISO_ATILLA;Integrated Security=false;User ID=sa;Password=BmWr501956;Pooling=true;Min Pool Size=5;Max Pool Size=200"
@@ -321,6 +355,7 @@ Public Class SQL
Case "EZOLL" : conn = GetNewOpenConnectionEZOLL()
Case "AVISO" : conn = GetNewOpenConnectionAVISO()
Case "VERAG" : conn = GetNewOpenConnectionFMZOLL()
Case "WEB" : conn = GetNewOpenConnectionWEB()
End Select
' Using conn As SqlConnection = GetNewOpenConnection()
@@ -355,6 +390,7 @@ Public Class SQL
Case "AVISO" : conn = GetNewOpenConnectionAVISO()
Case "VERAG" : conn = GetNewOpenConnectionFMZOLL()
Case "DISPO" : conn = GetNewOpenConnectionDISPO()
Case "WEB" : conn = GetNewOpenConnectionWEB()
End Select
Using cmd As New SqlCommand(sql, conn)
@@ -407,6 +443,7 @@ Public Class SQL
Case "AVISO" : conn = GetNewOpenConnectionAVISO()
Case "VERAG" : conn = GetNewOpenConnectionFMZOLL()
Case "SCANCANON" : conn = GetNewOpenConnectionSCANCANON()
Case "WEB" : conn = GetNewOpenConnectionWEB()
End Select
End If
@@ -452,6 +489,7 @@ Public Class SQL
Case "EZOLL" : conn = GetNewOpenConnectionEZOLL()
Case "AVISO" : conn = GetNewOpenConnectionAVISO()
Case "VERAG" : conn = GetNewOpenConnectionFMZOLL()
Case "WEB" : conn = GetNewOpenConnectionWEB()
End Select
Using cmd As New SqlCommand(sql, conn)
@@ -494,6 +532,7 @@ Public Class SQL
Case "AVISO" : conn = GetNewOpenConnectionAVISO()
Case "VERAG" : conn = GetNewOpenConnectionFMZOLL()
Case "DISPO" : conn = GetNewOpenConnectionDISPO()
Case "WEB" : conn = GetNewOpenConnectionWEB()
Case "AVISO_ATILLA"
conn.ConnectionString = "Data Source=172.16.0.98;Initial Catalog=AVISO_ATILLA;Integrated Security=false;User ID=sa;Password=BmWr501956;Pooling=true;Min Pool Size=5;Max Pool Size=200"
@@ -532,6 +571,7 @@ Public Class SQL
Case "AVISO" : conn = GetNewOpenConnectionAVISO()
Case "DISPO" : conn = GetNewOpenConnectionDISPO()
Case "VERAG" : conn = GetNewOpenConnectionFMZOLL()
Case "WEB" : conn = GetNewOpenConnectionWEB()
End Select
Try
' MsgBox(sql)
@@ -565,6 +605,7 @@ Public Class SQL
Case "AVISO" : conn = GetNewOpenConnectionAVISO()
Case "DISPO" : conn = GetNewOpenConnectionDISPO()
Case "VERAG" : conn = GetNewOpenConnectionFMZOLL()
Case "WEB" : conn = GetNewOpenConnectionWEB()
End Select
Try
Using cmd As New SqlCommand(sql, conn)
@@ -626,6 +667,7 @@ Public Class SQL
Case "EZOLL" : conn = GetNewOpenConnectionEZOLL()
Case "AVISO" : conn = GetNewOpenConnectionAVISO()
Case "VERAG" : conn = GetNewOpenConnectionFMZOLL()
Case "WEB" : conn = GetNewOpenConnectionWEB()
End Select
' Using conn As SqlConnection = GetNewOpenConnection()
@@ -968,12 +1010,14 @@ Public Class SQL
Public Function getATLASNacherfassungAdresseNCTS(ByVal basman_nr As String, ByVal basman_nl As String, ByVal veoant_beznr As String, ByVal intLfdNr As String, ByVal intPosNr As String, lngTyp As String, connArt As String) As String
Dim s As String = ""
Try
Dim conn As SqlConnection
Dim conn As SqlConnection = Nothing
Select Case connArt
Case "ATLAS" : conn = SQL.GetNewOpenConnectionATLAS
Case "ATLAS_SBG" : conn = SQL.GetNewOpenConnectionATLAS_SBG
End Select
Using cmd As New SqlCommand("SELECT veoadr_name1, baslnd_alpha, veoadr_plz, veoadr_ort " &
If conn IsNot Nothing Then
Using cmd As New SqlCommand("SELECT veoadr_name1, baslnd_alpha, veoadr_plz, veoadr_ort " &
" FROM veoadr WHERE basman_nr='" & basman_nr & "' And basman_nl='" & basman_nl & "' And veoant_beznr='" & veoant_beznr & "' " &
" And veoant_lfdnr=" & intLfdNr & " And veopos_posnr=" & intPosNr & " And veoadr_typ=" & lngTyp & " " &
" ORDER BY basman_nr, basman_nl, veoant_beznr, veoant_lfdnr, veopos_posnr, veoadr_typ ", conn)
@@ -986,6 +1030,7 @@ Public Class SQL
End Using
conn.Close()
End If
Return s
Catch ex As Exception
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message)

7
VERAG_PROG_ALLGEMEIN/Classes/cAdressen.vb
View File

@@ -78,7 +78,9 @@ Public Class cAdressen
End Using
Catch ex As Exception
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message)
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
' MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message)
End Try
Return -1
End Function
@@ -218,7 +220,8 @@ Public Class cAdressen
End Using
'Return Nothing
Catch ex As Exception
MsgBox(test & "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)
' MsgBox(test & "Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
End Try
' Return Nothing
End Sub

215
VERAG_PROG_ALLGEMEIN/Classes/cAvisoBenachrichtigungen.vb Normal file
View File

@@ -0,0 +1,215 @@
Imports System.Data.SqlClient
Imports System.Reflection
Public Class cAvisoBenachrichtigungen
Property ab_id As Integer = -1
Property ab_AvisoID As Integer = -1
Property ab_SendungID As Object = Nothing
Property ab_Art As String
Property ab_Datum As Date
Property ab_Status As Integer
Property ab_BenachrichtigungCode As Integer
Property ab_Beschreibung As String
Property ab_Prioritaet As Integer
Property ab_Mitarbeiter As String
Property ab_MitarbeiterId As Integer
Property ab_TO_Art As Object = Nothing
Property ab_TO_Code As Object = Nothing
Property ab_Bestaetigt_MaId As Object = Nothing
Property ab_Bestaetigt_Datum As Object = Nothing
Property ab_Firma As Object = Nothing
Property ab_Cluster As Object = Nothing
Property ab_collAnhId As Object = Nothing
Property ab_Vermerk As Object = Nothing
Shared SQL As New SQL
Sub New()
End Sub
' ab_TO_Art
'F..irma
'N..iederlassung
'A..bteilung
'T..eam
'B..enutzer
Sub New(ab_id)
Me.ab_id = ab_id
LOAD()
End Sub
Public Shared Function INSERT_BENACHRICHTIGUNG(ab_AvisoID As Integer, ab_SendungID As Object, ab_BenachrichtigungCode As Integer, Optional ab_TO_Art As Object = Nothing, Optional ab_TO_Code As Object = Nothing, Optional ab_Beschreibung As String = "", Optional ab_Prioritaet As Integer = 0, Optional ab_collAnhId As String = "", Optional ab_Vermerk As String = "") As Boolean
Dim AB As New cAvisoBenachrichtigungen
AB.ab_AvisoID = ab_AvisoID
If ab_SendungID IsNot Nothing AndAlso ab_SendungID > 0 Then
AB.ab_SendungID = ab_SendungID
AB.ab_Art = "S"
Else
AB.ab_SendungID = Nothing
AB.ab_Art = "A"
End If
AB.ab_TO_Art = ab_TO_Art
AB.ab_TO_Code = ab_TO_Code
AB.ab_Datum = Now
AB.ab_Status = 0
AB.ab_BenachrichtigungCode = ab_BenachrichtigungCode
If ab_Beschreibung = "" Then ab_Beschreibung = SQL.getValueTxtBySql("SELECT abc_Bezeichnung FROM tblAvisoBenachrichtigungenCodes WHERE abc_id=" & ab_BenachrichtigungCode, "AVISO")
AB.ab_Beschreibung = ab_Beschreibung
AB.ab_Prioritaet = ab_Prioritaet
AB.ab_Mitarbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME
AB.ab_MitarbeiterId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID
AB.ab_Firma = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
AB.ab_Cluster = VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER
AB.ab_Vermerk = ab_Vermerk
AB.ab_collAnhId = ab_collAnhId
Return AB.SAVE
End Function
Public Function BESTAETIGEN_BENACHRICHTIGUNG() As Boolean
Me.ab_Status = 1
Me.ab_Bestaetigt_MaId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID
Me.ab_Bestaetigt_Datum = Now
Return Me.SAVE
End Function
Public Shared Function BESTAETIGEN_BENACHRICHTIGUNG(ab_id As Integer) As Boolean
Dim AB As New cAvisoBenachrichtigungen(ab_id)
AB.ab_Status = 1
AB.ab_Bestaetigt_MaId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID
AB.ab_Bestaetigt_Datum = Now
Return AB.SAVE
End Function
Public 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("ab_id", ab_id, , True, True))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ab_AvisoID", ab_AvisoID)) ' INT NULL,
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ab_SendungID", ab_SendungID)) ' INT NULL,
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ab_Art", ab_Art)) ' INT NULL,
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ab_Datum", ab_Datum)) ' INT NULL,
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ab_Status", ab_Status)) ' VARCHAR(200) Not NULL,
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ab_BenachrichtigungCode", ab_BenachrichtigungCode)) ' VARCHAR(40) Not NULL,
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ab_Beschreibung", ab_Beschreibung)) ' VARCHAR(40) NULL,
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ab_Prioritaet", ab_Prioritaet)) 'VARCHAR(40) Not NULL,
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ab_Mitarbeiter", ab_Mitarbeiter)) 'VARCHAR(60) Not NULL,
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ab_MitarbeiterId", ab_MitarbeiterId))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ab_TO_Art", ab_TO_Art))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ab_TO_Code", ab_TO_Code))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ab_Bestaetigt_MaId", ab_Bestaetigt_MaId))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ab_Bestaetigt_Datum", ab_Bestaetigt_Datum))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ab_Firma", ab_Firma))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ab_Cluster", ab_Cluster))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ab_collAnhId", ab_collAnhId))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ab_Vermerk", ab_Vermerk))
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 tblAvisoBenachrichtigungen WITH(updlock,serializable) WHERE ab_id=@ab_id) " &
" BEGIN " & getUpdateCmd() & " END " &
" Else " &
" BEGIN " & getInsertCmd() & " END " &
" commit tran "
ab_id = SQL.doSQLVarListID(ab_id, sqlstr, "AVISO", , list)
Return ab_id > 0
End Function
Public Sub LOAD()
Try
Using conn As SqlConnection = SQL.GetNewOpenConnectionAVISO
Using cmd As New SqlCommand("SELECT * FROM tblAvisoBenachrichtigungen WHERE ab_id=@ab_id ", conn)
cmd.Parameters.AddWithValue("@ab_id", ab_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
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 [tblAvisoBenachrichtigungen] SET " & str & " WHERE ab_id=@ab_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 tblAvisoBenachrichtigungen (" & 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
Public Function DELETE() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
Dim sqlstr = " DELETE FROM [tblAvisoBenachrichtigungen] WITH(updlock,serializable) WHERE ab_id=" & Me.ab_id
Return SQL.doSQL(sqlstr, "AVISO")
End Function
End Class

155
VERAG_PROG_ALLGEMEIN/Classes/cCryptography.vb Normal file
View File

@@ -0,0 +1,155 @@
Imports System.IO
Imports System.Security.Cryptography
Imports System.Text
Public Class cCryptography
'Dim EncryptionKey As String = "$kldfKFSAK37236780!!*+++hHUDO723BNU!$hask+*jhds7!2929j$+jP*!hWrT$kldfKFSAK37236780!!*+++hHUDO723BNU!$hask+*jhds7!2929j$+jP*!hWrT"
Shared EncryptionKey As String = "$kldfKFSAK37236780!!*+++hHUDO723BNU!$hask+*jhds7!2929j$+jP*!hWrT$kldfKFSAK37236780!!*+++hHUDO723BNU!$hask+*jhds7!2929j$+jP*!hWrT"
Public Shared Function Encrypt(clearText As String) As String
Dim clearBytes As Byte() = Encoding.Unicode.GetBytes(clearText)
Using encryptor As Aes = Aes.Create()
Dim pdb As New Rfc2898DeriveBytes(EncryptionKey, New Byte() {&H49, &H76, &H61, &H6E, &H20, &H4D, &H65, &H64, &H76, &H65, &H64, &H65, &H76})
encryptor.Key = pdb.GetBytes(32)
encryptor.IV = pdb.GetBytes(16)
Using ms As New MemoryStream()
Using cs As New CryptoStream(ms, encryptor.CreateEncryptor(), CryptoStreamMode.Write)
cs.Write(clearBytes, 0, clearBytes.Length)
cs.Close()
End Using
clearText = Convert.ToBase64String(ms.ToArray())
End Using
End Using
Return clearText
End Function
Public Shared Function Decrypt(cipherText As String) As String
Dim cipherBytes As Byte() = Convert.FromBase64String(cipherText)
Using encryptor As Aes = Aes.Create()
Dim pdb As New Rfc2898DeriveBytes(EncryptionKey, New Byte() {&H49, &H76, &H61, &H6E, &H20, &H4D, &H65, &H64, &H76, &H65, &H64, &H65, &H76})
encryptor.Key = pdb.GetBytes(32)
encryptor.IV = pdb.GetBytes(16)
Using ms As New MemoryStream()
Using cs As New CryptoStream(ms, encryptor.CreateDecryptor(), CryptoStreamMode.Write)
cs.Write(cipherBytes, 0, cipherBytes.Length)
cs.Close()
End Using
cipherText = Encoding.Unicode.GetString(ms.ToArray())
End Using
End Using
Return cipherText
End Function
End Class
Public Class cCryptography2
Shared _key As String = "!#$a54?3"
Public Shared Function Encrypt(ByVal strQueryString As String) As String
Dim oES As New Encryption64()
Return oES.Encrypt(strQueryString, _key)
End Function
Public Shared Function Decrypt(ByVal strQueryString As String) As String
Dim oES As New Encryption64()
Return oES.Decrypt(strQueryString, _key)
End Function
End Class
Public Class Encryption64
Private key() As Byte = {}
Private IV() As Byte = {&H12, &H34, &H56, &H78, &H90, &HAB, &HCD, &HEF}
Public Function Decrypt(ByVal stringToDecrypt As String,
ByVal sEncryptionKey As String) As String
Dim inputByteArray(stringToDecrypt.Length) As Byte
Try
key = System.Text.Encoding.UTF8.GetBytes(Left(sEncryptionKey, 8))
Dim des As New DESCryptoServiceProvider()
inputByteArray = Convert.FromBase64String(stringToDecrypt)
Dim ms As New MemoryStream()
Dim cs As New CryptoStream(ms, des.CreateDecryptor(key, IV),
CryptoStreamMode.Write)
cs.Write(inputByteArray, 0, inputByteArray.Length)
cs.FlushFinalBlock()
Dim encoding As System.Text.Encoding = System.Text.Encoding.UTF8
Return encoding.GetString(ms.ToArray())
Catch e As Exception
Return e.Message
End Try
End Function
Public Function Encrypt(ByVal stringToEncrypt As String,
ByVal SEncryptionKey As String) As String
Try
key = System.Text.Encoding.UTF8.GetBytes(Left(SEncryptionKey, 8))
Dim des As New DESCryptoServiceProvider()
Dim inputByteArray() As Byte = Encoding.UTF8.GetBytes(
stringToEncrypt)
Dim ms As New MemoryStream()
Dim cs As New CryptoStream(ms, des.CreateEncryptor(key, IV),
CryptoStreamMode.Write)
cs.Write(inputByteArray, 0, inputByteArray.Length)
cs.FlushFinalBlock()
Return Convert.ToBase64String(ms.ToArray())
Catch e As Exception
Return e.Message
End Try
End Function
End Class
Public Class cCryptography3
Shared _key As String = "!#?"
'Public Shared Function Encrypt(ByVal strQueryString As String) As String
' Using hasher As MD5 = MD5.Create() ' create hash object
' ' Convert to byte array and get hash
' Dim dbytes As Byte() =
' hasher.ComputeHash(Encoding.UTF8.GetBytes(strQueryString & _key))
' ' sb to create string from bytes
' Dim sBuilder As New StringBuilder()
' ' convert byte data to hex string
' For n As Integer = 0 To dbytes.Length - 1
' sBuilder.Append(dbytes(n).ToString("X2"))
' Next n
' Return sBuilder.ToString()
' End Using
'End Function
Public Shared Function Encrypt(ByVal input As String) As String
Dim stringBytes As Byte() = System.Text.Encoding.Unicode.GetBytes(input & _key)
Dim sbBytes As StringBuilder = New StringBuilder(stringBytes.Length * 2)
For Each b As Byte In stringBytes
sbBytes.AppendFormat("{0:X2}", b)
Next
Return sbBytes.ToString()
End Function
Public Shared Function Decrypt(ByVal hexInput As String) As String
Dim numberChars As Integer = hexInput.Length
Dim bytes As Byte() = New Byte(numberChars / 2 - 1) {}
For i As Integer = 0 To numberChars - 1 Step 2
bytes(i / 2) = Convert.ToByte(hexInput.Substring(i, 2), 16)
Next
Return System.Text.Encoding.Unicode.GetString(bytes).Replace(_key, "")
End Function
End Class

88
VERAG_PROG_ALLGEMEIN/Classes/cHandlingssaetzeIntern.vb Normal file
View File

@@ -0,0 +1,88 @@

Imports System.Data.SqlClient
Imports System.Reflection
Public Class cHandlingssaetzeInternLIST
Property hs_Bezeichnung As Object = Nothing
' Property OffertenNr As Object = Nothing
Public LIST As New List(Of cHandlingssaetzeIntern)
Dim SQL As New SQL
'Dim listTodelete As New List(Of cHandlingssaetzeIntern)
Sub New(hs_Bezeichnung)
Me.hs_Bezeichnung = hs_Bezeichnung
' Me.OffertenNr = OffertenNr
LOAD_LIST(Me.hs_Bezeichnung)
End Sub
Public Sub CLEAR()
LIST.Clear()
End Sub
Public Sub LOAD_LIST(hs_Bezeichnung)
Try
LIST.Clear()
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
Using cmd As New SqlCommand("SELECT * FROM tblHandlingssaetzeIntern WHERE hs_Bezeichnung=@hs_Bezeichnung ", conn)
cmd.Parameters.AddWithValue("@hs_Bezeichnung", hs_Bezeichnung)
' cmd.Parameters.AddWithValue("@OffertenNr", OffertenNr)
Dim dr = cmd.ExecuteReader()
While dr.Read
Dim l As New cHandlingssaetzeIntern
For Each i In l.getParameterList()
Dim propInfo As PropertyInfo = l.GetType.GetProperty(i.Scalarvariable)
If dr.Item(i.Text) Is DBNull.Value Then
propInfo.SetValue(l, Nothing)
Else
propInfo.SetValue(l, dr.Item(i.Text))
End If
Next
LIST.Add(l)
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
'Function SAVE()
' If SQL.doSQLVarList("DELETE FROM tblEmailBenachrichtigung WHERE eb_KundenNr=" & Me.eb_KundenNr & " and eb_ebartId=" & Me.eb_ebartId & " ", "FMZOLL") Then
' For Each l In LIST
' If Not l.INSERT() Then Return False
' Next
' Return True
' Else
' Return False
' End If
'End Function
End Class
Public Class cHandlingssaetzeIntern
Property hs_Bezeichnung As Object = Nothing
Property hs_RgVon As Object = Nothing
Property hs_RgAn As Object = Nothing
Property hs_Abfertigungsart As Object = Nothing
Property hs_Preis As Object = Nothing
Dim SQL As New SQL
Sub New()
End Sub
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("hs_Bezeichnung", hs_Bezeichnung))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("hs_RgVon", hs_RgVon))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("hs_RgAn", hs_RgAn))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("hs_Abfertigungsart", hs_Abfertigungsart))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("hs_Preis", hs_Preis))
Return list
End Function
End Class

3
VERAG_PROG_ALLGEMEIN/Classes/cKundenErweitert.vb
View File

@@ -49,6 +49,8 @@ Public Class cKundenErweitert
Property kde_Inkasso_GemeldeterBetrag As Object = Nothing
Property AutoFakturierung As Boolean = False
Property Anmerkungen_Warnhinweis As Object = Nothing
Property kde_VERAG_INTERFACE_ID As Object = Nothing
Dim SQL As New SQL
@@ -99,6 +101,7 @@ Public Class cKundenErweitert
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_Inkasso_GemeldeterBetrag", kde_Inkasso_GemeldeterBetrag))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AutoFakturierung", AutoFakturierung))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Anmerkungen_Warnhinweis", Anmerkungen_Warnhinweis))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_VERAG_INTERFACE_ID", kde_VERAG_INTERFACE_ID))
Return list
End Function

172
VERAG_PROG_ALLGEMEIN/Classes/cLanguageText.vb Normal file
View File

@@ -0,0 +1,172 @@
Imports System.Data.SqlClient
Imports System.Reflection
Public Class cLanguageText_LIST
Dim LIST As New List(Of cLanguageText)
Sub New(tlan_kategorie, tlan_ukategorie1, tlan_ukategorie2, tlan_ukategorie3)
LOAD_LIST(tlan_kategorie, tlan_ukategorie1, tlan_ukategorie2, tlan_ukategorie3)
End Sub
Public Sub LOAD_LIST(tlan_kategorie, tlan_ukategorie1, tlan_ukategorie2, tlan_ukategorie3)
Try
List.Clear()
Using conn As SqlConnection = SQL.GetNewOpenConnectionWEB()
Using cmd As New SqlCommand("SELECT * FROM tblLanguageText WHERE tlan_kategorie=@tlan_kategorie AND tlan_ukategorie1=@tlan_ukategorie1 AND tlan_ukategorie2=@tlan_ukategorie2 AND tlan_ukategorie3=@tlan_ukategorie3 ", conn)
cmd.Parameters.AddWithValue("@tlan_kategorie", tlan_kategorie)
cmd.Parameters.AddWithValue("@tlan_ukategorie1", tlan_ukategorie1)
cmd.Parameters.AddWithValue("@tlan_ukategorie2", tlan_ukategorie2)
cmd.Parameters.AddWithValue("@tlan_ukategorie3", tlan_ukategorie3)
' cmd.Parameters.AddWithValue("@OffertenNr", OffertenNr)
Dim dr = cmd.ExecuteReader()
While dr.Read
Dim l As New cLanguageText
For Each i In l.getParameterList()
Dim propInfo As PropertyInfo = l.GetType.GetProperty(i.Scalarvariable)
If dr.Item(i.Text) Is DBNull.Value Then
propInfo.SetValue(l, Nothing)
Else
propInfo.SetValue(l, dr.Item(i.Text))
End If
Next
LIST.Add(l)
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 getTxt(tlan_Id, tlan_language, defaultTXT) As String
For Each l In LIST
If l.tlan_Id = tlan_Id And l.tlan_language = tlan_language Then
Return l.tlan_TEXT
End If
Next
Return defaultTXT
End Function
End Class
Public Class cLanguageText
Property tlan_Id As Integer
Property tlan_kategorie As String = ""
Property tlan_ukategorie1 As String = ""
Property tlan_ukategorie2 As String = ""
Property tlan_ukategorie3 As String = ""
Property tlan_language As String = ""
Property tlan_TEXT As String = ""
Dim SQL As New SQL
Sub New()
End Sub
Sub New(tlan_Id, tlan_language)
Me.tlan_Id = tlan_Id
Me.tlan_language = tlan_language
LOAD()
End Sub
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("tlan_Id", tlan_Id))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tlan_kategorie", tlan_kategorie))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tlan_ukategorie1", tlan_ukategorie1))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tlan_ukategorie2", tlan_ukategorie2))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tlan_ukategorie3", tlan_ukategorie3))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tlan_language", tlan_language))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tlan_TEXT", tlan_TEXT))
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 tblLanguageText WHERE tlan_Id=@tlan_Id AND tlan_language=@tlan_language) " &
" BEGIN " & getUpdateCmd() & " END " &
" Else " &
" BEGIN " & getInsertCmd() & " END " &
" commit tran "
Return SQL.doSQLVarList(sqlstr, "WEB", , list)
End Function
Public Sub LOAD()
Try
Using conn As SqlConnection = SQL.GetNewOpenConnectionWEB()
Using cmd As New SqlCommand("SELECT * FROM tblLanguageText WHERE tlan_Id=@tlan_Id AND tlan_language=@tlan_language ", conn)
cmd.Parameters.AddWithValue("@tlan_Id", tlan_Id)
cmd.Parameters.AddWithValue("@tlan_language", tlan_language)
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
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 [tblLanguageText] SET " & str & " WHERE tlan_Id=@tlan_Id AND tlan_language=@tlan_language ")
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 tblLanguageText (" & 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

129
VERAG_PROG_ALLGEMEIN/Classes/cMessangerListender.vb
View File

@@ -22,12 +22,22 @@ Public Class cMessangerListender
End Sub
Sub DIENST_InitSocket()
If serverSocket IsNot Nothing Then Exit Sub 'Falls es schon läuft
serverSocket = New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp)
Dim IpEndPoint As IPEndPoint = New IPEndPoint(IPAddress.Any, 8800)
serverSocket.Bind(IpEndPoint)
serverSocket.Listen(5)
serverSocket.BeginAccept(New AsyncCallback(AddressOf OnAccept), Nothing)
Try
If serverSocket IsNot Nothing AndAlso serverSocket.IsBound Then
Else
If serverSocket IsNot Nothing Then Exit Sub 'Falls es schon läuft
serverSocket = New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp)
Dim IpEndPoint As IPEndPoint = New IPEndPoint(IPAddress.Any, 8800)
serverSocket.Bind(IpEndPoint)
serverSocket.Listen(5)
serverSocket.BeginAccept(New AsyncCallback(AddressOf OnAccept), Nothing)
End If
Catch ex As Exception
'LEIDER KEINE ANDRES LÖSUNG
End Try
End Sub
Private Sub OnAccept(ByVal ar As IAsyncResult)
@@ -99,14 +109,14 @@ Public Class cMessangerListender
thread.Start()
'Ein zweiter Thread kontrolliert, ob die Funktion nach einer gewissen Zeit noch läuft und beendet diese ggf.
Dim st As New Thread(AddressOf stopThread)
st.IsBackground = True
Dim param_obj(3) As Object
'Übergabeparameter des 2. Threads
param_obj(0) = thread
param_obj(1) = client
param_obj(2) = 60
st.Start(param_obj)
'Dim st As New Thread(AddressOf stopThread)
'st.IsBackground = True
'Dim param_obj(3) As Object
''Übergabeparameter des 2. Threads
'param_obj(0) = thread
'param_obj(1) = client
'param_obj(2) = 60
'st.Start(param_obj)
'Send("Task successful", client) 'Client-Mittelung
@@ -121,7 +131,7 @@ Public Class cMessangerListender
Sub NEW_MESSAGE()
VERAG_PROG_ALLGEMEIN.cMessenger.NEW_MESSGE = True
MsgBox("jojo")
' MsgBox("jojo")
'For Each openForm In Application.OpenForms()
' If TypeOf (openForm) Is frmMessenger Then
' 'MsgBox("Sendungsfenster bereits geöffnet!")
@@ -263,32 +273,37 @@ Public Class cServerClient
Public Sub begin(ip, doThis_tmp)
doThis = doThis_tmp
Try
doThis = doThis_tmp
Dim timeOut As Integer = 60
Select Case doThis
Case "test" : timeOut = 5 ' nach 5 Sekunden wird abgebrochen
Case "NEW_MESSAGE" : timeOut = 120 ' nach 120 Sekunden wird abgebrochen
Case "NEW_MESSAGE" : timeOut = 5 ' nach 120 Sekunden wird abgebrochen
'Case "initAufschubkonten" : timeOut = 60 ' nach 60 Sekunden wird abgebrochen
End Select
'Ein Thread kontrolliert, ob die Funktion nach einer gewissen Zeit noch läuft und beendet diese ggf.
Dim st As New Thread(AddressOf stopThread)
st.IsBackground = True
Dim param_obj(1) As Object
'Übergabeparameter des 2. Threads
param_obj(0) = timeOut
st.Start(param_obj)
'Ein Thread kontrolliert, ob die Funktion nach einer gewissen Zeit noch läuft und beendet diese ggf.
'Dim st As New Thread(AddressOf stopThread)
'st.IsBackground = True
'Dim param_obj(1) As Object
''Übergabeparameter des 2. Threads
'param_obj(0) = timeOut
'st.Start(param_obj)
clientSocket = New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp)
clientSocket = New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp)
Dim ipAddress As IPAddress = IPAddress.Parse(ip)
' Dim ipAddress As IPAddress = ipAddress.Parse("192.168.0.90")
Dim ipEndPoint As IPEndPoint = New IPEndPoint(ipAddress, 8800)
clientSocket.BeginConnect(ipEndPoint, New AsyncCallback(AddressOf OnConnect), Nothing)
status = "beginConnect"
' endconnect(clientSocket)
' endconnect(clientSocket)
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
End Try
End Sub
@@ -382,37 +397,37 @@ Public Class cServerClient
'Send("test", clientSocket)
'Send("initAufschubkonten", clientSocket)
ElseIf msg = "Task successful" Then
status = "TaskSuccess"
clientSocket.Disconnect(False)
clientSocket.Shutdown(SocketShutdown.Both)
clientSocket.Close()
'endconnect(clientSocket)'geht ned
' MsgBox("Task erfolgreich!", vbSystemModal, doThis)
RaiseEvent FunctionFinished(Me, New FunctionFinishedArgs(FunctionFinishedArgs.EventResult.OK, "Task erfolgreich!"))
ElseIf msg = "Task not found" Then
MsgBox("SERVERERROR: Der Dienst wurde nicht gefunden!", vbSystemModal, "NEW_MESSAGE")
status = "TaskError"
RaiseEvent FunctionFinished(Me, New FunctionFinishedArgs(FunctionFinishedArgs.EventResult.ERR, "SERVERERROR: Der Dienst wurde nicht gefunden!"))
ElseIf msg = "Task inactive" Then
MsgBox("SERVERERROR: Der Dienste ist nicht aktiv!", vbSystemModal, "NEW_MESSAGE")
status = "TaskError"
RaiseEvent FunctionFinished(Me, New FunctionFinishedArgs(FunctionFinishedArgs.EventResult.ERR, "SERVERERROR: Der Dienste ist nicht aktiv!"))
ElseIf msg = "Task timeout" Then
MsgBox("SERVERERROR: Der Dienst wurde wegen einer Zeitüberschreitung abgebrochen!", vbSystemModal, "NEW_MESSAGE")
status = "TaskError"
RaiseEvent FunctionFinished(Me, New FunctionFinishedArgs(FunctionFinishedArgs.EventResult.ERR, "SERVERERROR: Der Dienst wurde wegen einer Zeitüberschreitung abgebrochen!"))
ElseIf msg = "Task error" Then
MsgBox("SERVERERROR: Server-Fehler!", vbSystemModal, "NEW_MESSAGE")
status = "TaskError"
RaiseEvent FunctionFinished(Me, New FunctionFinishedArgs(FunctionFinishedArgs.EventResult.ERR, "SERVERERROR: Server-Fehler!"))
Else
MsgBox("SERVER_NACHRICHT NICHT VERSTANDEN: " & msg, vbSystemModal)
status = "TaskError"
RaiseEvent FunctionFinished(Me, New FunctionFinishedArgs(FunctionFinishedArgs.EventResult.ERR, "SERVER_NACHRICHT NICHT VERSTANDEN: " & msg))
'ElseIf msg = "Task successful" Then
' status = "TaskSuccess"
' clientSocket.Disconnect(False)
' clientSocket.Shutdown(SocketShutdown.Both)
' clientSocket.Close()
' 'endconnect(clientSocket)'geht ned
' ' MsgBox("Task erfolgreich!", vbSystemModal, doThis)
' RaiseEvent FunctionFinished(Me, New FunctionFinishedArgs(FunctionFinishedArgs.EventResult.OK, "Task erfolgreich!"))
'ElseIf msg = "Task not found" Then
' MsgBox("SERVERERROR: Der Dienst wurde nicht gefunden!", vbSystemModal, "NEW_MESSAGE")
' status = "TaskError"
' RaiseEvent FunctionFinished(Me, New FunctionFinishedArgs(FunctionFinishedArgs.EventResult.ERR, "SERVERERROR: Der Dienst wurde nicht gefunden!"))
'ElseIf msg = "Task inactive" Then
' MsgBox("SERVERERROR: Der Dienste ist nicht aktiv!", vbSystemModal, "NEW_MESSAGE")
' status = "TaskError"
' RaiseEvent FunctionFinished(Me, New FunctionFinishedArgs(FunctionFinishedArgs.EventResult.ERR, "SERVERERROR: Der Dienste ist nicht aktiv!"))
'ElseIf msg = "Task timeout" Then
' MsgBox("SERVERERROR: Der Dienst wurde wegen einer Zeitüberschreitung abgebrochen!", vbSystemModal, "NEW_MESSAGE")
' status = "TaskError"
' RaiseEvent FunctionFinished(Me, New FunctionFinishedArgs(FunctionFinishedArgs.EventResult.ERR, "SERVERERROR: Der Dienst wurde wegen einer Zeitüberschreitung abgebrochen!"))
'ElseIf msg = "Task error" Then
' MsgBox("SERVERERROR: Server-Fehler!", vbSystemModal, "NEW_MESSAGE")
' status = "TaskError"
' RaiseEvent FunctionFinished(Me, New FunctionFinishedArgs(FunctionFinishedArgs.EventResult.ERR, "SERVERERROR: Server-Fehler!"))
'Else
' MsgBox("SERVER_NACHRICHT NICHT VERSTANDEN: " & msg, vbSystemModal)
' status = "TaskError"
' RaiseEvent FunctionFinished(Me, New FunctionFinishedArgs(FunctionFinishedArgs.EventResult.ERR, "SERVER_NACHRICHT NICHT VERSTANDEN: " & msg))
clientSocket.Shutdown(SocketShutdown.Both)
clientSocket.Close()
' clientSocket.Shutdown(SocketShutdown.Both)
' clientSocket.Close()
End If
Catch ex As Exception
@@ -435,7 +450,7 @@ Public Class cServerClient
clientSocket.Shutdown(SocketShutdown.Both)
clientSocket.Close()
Catch ex As Exception
MsgBox(ex.Message)
MsgBox(ex.Message & ex.StackTrace)
End Try
RaiseEvent FunctionFinished(Me, New FunctionFinishedArgs(FunctionFinishedArgs.EventResult.ERR, "Task wurde aufgrund eines Timeouts vom Client abgebrochen."))

76
VERAG_PROG_ALLGEMEIN/Classes/cMessenger.vb
View File

@@ -23,7 +23,10 @@ Public Class cMessenger
End Function
Public Shared Function GET_NewMSG_COUNT(Optional maId = -1) As Integer
If maId < 0 Then maId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID
Return SQL.getValueTxtBySql("SELECT isnull(COUNT(*),0) FROM tblMessenger_ChatMessages INNER JOIN tblMessenger_ChatMessageStatus ON chatMgSt_chatMsgId=chatMg_id WHERE chatMgSt_MaId=" & VERAG_PROG_ALLGEMEIN.cAllgemein.USRID & " AND chatMgSt_gelesen=0", "ADMIN",,, 0)
End Function
Public Shared Function GET_CHAT_LIST() As List(Of cMessenger_Chat)
Dim LIST As New List(Of cMessenger_Chat)
@@ -56,11 +59,11 @@ Public Class cMessenger
End Sub
Sub New(chat_id)
Sub New(chat_id As Integer, Optional topMax As String = "")
Me.chat_id = chat_id
Me.chat_erstelltMaId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID
Me.chat_erstelltAm = Now
LOAD()
LOAD(topMax)
End Sub
Public Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
@@ -94,8 +97,8 @@ Public Class cMessenger
Return chat_id > 0
End Function
Public Sub LOAD()
Try
Public Sub LOAD(Optional topMax As String = "")
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)
@@ -112,7 +115,7 @@ Public Class cMessenger
Next
Me.LOAD_MEMBERS()
Me.LOAD_MESSAGES()
Me.LOAD_MESSAGES(topMax)
End If
dr.Close()
End Using
@@ -135,6 +138,12 @@ Public Class cMessenger
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
End Try
End Sub
Public Function READ_ALL_MESSAGES() As Boolean
Dim sqlstr = "UPDATE tblMessenger_ChatMessageStatus SET chatMgSt_gelesen=1 FROM [tblMessenger_Chat] INNER JOIN tblMessenger_ChatMessages ON [chat_id]=chatMg_chatId INNER JOIN tblMessenger_ChatMessageStatus ON chatMgSt_chatMsgId=chatMg_id WHERE chat_id=" & Me.chat_id & " AND chatMgSt_MaId=" & VERAG_PROG_ALLGEMEIN.cAllgemein.USRID & " AND chatMgSt_gelesen=0 "
Return SQL.doSQL(sqlstr, "ADMIN")
End Function
Public Function DELETE_MEMBERS() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
Dim sqlstr = " DELETE FROM [tblMessenger_ChatMembers] WHERE chatMb_chatId=" & Me.chat_id
Return SQL.doSQL(sqlstr, "ADMIN")
@@ -161,7 +170,7 @@ Public Class cMessenger
Try
Me.CHAT_MESSAGES.Clear()
Using conn As SqlConnection = SQL.GetNewOpenConnectionADMIN()
Using cmd As New SqlCommand("SELECT TOP " & top & " * FROM [tblMessenger_ChatMessages] WHERE chatMg_chatId=@chat_id order by chatMg_datetime", conn)
Using cmd As New SqlCommand("SELECT * FROM(SELECT TOP " & top & " * FROM [tblMessenger_ChatMessages] WHERE chatMg_chatId=@chat_id order by chatMg_datetime desc) as T order by chatMg_datetime asc", conn)
cmd.Parameters.AddWithValue("@chat_id", chat_id)
Dim dr = cmd.ExecuteReader()
While dr.Read
@@ -498,6 +507,9 @@ Public Class cMessenger
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("chatMg_maId", chatMg_maId))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("chatMg_chatId", chatMg_chatId))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("chatMg_datetime", chatMg_datetime))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("chatMg_maName", chatMg_maName))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("chatMg_maFirma", chatMg_maFirma))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("chatMg_type", chatMg_type))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("chatMg_text", chatMg_text))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("chatMg_anhang_docId", chatMg_anhang_docId))
@@ -510,15 +522,23 @@ Public Class cMessenger
Public Function SAVE() As Boolean
Public Function SAVE(saveStat As Boolean, Optional CHAT_MEMBERS As List(Of cMessenger_ChatMembers) = Nothing) As Boolean
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblMessenger_ChatMessages WHERE chatMg_id=@chatMg_id) " &
" BEGIN " & getUpdateCmd() & " END " &
" Else " &
" BEGIN " & getInsertCmd() & " END " &
" commit tran "
Dim tmp_id = SQL.doSQLVarListID(Me.chatMg_id, sqlstr, "ADMIN", , list)
If tmp_id > 0 Then
Me.chatMg_id = tmp_id
If saveStat Then SAVE_STATUS_FIRST(CHAT_MEMBERS)
Return True
Else
Return False
End If
Return SQL.doSQLVarList(sqlstr, "ADMIN", , list)
''Return SQL.doSQLVarList(sqlstr, "ADMIN", , list)
End Function
Public Sub LOAD()
@@ -538,7 +558,7 @@ Public Class cMessenger
End If
Next
LOAD_STATUS()
End If
dr.Close()
End Using
@@ -595,23 +615,29 @@ Public Class cMessenger
Return SQL.doSQL(sqlstr, "ADMIN")
End Function
'Public Sub SAVE_STATUS()
' Try
' Dim CHAT As New cMessenger_Chat(Me.chatMg_chatId)
' 'DELETE_STATUS()
' For Each MB In CHAT.CHAT_MEMBERS
' Dim STAT As New cMessenger_ChatMessageStatus(Me.chatMg_id, MB.chatMb_maId)
' MB.chatMb_chatId = Me.chat_id
' MB.SAVE()
' Next
' 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 DELETE_MEMBERS() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
' Dim sqlstr = " DELETE FROM [tblMessenger_ChatMessageStatus] WHERE chatMb_chatId=" & Me.chat_id
Public Sub SAVE_STATUS_FIRST(CHAT_MEMBERS As List(Of cMessenger_ChatMembers))
Try
If CHAT_MEMBERS IsNot Nothing Then
For Each MB In CHAT_MEMBERS
Dim gelesen = False
If MB.chatMb_maId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID Then
gelesen = True
End If
Dim STAT As New cMessenger_ChatMessageStatus(Me.chatMg_id, MB.chatMb_maId, gelesen)
STAT.SAVE()
Next
End If
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 DELETE_STATUS() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
' Dim sqlstr = " DELETE FROM [tblMessenger_ChatMessageStatus] WHERE chatMb_chatId=" & Me.chatMg_chatId
' Return SQL.doSQL(sqlstr, "ADMIN")
'End Function
Public Sub LOAD_STATUS()
Try
Me.CHAT_MESSAGES_STATUS_LIST.Clear()

5
VERAG_PROG_ALLGEMEIN/Classes/cMitarbeiter.vb
View File

@@ -51,7 +51,10 @@ Public Class cMitarbeiter
Property mit_AliasAD_Domain As Object = Nothing
Property mit_AliasAD_Username As Object = Nothing
Property mit_teamId As Object = Nothing
Property mit_ChatBenutzer As Boolean = True
Property mit_FirmaHaupt As Object = Nothing
Sub New()
@@ -133,6 +136,8 @@ Public Class cMitarbeiter
If Not dr.Item("mit_teamId") Is DBNull.Value Then Me.mit_teamId = dr.Item("mit_teamId")
Me.mit_ChatBenutzer = dr.Item("mit_ChatBenutzer")
If Not dr.Item("mit_FirmaHaupt") Is DBNull.Value Then Me.mit_FirmaHaupt = dr.Item("mit_FirmaHaupt")
Catch ex As Exception

13
VERAG_PROG_ALLGEMEIN/Classes/cSpeditionsbuch.vb
View File

@@ -70,7 +70,7 @@ Public Class cSpeditionsbuch
Property FilialenNr As Integer = -1
Property AbfertigungsNr As Integer = -1
Property UnterNr As Integer = -1
Property Abfertigungsdatum As Object = Nothing
Property Abfertigungsdatum As Object = CDate(Now.ToShortDateString)
Property Bar As Boolean = False
Property Fakturiert As Boolean = False
Property BelegNr As String = ""
@@ -138,6 +138,7 @@ Public Class cSpeditionsbuch
Property Versendungsland As String = ""
Property SB_CMR As Boolean = False
Property SB_CMRDatum As Object = Nothing
Property SB_CMRNr As Object = Nothing
Property veoerz_basbtg As Double = 0
Property Zucker_MRN_Nr As Object = Nothing
Property Zucker_MRN_Datum As Object = Nothing
@@ -173,6 +174,10 @@ Public Class cSpeditionsbuch
Property DokumentId_Steuerbeleg As Object = Nothing
Property DokumentId_Mitteilung As Object = Nothing
Property DokumentId_VBD As Object = Nothing
Property FilialenNrHandling As Object = Nothing
Property HandlingZuKassieren As Double = 0
Property UNTERPOS As New List(Of cSpeditionsbuchUnterPos)
Property VORKOSTEN As New List(Of cVorkosten)
@@ -322,7 +327,10 @@ Public Class cSpeditionsbuch
Me.DokumentId_Steuerbeleg = SQL.checkNullReturnValue(dr.Item("DokumentId_Steuerbeleg"), Nothing)
Me.DokumentId_Mitteilung = SQL.checkNullReturnValue(dr.Item("DokumentId_Mitteilung"), Nothing)
Me.DokumentId_VBD = SQL.checkNullReturnValue(dr.Item("DokumentId_VBD"), Nothing)
Me.FilialenNrHandling = SQL.checkNullReturnValue(dr.Item("FilialenNrHandling"), Nothing)
Me.HandlingZuKassieren = SQL.checkNulDbl(dr.Item("HandlingZuKassieren"))
Me.SB_CMRNr = SQL.checkNullReturnValue(dr.Item("SB_CMRNr"), Nothing)
LOAD_VORKOSTEN()
@@ -426,6 +434,9 @@ Public Class cSpeditionsbuch
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DokumentId_Steuerbeleg", DokumentId_Steuerbeleg))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DokumentId_Mitteilung", DokumentId_Mitteilung))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DokumentId_VBD", DokumentId_VBD))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FilialenNrHandling", FilialenNrHandling))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("HandlingZuKassieren", HandlingZuKassieren))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("SB_CMRNr", SB_CMRNr))
Return list

172
VERAG_PROG_ALLGEMEIN/Classes/cTextkonserve.vb Normal file
View File

@@ -0,0 +1,172 @@

Imports System.Data.SqlClient
Imports System.Reflection
Public Class cTextkonserve
Property txt_Id As Integer
Property txt_kategorie As String
Property txt_bezeichnung As String
Property txt_sprache As String
Property txt_text As String
Property txt_betreff As String
Public hasEntry As Boolean = False
Dim SQL As New SQL
Sub New()
End Sub
Sub New(txt_Id)
' If txt_Id IsNot Nothing Then
Me.txt_Id = txt_Id
LOAD()
' End If
End Sub
Sub New(txt_kategorie, txt_bezeichnung, txt_sprache)
' If txt_Id IsNot Nothing Then
Me.txt_kategorie = txt_kategorie
Me.txt_bezeichnung = txt_bezeichnung
Me.txt_sprache = txt_sprache
LOAD(txt_kategorie, txt_bezeichnung, txt_sprache)
' End If
End Sub
Public 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("txt_Id", txt_Id, , True, True))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("txt_kategorie", txt_kategorie))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("txt_bezeichnung", txt_bezeichnung))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("txt_sprache", txt_sprache))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("txt_text", txt_text))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("txt_betreff", txt_betreff))
Return list
End Function
Public Function SAVE(Optional errHinweis = "") As Boolean
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblTextkonserve WITH(updlock,serializable) WHERE txt_Id=@txt_Id) " &
" BEGIN " & getUpdateCmd() & " END " &
" Else " &
" BEGIN " & getInsertCmd() & " END " &
" commit tran "
txt_Id = SQL.doSQLVarListID(txt_Id, sqlstr, "FMZOLL", , list,, errHinweis)
Return txt_Id > 0
End Function
Public Sub LOAD()
Try
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL
Using cmd As New SqlCommand("SELECT * FROM tblTextkonserve WHERE txt_Id=@txt_Id ", conn)
cmd.Parameters.AddWithValue("@txt_Id", txt_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
hasEntry = True
Next
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 Sub LOAD(txt_kategorie, txt_bezeichnung, txt_sprache)
Try
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL
Using cmd As New SqlCommand("SELECT TOP 1 * FROM tblTextkonserve WHERE txt_kategorie=@txt_kategorie AND txt_bezeichnung=@txt_bezeichnung AND txt_sprache=@txt_sprache ", conn)
cmd.Parameters.AddWithValue("@txt_kategorie", txt_kategorie)
cmd.Parameters.AddWithValue("@txt_bezeichnung", txt_bezeichnung)
cmd.Parameters.AddWithValue("@txt_sprache", txt_sprache)
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
hasEntry = True
Next
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 [tblTextkonserve] SET " & str & " WHERE txt_Id=@txt_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 tblTextkonserve (" & 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
Public Function DELETE() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
Dim sqlstr = " DELETE FROM [tblTextkonserve] WITH(updlock,serializable) WHERE txt_Id=" & Me.txt_Id
Return SQL.doSQL(sqlstr, "FMZOLL")
End Function
Public Shared Function DELETE(id As Integer) As Boolean 'obj As Object, tablename As String, where As String) As Boolean
Dim sqlstr = " DELETE FROM [tblTextkonserve] WITH(updlock,serializable) WHERE txt_Id=" & id
Return (New VERAG_PROG_ALLGEMEIN.SQL).doSQL(sqlstr, "FMZOLL")
End Function
End Class

17
VERAG_PROG_ALLGEMEIN/Classes/cVorauskasse.vb
View File

@@ -64,7 +64,10 @@ Public Class cVorauskasse
Property vk_Berechnung_SonstigeKosten As Object = Nothing
Property vk_Berechnung_SonstigeKostenText As Object = Nothing
Property vk_Berechnung_PP As Object = Nothing
Property vk_Freigegeben As Boolean = False
Property vk_SendungId As Object = Nothing
Property vk_AvisoId As Object = Nothing
Property vk_VermerkId As Object = Nothing
Dim SQL As New SQL
@@ -136,6 +139,10 @@ Public Class cVorauskasse
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("vk_Berechnung_SVS", vk_Berechnung_SVS))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("vk_Berechnung_SonstigeKosten", vk_Berechnung_SonstigeKosten))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("vk_Berechnung_PP", vk_Berechnung_PP))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("vk_Freigegeben", vk_Freigegeben))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("vk_SendungId", vk_SendungId))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("vk_AvisoId", vk_AvisoId))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("vk_VermerkId", vk_VermerkId))
Return list
End Function
@@ -190,6 +197,8 @@ Public Class cVorauskasse
Public Function SET_GELDEINGANG(vk_GeldEingetroffen As Boolean, Optional vk_BH_Bemerkung As Object = Nothing) As Boolean
Me.vk_GeldEingetroffen = vk_GeldEingetroffen
Me.vk_Freigegeben = vk_GeldEingetroffen
If Me.vk_GeldEingetroffen Then
Me.vk_BH_DatumGeldeingang = Now
Me.vk_BH_SachbearbeiterId = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_id
@@ -204,6 +213,12 @@ Public Class cVorauskasse
Return SAVE()
End Function
Public Function SET_FREIGEGEBEN(vk_Freigegeben As Boolean, Optional vk_BH_Bemerkung As Object = Nothing) As Boolean
Me.vk_Freigegeben = vk_Freigegeben
Me.vk_BH_Bemerkung = vk_BH_Bemerkung
Return SAVE()
End Function
Public Function SET_STORNO() As Boolean
Me.vk_storno = Not Me.vk_storno
Return SAVE()

45
VERAG_PROG_ALLGEMEIN/DATENSERVER/cDATENSERVER.vb
View File

@@ -189,13 +189,15 @@ Public Class cDATENSERVER
End Try
End Function
Public Function replaceInvalidCahr(ByRef s)
Public Shared Function replaceInvalidCahr(ByRef s)
s = s.replace("İ", "I")
s = s.replace("İ", "I")
s = s.replace("ı", "i")
s = s.replace("€", "E")
s = s.replace(",", ".")
Dim tempBytes = System.Text.Encoding.GetEncoding("ISO-8859-8").GetBytes(s)
s = System.Text.Encoding.UTF8.GetString(tempBytes)
@@ -207,7 +209,6 @@ Public Class cDATENSERVER
If endung = "" Then Dim fi As New IO.DirectoryInfo(srcPath) : endung = fi.Extension
' If bezeichnung = "" Then bezeichnung = System.IO.Path.GetFileName(srcPath) : endung = ""
If bezeichnung = "" Then bezeichnung = da_name
replaceInvalidCahr(bezeichnung)
Dim destpath = DATENVERVER_OPTIONS.getDescPath(rootDir, da_kategorie, da_ordner, da_uOrdner1, da_uOrdner2, da_uOrdner3, da_KundenNr, replaceInvalidCahr(da_name), endung)
genHEADER_DATA()
@@ -219,6 +220,7 @@ Public Class cDATENSERVER
End If
DATA_LIST.DELETE_ALL() 'Wenn nur eine Datei existieren darf, müssen zuerst alle Einträge gelöscht werden
End If
If DATA_LIST.ADD(srcPath, destpath, bezeichnung, "", coll_archiv) Then
Return (destpath <> "")
End If
@@ -313,6 +315,10 @@ Public Class cDATENSERVER
fd.Filter = "PDF|*.PDF"
fd.FilterIndex = 2
fd.DefaultExt = ".pdf"
endung = ".pdf"
Case Else
fd.Title = "Datei auswählen"
End Select
Dim result As DialogResult = fd.ShowDialog()
If result = System.Windows.Forms.DialogResult.OK And fd.FileNames.Count > 0 Then
@@ -405,8 +411,9 @@ Public Class cDATENSERVER
Return ""
End Function
Public Function GET_TOP1_PATH(Optional openFile As Boolean = True) As String
Public Function GET_TOP1_PATH(Optional openFile As Boolean = False) As String
If DATA_LIST.LIST.Count > 0 Then
If openFile Then OPEN(DATA_LIST.LIST(0).coll_id)
Return DATA_LIST.LIST(0).coll_pfad
End If
Return ""
@@ -1330,7 +1337,7 @@ Public Class cDatenarchiv_Collection
Public Function DELETE() As Boolean
Try
If coll_pfad.Contains("\\192.168.0.91\DATENARCHIV\") Then 'Um sicher zu gehen, dass der pfad im richtigem VZ ist.
If coll_pfad.Contains(VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir) Then '"\\192.168.0.91\DATENARCHIV\") Then 'Um sicher zu gehen, dass der pfad im richtigem VZ ist.
If My.Computer.FileSystem.FileExists(coll_pfad) Then
saveFileToDel(coll_pfad)
Try
@@ -1469,7 +1476,7 @@ Public Class cDatenserverIDCollectionList
LIST.Clear()
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
'Using cmd As New SqlCommand("SELECT coll_id, coll_daId, da_pfad, da_name FROM tblDatenarchiv_Collection INNER JOIN tblDatenarchiv ON coll_daId=da_id WHERE coll_id=@coll_id ", conn)
Using cmd As New SqlCommand("SELECT coll_id, coll_daId, coll_pfad, coll_bezeichnung,coll_info,coll_archiv FROM tblDatenarchiv_Collection WHERE coll_daId=@coll_daId order by coll_bezeichnung ", conn)
Using cmd As New SqlCommand("SELECT coll_id, coll_daId, coll_pfad, coll_bezeichnung,coll_info,coll_archiv FROM tblDatenarchiv_Collection WHERE coll_daId=@coll_daId order by coll_bezeichnung ", conn) ' order by [coll_date] desc
cmd.Parameters.AddWithValue("@coll_daId", Me.coll_daId)
Dim dr = cmd.ExecuteReader()
'LIST = New List(Of cDatenarchiv_Collection)
@@ -1719,16 +1726,32 @@ Public Class DATENVERVER_OPTIONS
End Function
Shared Function initRootDir() As String
If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then
initRootDir = "\\192.168.0.91\DATENARCHIV\DATENARCHIV_TESTSYSTEM\"
Else
initRootDir = "\\192.168.0.91\DATENARCHIV\"
End If
initRootDir = getRootDir()
End Function
Shared Function getRootDir(Optional TESTSYSTEM = Nothing) As String
Dim TS = If(TESTSYSTEM IsNot Nothing, TESTSYSTEM, VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM)
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "UNISPED" Then
If TS Then
' getRootDir = "\\192.168.0.91\DATENARCHIV\DATENARCHIV_TESTSYSTEM\"
getRootDir = "\\datenarchiv.verag.ost.dmn\DATENARCHIV\DATENARCHIV_TESTSYSTEM\"
Else
' getRootDir = "\\192.168.0.91\DATENARCHIV\"
getRootDir = "\\datenarchiv.verag.ost.dmn\DATENARCHIV\"
End If
Else
If TS Then
' getRootDir = "\\192.168.0.91\DATENARCHIV\DATENARCHIV_TESTSYSTEM\"
getRootDir = "\\datenarchiv.verag.ost.dmn\DATENARCHIV\DATENARCHIV_TESTSYSTEM\"
Else
' getRootDir = "\\192.168.0.91\DATENARCHIV\"
getRootDir = "\\datenarchiv.verag.ost.dmn\DATENARCHIV\"
End If
End If
End Function
Shared Function getDescPath(rootDir, kategorie, ordner, da_uOrdner1, da_uOrdner2, da_uOrdner3, kdnr, bezeichnung, endung, Optional onlyordner = False) As String

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

@@ -32,6 +32,8 @@ Partial Class frmMessenger
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmMessenger))
Me.SplitContainer = New System.Windows.Forms.SplitContainer()
Me.btnTEST = New System.Windows.Forms.Button()
Me.Panel2 = New System.Windows.Forms.Panel()
Me.cbxInaktiveChats = New System.Windows.Forms.CheckBox()
Me.Panel1 = New System.Windows.Forms.Panel()
Me.lbl = New System.Windows.Forms.Label()
Me.Button2 = New System.Windows.Forms.Button()
@@ -42,23 +44,28 @@ Partial Class frmMessenger
Me.Button3 = New System.Windows.Forms.Button()
Me.btn = New System.Windows.Forms.Button()
Me.rtbChatMessage = New System.Windows.Forms.RichTextBox()
Me.TimerNEW_MESSAGE = New System.Windows.Forms.Timer(Me.components)
Me.Timer_REFRESH = New System.Windows.Forms.Timer(Me.components)
Me.cntxt = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.ChatDeaktivierenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.dgvChats = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.MyFlowLayoutPanel1 = New VERAG_PROG_ALLGEMEIN.MyFlowLayoutPanel(Me.components)
Me.UsrCntlMessenger_ChatElement1 = New VERAG_PROG_ALLGEMEIN.usrCntlMessenger_ChatElement()
Me.UsrCntlMessenger_ChatAnhang1 = New VERAG_PROG_ALLGEMEIN.usrCntlMessenger_ChatAnhang()
Me.UsrCntlMessenger_ChatElement2 = New VERAG_PROG_ALLGEMEIN.usrCntlMessenger_ChatElement()
Me.UsrCntlMessenger_ChatElement3 = New VERAG_PROG_ALLGEMEIN.usrCntlMessenger_ChatElement()
Me.TimerNEW_MESSAGE = New System.Windows.Forms.Timer(Me.components)
CType(Me.SplitContainer, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SplitContainer.Panel1.SuspendLayout()
Me.SplitContainer.Panel2.SuspendLayout()
Me.SplitContainer.SuspendLayout()
Me.Panel2.SuspendLayout()
Me.Panel1.SuspendLayout()
CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SplitContainer1.Panel1.SuspendLayout()
Me.SplitContainer1.Panel2.SuspendLayout()
Me.SplitContainer1.SuspendLayout()
Me.pnl.SuspendLayout()
Me.cntxt.SuspendLayout()
CType(Me.dgvChats, System.ComponentModel.ISupportInitialize).BeginInit()
Me.MyFlowLayoutPanel1.SuspendLayout()
Me.SuspendLayout()
@@ -71,8 +78,9 @@ Partial Class frmMessenger
'
'SplitContainer.Panel1
'
Me.SplitContainer.Panel1.Controls.Add(Me.btnTEST)
Me.SplitContainer.Panel1.Controls.Add(Me.dgvChats)
Me.SplitContainer.Panel1.Controls.Add(Me.btnTEST)
Me.SplitContainer.Panel1.Controls.Add(Me.Panel2)
Me.SplitContainer.Panel1.Controls.Add(Me.Panel1)
'
'SplitContainer.Panel2
@@ -87,7 +95,7 @@ Partial Class frmMessenger
Me.btnTEST.BackColor = System.Drawing.Color.Red
Me.btnTEST.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnTEST.ForeColor = System.Drawing.Color.White
Me.btnTEST.Location = New System.Drawing.Point(91, 511)
Me.btnTEST.Location = New System.Drawing.Point(94, 273)
Me.btnTEST.Name = "btnTEST"
Me.btnTEST.Size = New System.Drawing.Size(71, 33)
Me.btnTEST.TabIndex = 4
@@ -95,6 +103,25 @@ Partial Class frmMessenger
Me.btnTEST.UseVisualStyleBackColor = False
Me.btnTEST.Visible = False
'
'Panel2
'
Me.Panel2.Controls.Add(Me.cbxInaktiveChats)
Me.Panel2.Dock = System.Windows.Forms.DockStyle.Bottom
Me.Panel2.Location = New System.Drawing.Point(0, 566)
Me.Panel2.Name = "Panel2"
Me.Panel2.Size = New System.Drawing.Size(272, 30)
Me.Panel2.TabIndex = 6
'
'cbxInaktiveChats
'
Me.cbxInaktiveChats.AutoSize = True
Me.cbxInaktiveChats.Location = New System.Drawing.Point(3, 6)
Me.cbxInaktiveChats.Name = "cbxInaktiveChats"
Me.cbxInaktiveChats.Size = New System.Drawing.Size(93, 17)
Me.cbxInaktiveChats.TabIndex = 7
Me.cbxInaktiveChats.Text = "inaktive Chats"
Me.cbxInaktiveChats.UseVisualStyleBackColor = True
'
'Panel1
'
Me.Panel1.BackColor = System.Drawing.Color.White
@@ -174,14 +201,15 @@ Partial Class frmMessenger
'
'Button4
'
Me.Button4.BackColor = System.Drawing.Color.SteelBlue
Me.Button4.BackColor = System.Drawing.Color.MediumSeaGreen
Me.Button4.BackgroundImage = Global.VERAG_PROG_ALLGEMEIN.My.Resources.Resources.people
Me.Button4.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.Button4.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button4.ForeColor = System.Drawing.Color.White
Me.Button4.Location = New System.Drawing.Point(465, 44)
Me.Button4.Location = New System.Drawing.Point(489, 93)
Me.Button4.Name = "Button4"
Me.Button4.Size = New System.Drawing.Size(76, 40)
Me.Button4.TabIndex = 3
Me.Button4.Text = "Senden"
Me.Button4.Size = New System.Drawing.Size(49, 33)
Me.Button4.TabIndex = 5
Me.Button4.UseVisualStyleBackColor = False
'
'Button3
@@ -189,7 +217,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, 86)
Me.Button3.Location = New System.Drawing.Point(461, 47)
Me.Button3.Name = "Button3"
Me.Button3.Size = New System.Drawing.Size(76, 40)
Me.Button3.TabIndex = 2
@@ -217,6 +245,26 @@ Partial Class frmMessenger
Me.rtbChatMessage.TabIndex = 0
Me.rtbChatMessage.Text = ""
'
'TimerNEW_MESSAGE
'
'
'Timer_REFRESH
'
Me.Timer_REFRESH.Enabled = True
Me.Timer_REFRESH.Interval = 5000
'
'cntxt
'
Me.cntxt.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ChatDeaktivierenToolStripMenuItem})
Me.cntxt.Name = "cntxt"
Me.cntxt.Size = New System.Drawing.Size(167, 26)
'
'ChatDeaktivierenToolStripMenuItem
'
Me.ChatDeaktivierenToolStripMenuItem.Name = "ChatDeaktivierenToolStripMenuItem"
Me.ChatDeaktivierenToolStripMenuItem.Size = New System.Drawing.Size(166, 22)
Me.ChatDeaktivierenToolStripMenuItem.Text = "Chat deaktivieren"
'
'dgvChats
'
Me.dgvChats.AKTUALISIERUNGS_INTERVALL = -1
@@ -260,7 +308,7 @@ Partial Class frmMessenger
Me.dgvChats.RowsDefaultCellStyle = DataGridViewCellStyle4
Me.dgvChats.RowTemplate.Height = 30
Me.dgvChats.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.dgvChats.Size = New System.Drawing.Size(272, 554)
Me.dgvChats.Size = New System.Drawing.Size(272, 524)
Me.dgvChats.TabIndex = 0
'
'MyFlowLayoutPanel1
@@ -291,6 +339,7 @@ Partial Class frmMessenger
Me.UsrCntlMessenger_ChatAnhang1.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.UsrCntlMessenger_ChatAnhang1.BackColor = System.Drawing.Color.White
Me.UsrCntlMessenger_ChatAnhang1.BG_COLOR = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
Me.UsrCntlMessenger_ChatAnhang1.CHAT_MSG = Nothing
Me.UsrCntlMessenger_ChatAnhang1.Location = New System.Drawing.Point(3, 57)
Me.UsrCntlMessenger_ChatAnhang1.Name = "UsrCntlMessenger_ChatAnhang1"
Me.UsrCntlMessenger_ChatAnhang1.Size = New System.Drawing.Size(378, 72)
@@ -314,9 +363,6 @@ Partial Class frmMessenger
Me.UsrCntlMessenger_ChatElement3.Size = New System.Drawing.Size(378, 48)
Me.UsrCntlMessenger_ChatElement3.TabIndex = 6
'
'TimerNEW_MESSAGE
'
'
'frmMessenger
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -325,11 +371,14 @@ Partial Class frmMessenger
Me.Controls.Add(Me.SplitContainer)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Name = "frmMessenger"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "Messenger"
Me.SplitContainer.Panel1.ResumeLayout(False)
Me.SplitContainer.Panel2.ResumeLayout(False)
CType(Me.SplitContainer, System.ComponentModel.ISupportInitialize).EndInit()
Me.SplitContainer.ResumeLayout(False)
Me.Panel2.ResumeLayout(False)
Me.Panel2.PerformLayout()
Me.Panel1.ResumeLayout(False)
Me.Panel1.PerformLayout()
Me.SplitContainer1.Panel1.ResumeLayout(False)
@@ -337,6 +386,7 @@ Partial Class frmMessenger
CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).EndInit()
Me.SplitContainer1.ResumeLayout(False)
Me.pnl.ResumeLayout(False)
Me.cntxt.ResumeLayout(False)
CType(Me.dgvChats, System.ComponentModel.ISupportInitialize).EndInit()
Me.MyFlowLayoutPanel1.ResumeLayout(False)
Me.ResumeLayout(False)
@@ -357,9 +407,14 @@ Partial Class frmMessenger
Friend WithEvents UsrCntlMessenger_ChatAnhang1 As usrCntlMessenger_ChatAnhang
Friend WithEvents UsrCntlMessenger_ChatElement1 As usrCntlMessenger_ChatElement
Friend WithEvents Button3 As Button
Friend WithEvents Button4 As Button
Friend WithEvents UsrCntlMessenger_ChatElement2 As usrCntlMessenger_ChatElement
Friend WithEvents UsrCntlMessenger_ChatElement3 As usrCntlMessenger_ChatElement
Friend WithEvents btnTEST As Button
Friend WithEvents TimerNEW_MESSAGE As Timer
Friend WithEvents Timer_REFRESH As Timer
Friend WithEvents Panel2 As Panel
Friend WithEvents cbxInaktiveChats As CheckBox
Friend WithEvents cntxt As ContextMenuStrip
Friend WithEvents ChatDeaktivierenToolStripMenuItem As ToolStripMenuItem
Friend WithEvents Button4 As Button
End Class

6
VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger.resx
View File

@@ -120,6 +120,12 @@
<metadata name="TimerNEW_MESSAGE.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<metadata name="Timer_REFRESH.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>106, 17</value>
</metadata>
<metadata name="cntxt.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>242, 17</value>
</metadata>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>

473
VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger.vb
View File

@@ -6,7 +6,8 @@ Public Class frmMessenger
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Dim CHAT As VERAG_PROG_ALLGEMEIN.cMessenger.cMessenger_Chat = Nothing
Dim MSG_LISTENDER As New cMessangerListender
Dim topMessages As String = "20"
Dim loaded = False
Public Sub New()
' Dieser Aufruf ist für den Designer erforderlich.
@@ -23,80 +24,194 @@ Public Class frmMessenger
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Dim f As New frmMessenger_NeuerChat
f.ShowDialog(Me)
If f.chat_id > 0 Then
'Dim dgv_ChatID = If(dgvChats.SelectedRows.Count > 0, dgvChats.SelectedRows(0).Cells("chat_id").Value, -1)
intiDGVChats(f.chat_id)
End If
End Sub
Private Sub frmMessenger_Load(sender As Object, e As EventArgs) Handles Me.Load
rtbChatMessage.AllowDrop = True
MSG_LISTENDER.START()
intiDGVChats()
TimerNEW_MESSAGE.Enabled = True
intiDGVChats()
MyFlowLayoutPanel1.Controls.Clear()
'loaded = True
End Sub
Sub intiDGVChats()
Sub intiDGVChats(Optional dgv_ChatID = -1, Optional reloadChat = True)
With dgvChats
.DataSource = SQL.loadDgvBySql("SELECT [chat_id],chat_name FROM [tblMessenger_Chat] WHERE [chat_aktiv]=1 AND (SELECT COUNT(*) FROM tblMessenger_ChatMembers WHERE chatMB_chatId=chat_id AND chatMB_maId=" & VERAG_PROG_ALLGEMEIN.cAllgemein.USRID & ")>0", "ADMIN")
.DataSource = SQL.loadDgvBySql("SELECT [chat_id],CASE WHEN chat_name<>'' THEN chat_name ELSE (SELECT TOP 1 mit_vname + ' ' + mit_nname FROM tblMessenger_ChatMembers INNER JOIN tblMitarbeiter ON mit_id=chatMb_maId where chatMb_chatId=chat_id AND chatMb_maId <>" & VERAG_PROG_ALLGEMEIN.cAllgemein.USRID & ") END as chat_name
,(SELECT REPLACE(COUNT(*),'0','') FROM tblMessenger_ChatMessages INNER JOIN tblMessenger_ChatMessageStatus ON chatMgSt_chatMsgId=chatMg_id WHERE [chat_id]=chatMg_chatId AND chatMgSt_MaId=" & VERAG_PROG_ALLGEMEIN.cAllgemein.USRID & " AND chatMgSt_gelesen=0) as ungelesen
FROM [tblMessenger_Chat] WHERE (SELECT COUNT(*) FROM tblMessenger_ChatMembers WHERE chatMB_chatId=chat_id AND chatMB_maId=" & VERAG_PROG_ALLGEMEIN.cAllgemein.USRID & ")>0
AND chat_aktiv='" & (Not cbxInaktiveChats.Checked) & "' ORDER BY chat_id", "ADMIN")
If .Columns.Count = 0 Then Exit Sub
.Columns("chat_id").Visible = False
.Columns("chat_name").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
.Columns("ungelesen").Width = 30
.Columns("ungelesen").HeaderText = "neu"
.Columns("ungelesen").DefaultCellStyle.ForeColor = Color.White
.Columns("ungelesen").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
.Columns("ungelesen").DefaultCellStyle.Font = New Font(.Font.FontFamily, 7, FontStyle.Bold)
Dim loadedTmp = loaded
If Not reloadChat Then
loaded = False
dgvChats.ClearSelection()
If dgv_ChatID > 0 Then
For Each r As DataGridViewRow In .Rows
If r.Cells("chat_id").Value = dgv_ChatID Then
dgvChats.ClearSelection()
r.Selected = True : Exit For
End If
Next
End If
loaded = loadedTmp
Else
dgvChats.ClearSelection()
SplitContainer1.Enabled = False
If dgv_ChatID > 0 Then
For Each r As DataGridViewRow In .Rows
If r.Cells("chat_id").Value = dgv_ChatID Then
dgvChats.ClearSelection()
SplitContainer1.Enabled = True
r.Selected = True : Exit For
End If
Next
End If
End If
'dgvChats.ClearSelection()
'SplitContainer1.Enabled = False
'If dgv_ChatID > 0 Then
' For Each r As DataGridViewRow In .Rows
' If r.Cells("chat_id").Value = dgv_ChatID Then
' dgvChats.ClearSelection()
' SplitContainer1.Enabled = True
' r.Selected = True : Exit For
' End If
' Next
'End If
End With
rtbChatMessage.Focus()
End Sub
Private Sub dgvChats_SelectionChanged(sender As Object, e As EventArgs) Handles dgvChats.SelectionChanged
If Not loaded Then Exit Sub
MyFlowLayoutPanel1.Controls.Clear()
If dgvChats.SelectedRows.Count > 0 Then
CHAT = New VERAG_PROG_ALLGEMEIN.cMessenger.cMessenger_Chat(dgvChats.SelectedRows(0).Cells("chat_id").Value)
CHAT = New VERAG_PROG_ALLGEMEIN.cMessenger.cMessenger_Chat(dgvChats.SelectedRows(0).Cells("chat_id").Value, topMessages)
SplitContainer1.Enabled = True
RELOAD_CHAT()
End If
End Sub
Sub RELOAD_CHAT()
MyFlowLayoutPanel1.Controls.Clear()
If CHAT IsNot Nothing Then
' CHAT = New VERAG_PROG_ALLGEMEIN.cMessenger.cMessenger_Chat(dgvChats.SelectedRows(0).Cells("chat_id").Value)
For Each MSG In CHAT.CHAT_MESSAGES
Try
MyFlowLayoutPanel1.Controls.Clear()
If CHAT IsNot Nothing Then
CHAT.READ_ALL_MESSAGES()
' CHAT = New VERAG_PROG_ALLGEMEIN.cMessenger.cMessenger_Chat(dgvChats.SelectedRows(0).Cells("chat_id").Value)
For Each MSG In CHAT.CHAT_MESSAGES
MyFlowLayoutPanel1.Controls.Add(getControlFromMSG(MSG))
Next
' MyFlowLayoutPanel1.VerticalScroll.()
'MyFlowLayoutPanel1.AutoScrollPosition = New Point(MyFlowLayoutPanel1.Width, MyFlowLayoutPanel1.Height)
' If MyFlowLayoutPanel1.Controls.Count > 0 Then MyFlowLayoutPanel1.ScrollControlIntoView(MyFlowLayoutPanel1.Controls(MyFlowLayoutPanel1.Controls.Count - 1))
MyFlowLayoutPanel1.VerticalScroll.Value = MyFlowLayoutPanel1.VerticalScroll.Maximum
End If
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
End Try
End Sub
Function getControlFromMSG(MSG As VERAG_PROG_ALLGEMEIN.cMessenger.cMessenger_ChatMessages)
Select Case MSG.chatMg_type
Case "TEXT"
Dim CHAT_ITEM As New usrCntlMessenger_ChatElement(MSG)
checkUsrId(MSG, CHAT_ITEM)
CHAT_ITEM.txtChatmessage.Text = MSG.chatMg_text
'CHAT_ITEM.txtChatmessage.Text = MSG.chatMg_text
'CHAT_ITEM.lblName.Text = MSG.chatMg_maId
MyFlowLayoutPanel1.Controls.Add(CHAT_ITEM)
Next
' MyFlowLayoutPanel1.VerticalScroll.()
'MyFlowLayoutPanel1.AutoScrollPosition = New Point(MyFlowLayoutPanel1.Width, MyFlowLayoutPanel1.Height)
' If MyFlowLayoutPanel1.Controls.Count > 0 Then MyFlowLayoutPanel1.ScrollControlIntoView(MyFlowLayoutPanel1.Controls(MyFlowLayoutPanel1.Controls.Count - 1))
MyFlowLayoutPanel1.VerticalScroll.Value = MyFlowLayoutPanel1.VerticalScroll.Maximum
End If
End Sub
Return (CHAT_ITEM)
'CHAT.READ_ALL_MESSAGES()
Case "ATTACHMENT"
Dim CHAT_ITEM As New usrCntlMessenger_ChatAnhang(MSG)
checkUsrId(MSG, CHAT_ITEM)
' CHAT_ITEM.path = MSG.chatMg_text
' CHAT_ITEM.txtChatmessage.Text = MSG.chatMg_text
'CHAT_ITEM.lblName.Text = MSG.chatMg_maId
Return (CHAT_ITEM)
End Select
End Function
Sub REFRESH_CHAT()
If CHAT IsNot Nothing Then
CHAT.LOAD_MESSAGES()
Try
' CHAT = New VERAG_PROG_ALLGEMEIN.cMessenger.cMessenger_Chat(dgvChats.SelectedRows(0).Cells("chat_id").Value)
For Each MSG In CHAT.CHAT_MESSAGES
Dim found As Boolean = False
For Each I As usrCntlMessenger_ChatElement In MyFlowLayoutPanel1.Controls
If I.CHAT_MSG.chatMg_id = MSG.chatMg_id Then
found = True
If CHAT IsNot Nothing Then
CHAT.LOAD_MESSAGES(topMessages)
' CHAT = New VERAG_PROG_ALLGEMEIN.cMessenger.cMessenger_Chat(dgvChats.SelectedRows(0).Cells("chat_id").Value)
For Each MSG In CHAT.CHAT_MESSAGES
Dim found As Boolean = False
For Each I In MyFlowLayoutPanel1.Controls
Select Case I.GetType.ToString
Case GetType(usrCntlMessenger_ChatElement).ToString
If DirectCast(I, usrCntlMessenger_ChatElement).CHAT_MSG.chatMg_id = MSG.chatMg_id Then
found = True
End If
Case GetType(usrCntlMessenger_ChatAnhang).ToString
If DirectCast(I, usrCntlMessenger_ChatAnhang).CHAT_MSG.chatMg_id = MSG.chatMg_id Then
found = True
End If
End Select
Next
If Not found Then
MyFlowLayoutPanel1.Controls.Add(getControlFromMSG(MSG))
'Dim CHAT_ITEM As New usrCntlMessenger_ChatElement(MSG)
'checkUsrId(MSG, CHAT_ITEM)
''CHAT_ITEM.txtChatmessage.Text = MSG.chatMg_text
''CHAT_ITEM.lblName.Text = MSG.chatMg_maId
'MyFlowLayoutPanel1.Controls.Add(CHAT_ITEM)
CHAT.READ_ALL_MESSAGES()
End If
Next
If Not found Then
' MyFlowLayoutPanel1.VerticalScroll.()
'MyFlowLayoutPanel1.AutoScrollPosition = New Point(MyFlowLayoutPanel1.Width, MyFlowLayoutPanel1.Height)
' If MyFlowLayoutPanel1.Controls.Count > 0 Then MyFlowLayoutPanel1.ScrollControlIntoView(MyFlowLayoutPanel1.Controls(MyFlowLayoutPanel1.Controls.Count - 1))
MyFlowLayoutPanel1.VerticalScroll.Value = MyFlowLayoutPanel1.VerticalScroll.Maximum
End If
Dim CHAT_ITEM As New usrCntlMessenger_ChatElement(MSG)
checkUsrId(MSG, CHAT_ITEM)
CHAT_ITEM.txtChatmessage.Text = MSG.chatMg_text
'CHAT_ITEM.lblName.Text = MSG.chatMg_maId
MyFlowLayoutPanel1.Controls.Add(CHAT_ITEM)
End If
Next
' MyFlowLayoutPanel1.VerticalScroll.()
'MyFlowLayoutPanel1.AutoScrollPosition = New Point(MyFlowLayoutPanel1.Width, MyFlowLayoutPanel1.Height)
' If MyFlowLayoutPanel1.Controls.Count > 0 Then MyFlowLayoutPanel1.ScrollControlIntoView(MyFlowLayoutPanel1.Controls(MyFlowLayoutPanel1.Controls.Count - 1))
MyFlowLayoutPanel1.VerticalScroll.Value = MyFlowLayoutPanel1.VerticalScroll.Maximum
End If
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
End Try
End Sub
'Sub ORDER_CHAT_MSG()
@@ -129,15 +244,32 @@ Public Class frmMessenger
End If
End Sub
Sub checkUsrId(MSG As VERAG_PROG_ALLGEMEIN.cMessenger.cMessenger_ChatMessages, CHAT_ITEM As usrCntlMessenger_ChatAnhang)
If MSG.chatMg_maId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID Then
CHAT_ITEM.Margin = New Padding(MyFlowLayoutPanel1.Width - CHAT_ITEM.Width - 30, 0, 0, 0)
'CHAT_ITEM.Left = (MyFlowLayoutPanel1.Width - CHAT_ITEM.Width - 30)
'CHAT_ITEM.Anchor = AnchorStyles.None
'CHAT_ITEM.Dock = DockStyle.Right
' CHAT_ITEM.Dock = DockStyle.Right
CHAT_ITEM.setBgCOLOR(Color.FromArgb(192, 255, 192))
End If
End Sub
Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click
If Not CHAT.chat_aktiv Then MsgBox("Chat inaktiv!") : Exit Sub
If rtbChatMessage.Text.Trim <> "" Then
If CHAT IsNot Nothing Then
Dim MSG As New VERAG_PROG_ALLGEMEIN.cMessenger.cMessenger_ChatMessages(CHAT.chat_id, VERAG_PROG_ALLGEMEIN.cAllgemein.USRID)
MSG.chatMg_text = rtbChatMessage.Text.Trim
If MSG.SAVE Then
MSG.chatMg_maName = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.Fullname
MSG.chatMg_maFirma = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
If MSG.SAVE(True, CHAT.CHAT_MEMBERS) Then
SEND_TOKEN_NEW_MESSAGE()
' CHAT.CHAT_MESSAGES.Add(MSG)
SET_ALL_READ()
REFRESH_CHAT()
rtbChatMessage.Text = ""
rtbChatMessage.Focus()
@@ -147,7 +279,16 @@ Public Class frmMessenger
End If
End Sub
Sub SET_ALL_READ()
For Each u In MyFlowLayoutPanel1.Controls
Select Case u.GetType.ToString
Case GetType(usrCntlMessenger_ChatElement).ToString
DirectCast(u, usrCntlMessenger_ChatElement).lblNewMsg.Visible = False
Case GetType(usrCntlMessenger_ChatAnhang).ToString
DirectCast(u, usrCntlMessenger_ChatAnhang).lblNewMsg.Visible = False
End Select
Next
End Sub
Sub SEND_TOKEN_NEW_MESSAGE()
For Each MB In CHAT.CHAT_MEMBERS
If MB.chatMb_maId <> VERAG_PROG_ALLGEMEIN.cAllgemein.USRID Then
@@ -157,7 +298,7 @@ Public Class frmMessenger
If IP <> "" Then
Dim SC As New cServerClient ' SC.begin("192.168.0.50", "NEW_MESSAGE") '192.168.0.95 = atlas suben
SC.begin(IP, "NEW_MESSAGE")
MsgBox(IP)
' MsgBox(IP)
End If
End If
Next
@@ -182,30 +323,238 @@ Public Class frmMessenger
End If
End Sub
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
If rtbChatMessage.Text.Trim <> "" Then
If CHAT IsNot Nothing Then
Dim MSG As New VERAG_PROG_ALLGEMEIN.cMessenger.cMessenger_ChatMessages(CHAT.chat_id, VERAG_PROG_ALLGEMEIN.cAllgemein.USRID)
MSG.chatMg_text = rtbChatMessage.Text.Trim
MSG.chatMg_maId = 99
If MSG.SAVE Then
' CHAT.CHAT_MESSAGES.Add(MSG)
CHAT.LOAD_MESSAGES()
REFRESH_CHAT()
rtbChatMessage.Text = ""
rtbChatMessage.Focus()
End If
End If
End If
End Sub
Private Sub TimerNEW_MESSAGE_Tick(sender As Object, e As EventArgs) Handles TimerNEW_MESSAGE.Tick
If CHAT IsNot Nothing And VERAG_PROG_ALLGEMEIN.cMessenger.NEW_MESSGE = True Then
VERAG_PROG_ALLGEMEIN.cMessenger.NEW_MESSGE = False
MsgBox("asd")
' MsgBox("asd")
REFRESH_CHAT()
End If
End Sub
Private Sub Timer_REFRESH_Tick(sender As Object, e As EventArgs) Handles Timer_REFRESH.Tick
loaded = False
REFRESH_CHAT()
Dim dgv_ChatID = If(dgvChats.SelectedRows.Count > 0, dgvChats.SelectedRows(0).Cells("chat_id").Value, -1)
intiDGVChats(dgv_ChatID,False)
loaded = True
End Sub
Sub initMsg()
Dim dgv_ChatID = If(dgvChats.SelectedRows.Count > 0, dgvChats.SelectedRows(0).Cells("chat_id").Value, -1)
'intiDGVChats(dgv_ChatID)
End Sub
Private Sub frmMessenger_Shown(sender As Object, e As EventArgs) Handles Me.Shown
dgvChats.ClearSelection()
SplitContainer1.Enabled = False
loaded = True
End Sub
Private Sub cbxInaktiveChats_CheckedChanged(sender As Object, e As EventArgs) Handles cbxInaktiveChats.CheckedChanged
intiDGVChats()
If sender.checked Then
ChatDeaktivierenToolStripMenuItem.Text = "Chat aktivieren"
Else
ChatDeaktivierenToolStripMenuItem.Text = "Chat deaktivieren"
End If
End Sub
Private Sub ChatDeaktivierenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ChatDeaktivierenToolStripMenuItem.Click
If dgvChats.SelectedRows.Count > 0 Then
If vbYes = MsgBox("Möchten Sie diesen Chat wirklich deaktivieren?", vbYesNoCancel) Then
CHAT = New VERAG_PROG_ALLGEMEIN.cMessenger.cMessenger_Chat(dgvChats.SelectedRows(0).Cells("chat_id").Value, 1)
SplitContainer1.Enabled = True
CHAT.chat_aktiv = Not CHAT.chat_aktiv
CHAT.SAVE(False)
intiDGVChats()
End If
'RELOAD_CHAT()
End If
End Sub
'Private Sub dgvChats_CellValueChanged(sender As Object, e As DataGridViewCellEventArgs) Handles dgvChats.CellValueChanged
' Try
' If dgvChats.Columns.Count > 0 Then
' If e.ColumnIndex = dgvChats.Columns("ungelesen").Index Then
' If dgvChats.Rows(e.RowIndex).Cells("ungelesen").Value <> "" Then
' dgvChats.Rows(e.RowIndex).Cells("ungelesen").Style.BackColor = Color.Red
' End If
' 'For Each r As DataGridViewRow In .Rows
' ' If r.Cells("chat_id").Value = dgv_ChatID Then
' ' dgvChats.ClearSelection()
' ' r.Selected = True : Exit For
' ' End If
' ' If r.Cells("ungelesen").Value <> "" Then
' ' r.Cells("ungelesen").Style.BackColor = Color.Red
' ' End If
' 'Next
' End If
' End If
' Catch ex As Exception
' MsgBox(ex.Message & ex.StackTrace)
' End Try
'End Sub
Private Sub dgvChats_CellPainting(sender As Object, e As DataGridViewCellPaintingEventArgs) Handles dgvChats.CellPainting
Try
If dgvChats.Columns.Count > 0 Then
If e.ColumnIndex = dgvChats.Columns("ungelesen").Index Then
If dgvChats.Rows(e.RowIndex).Cells("ungelesen").Value <> "" Then
dgvChats.Rows(e.RowIndex).Cells("ungelesen").Style.BackColor = Color.Red
End If
'For Each r As DataGridViewRow In .Rows
' If r.Cells("chat_id").Value = dgv_ChatID Then
' dgvChats.ClearSelection()
' r.Selected = True : Exit For
' End If
' If r.Cells("ungelesen").Value <> "" Then
' r.Cells("ungelesen").Style.BackColor = Color.Red
' End If
'Next
End If
End If
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
End Try
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
If Not CHAT.chat_aktiv Then MsgBox("Chat inaktiv!") : Exit Sub
If CHAT IsNot Nothing Then
Dim fd As New OpenFileDialog
' fd.Filter = "Excel Dateien|*.xls;*.xlsx"
fd.RestoreDirectory = True
fd.Title = "Datei auswählen"
' fd.InitialDirectory = Environment.GetFolderPath(Environment.SpecialFolder.Desktop)
'fd.Filter = "Image Files(*.BMP;*.JPG;*.GIF;*.PNG)|*.BMP;*.JPG;*.GIF;*.PNG"
'fd.FilterIndex = 2
If fd.ShowDialog() = System.Windows.Forms.DialogResult.OK And fd.FileName <> "" Then
saveFileAtt(fd.FileName)
'Dim fileName = New IO.FileInfo(fd.FileName).Name
'Dim docId = -1
'If saveToDS(fileName, fd.FileName, docId) Then
' Dim MSG As New VERAG_PROG_ALLGEMEIN.cMessenger.cMessenger_ChatMessages(CHAT.chat_id, VERAG_PROG_ALLGEMEIN.cAllgemein.USRID)
' MSG.chatMg_type = "ATTACHMENT"
' MSG.chatMg_text = fileName
' MSG.chatMg_anhang_docId = docId
' MSG.chatMg_maName = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.Fullname
' MSG.chatMg_maFirma = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
' If MSG.SAVE(True, CHAT.CHAT_MEMBERS) Then
' SEND_TOKEN_NEW_MESSAGE()
' ' CHAT.CHAT_MESSAGES.Add(MSG)
' SET_ALL_READ()
' REFRESH_CHAT()
' rtbChatMessage.Text = ""
' rtbChatMessage.Focus()
' End If
' End If
End If
End If
End Sub
Sub saveFileAtt(filePath)
Dim fileName = New IO.FileInfo(filePath).Name
Dim docId = -1
If saveToDS(fileName, filePath, docId) Then
Dim MSG As New VERAG_PROG_ALLGEMEIN.cMessenger.cMessenger_ChatMessages(CHAT.chat_id, VERAG_PROG_ALLGEMEIN.cAllgemein.USRID)
MSG.chatMg_type = "ATTACHMENT"
MSG.chatMg_text = fileName
MSG.chatMg_anhang_docId = docId
MSG.chatMg_maName = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.Fullname
MSG.chatMg_maFirma = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
If MSG.SAVE(True, CHAT.CHAT_MEMBERS) Then
SEND_TOKEN_NEW_MESSAGE()
' CHAT.CHAT_MESSAGES.Add(MSG)
SET_ALL_READ()
REFRESH_CHAT()
rtbChatMessage.Text = ""
rtbChatMessage.Focus()
End If
End If
End Sub
Public Shared Function saveToDS(fileName, sourcePath, Optional ByRef da_id = -1) As Boolean
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "CHAT_ANHAENGE", Now.ToString("ddMMyy_HHmmss.ffff"), "", "", fileName, -1, False)
If Not DS.uploadDataToDATENSERVER(sourcePath) Then MsgBox("Fehler beim Speichern: Datenserver!") : Return False
If DS.da_id <= 0 Then MsgBox("Keine DocId!") : Return False
da_id = DS.da_id
' destPath = DS.GET_TOP1_PATH
Return True
End Function
Private Sub dgvChats_CellMouseClick(sender As Object, e As DataGridViewCellMouseEventArgs) Handles dgvChats.CellMouseClick
If e.Button = MouseButtons.Right Then
If e.RowIndex > 0 Then
If dgvChats.Rows.Count > 0 Then
'Dim chatId = dgvChats.Rows(e.RowIndex).Cells("chat_id").Value
'VERAG_PROG_ALLGEMEIN.cMessenger.GEN_NEW_CHAT()
dgvChats.ClearSelection()
SplitContainer1.Enabled = False
CHAT = Nothing
End If
dgvChats.Rows(e.RowIndex).Selected = True
cntxt.Show(Cursor.Position)
End If
End If
End Sub
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
If CHAT IsNot Nothing Then
Dim f As New frmMessenger_Members(CHAT)
f.ShowDialog(Me)
End If
End Sub
Private Sub Form1_DragEnter(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles rtbChatMessage.DragEnter ', txt.DragEnter, Me.DragEnter, picPDF.DragEnter
e.Effect = DragDropEffects.All
End Sub
Private Sub txt_Click(sender As Object, e As DragEventArgs) Handles rtbChatMessage.DragDrop ', txt.DragDrop, Me.DragDrop, picPDF.DragDrop
Try
If e.Data.GetDataPresent("FileDrop", True) = True Then
Dim FileList As String() = CType(e.Data.GetData("FileDrop"), Object) 'Hier wird der Variable "Wert" das übergeben, was wir auf die Form gezogen haben. Bei einer Datei wäre es dann der Pfad der Datei.
If FileList.Count > 0 Then
'If Not _MULTI_FILES And FileList.Count > 1 Then
' MsgBox("Es können nicht mehrere Dateien hochgeladen werden!")
' Exit Sub
'End If
For Each W In FileList
If Not W.ToUpper.EndsWith(".EXE") Then
saveFileAtt(W)
End If
Next
End If
End If
Catch ex As Exception
MsgBox(" FEHLER: DaagDrop!" & ex.Message & ex.StackTrace)
End Try
End Sub
End Class

148
VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger_Members.Designer.vb generated Normal file
View File

@@ -0,0 +1,148 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class frmMessenger_Members
Inherits System.Windows.Forms.Form
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()>
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmMessenger_Members))
Me.dgvChatMembers = New System.Windows.Forms.DataGridView()
Me.clmnMaId = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.clmnName = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.clmnFirma = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.lbl = New System.Windows.Forms.Label()
Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.DataGridViewTextBoxColumn2 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.DataGridViewTextBoxColumn3 = New System.Windows.Forms.DataGridViewTextBoxColumn()
CType(Me.dgvChatMembers, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'dgvChatMembers
'
Me.dgvChatMembers.AllowUserToAddRows = False
Me.dgvChatMembers.AllowUserToDeleteRows = False
Me.dgvChatMembers.AllowUserToResizeColumns = False
Me.dgvChatMembers.AllowUserToResizeRows = False
Me.dgvChatMembers.BackgroundColor = System.Drawing.Color.White
DataGridViewCellStyle1.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle1.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle1.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle1.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle1.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvChatMembers.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle1
Me.dgvChatMembers.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvChatMembers.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.clmnMaId, Me.clmnName, Me.clmnFirma})
DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle2.BackColor = System.Drawing.SystemColors.Window
DataGridViewCellStyle2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle2.ForeColor = System.Drawing.SystemColors.ControlText
DataGridViewCellStyle2.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle2.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.dgvChatMembers.DefaultCellStyle = DataGridViewCellStyle2
Me.dgvChatMembers.Location = New System.Drawing.Point(12, 24)
Me.dgvChatMembers.Name = "dgvChatMembers"
DataGridViewCellStyle3.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle3.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle3.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle3.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle3.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle3.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvChatMembers.RowHeadersDefaultCellStyle = DataGridViewCellStyle3
Me.dgvChatMembers.RowHeadersVisible = False
Me.dgvChatMembers.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.dgvChatMembers.Size = New System.Drawing.Size(327, 323)
Me.dgvChatMembers.TabIndex = 2
'
'clmnMaId
'
Me.clmnMaId.HeaderText = "Column1"
Me.clmnMaId.Name = "clmnMaId"
Me.clmnMaId.Visible = False
'
'clmnName
'
Me.clmnName.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
Me.clmnName.HeaderText = "Name"
Me.clmnName.Name = "clmnName"
'
'clmnFirma
'
Me.clmnFirma.HeaderText = "Firma"
Me.clmnFirma.Name = "clmnFirma"
'
'lbl
'
Me.lbl.AutoSize = True
Me.lbl.Location = New System.Drawing.Point(9, 8)
Me.lbl.Name = "lbl"
Me.lbl.Size = New System.Drawing.Size(55, 13)
Me.lbl.TabIndex = 4
Me.lbl.Text = "Mitglieder:"
'
'DataGridViewTextBoxColumn1
'
Me.DataGridViewTextBoxColumn1.HeaderText = "Column1"
Me.DataGridViewTextBoxColumn1.Name = "DataGridViewTextBoxColumn1"
Me.DataGridViewTextBoxColumn1.Visible = False
'
'DataGridViewTextBoxColumn2
'
Me.DataGridViewTextBoxColumn2.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
Me.DataGridViewTextBoxColumn2.HeaderText = "Name"
Me.DataGridViewTextBoxColumn2.Name = "DataGridViewTextBoxColumn2"
'
'DataGridViewTextBoxColumn3
'
Me.DataGridViewTextBoxColumn3.HeaderText = "Firma"
Me.DataGridViewTextBoxColumn3.Name = "DataGridViewTextBoxColumn3"
'
'frmMessenger_Members
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.White
Me.ClientSize = New System.Drawing.Size(347, 353)
Me.Controls.Add(Me.lbl)
Me.Controls.Add(Me.dgvChatMembers)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Name = "frmMessenger_Members"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "Mitglieder"
CType(Me.dgvChatMembers, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents dgvChatMembers As Windows.Forms.DataGridView
Friend WithEvents lbl As Windows.Forms.Label
Friend WithEvents clmnMaId As Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents clmnName As Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents clmnFirma As Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents DataGridViewTextBoxColumn1 As Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents DataGridViewTextBoxColumn2 As Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents DataGridViewTextBoxColumn3 As Windows.Forms.DataGridViewTextBoxColumn
End Class

989
VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger_Members.resx Normal file
View File

@@ -0,0 +1,989 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="clmnMaId.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="clmnName.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="clmnFirma.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAABAAEAgIAAAAEAGAAoyAAAFgAAACgAAACAAAAAAAEAAAEAGAAAAAAAAMgAAMQOAADEDgAAAAAAAAAA
AACRbEd5TB+CWC59USZ8USV9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
USZ9USZ9USZ9USZ8USV9USaCWC55TB+RbEd4Sx5mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB4Sx5/VClmMwBuPg5r
OglrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
OQhrOgluPg5mMwB/VCl0RhhmMwBmMwBnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFmMwBmMwB0RhhzRBVmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBz
RBV3Sh1mMwBnNQJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBnNQJmMwB3Sh18UCRmMwBqOQdnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFqOQdmMwB8UCR9USZmMwBrOQhn
NAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9
USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwDm4N3/////////
///////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL/////////////////
//////////////////////////////////////////////90SSZmMwBmMwBmMwBmMwBmMwB0SSb39fT/
//////////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////////+YfWtmMwBmMwBm
MwBmMwB0SSbu6+n////////////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT/////
///////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5zUy8X////////////////L
v7itmo1mMwBmMwCYfWv///////90SSZmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn
NAFmMwBmMwBmMwB0SSb////////////////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwDu6+n///////////////////////////////////////////////////////////+j
jH1mMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwC3p5z/
///////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwCYfWv////////////////Bs6pmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwB0SSb///////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCt
mo3////////////////////////////////////m4N2Mbli3p5z///////+jjH1mMwBmMwBmMwBmMwBm
MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwCMblj///////////////////////////+M
blhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X/////////////////////////////
///////////////////////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////+3
p5xmMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwDU
y8X///////////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////90SSZm
MwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j////////////////////////////////////////////39fTm
4N3///////+3p5xmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwC3
p5z////////////////////////////d1tFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3
p5z////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwCjjH3////////////////Lv7hmMwBmMwBmMwBmMwBmMwCAXUL///////////////////90
SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL39fT////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBm
MwC3p5z////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z////////////////////U
y8WAXUJmMwBmMwC3p5z39fT////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9
USZ9USZmMwBrOQhnNAFmMwBmMwBmMwDBs6r////////////////u6+n///////////+tmo1mMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj///////////////////90SSZmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj////////////////m4N1mMwBmMwBmMwBm
MwBmMwC3p5z////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z/////////
///////////////////////////////////////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBm
MwBmMwD39fT////////////////Lv7hmMwBmMwBmMwBmMwBmMwCAXULu6+n////////////////39fRm
MwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwDm4N3/////////////
//+jjH3////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb/////////////
//////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD3
9fT///////////////90SSZmMwBmMwBmMwBmMwDm4N3///////////////+jjH1mMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwDu6+n/////////////////////////////////////////////////////
//////+3p5xmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////////////////+MblhmMwBmMwBmMwBmMwBm
MwBmMwCMblj///////////////////90SSZmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn
NAFmMwBmMwBmMwD39fT///////////////9mMwDLv7j///////////+3p5xmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwDm4N3////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////+YfWtmMwBmMwBmMwCAXUL/////////
///////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv/////////////////////
//////////////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwC3p5z/////////
//////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////+jjH1mMwBmMwBmMwBm
MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwCMblj////////////////m4N1mMwCAXUL39fT/
///////39fSAXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////////////////Uy8VmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z/////////////
///////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwDUy8X////////////u6+lmMwBmMwBmMwBmMwCMblj///////////////////90SSZmMwBm
MwBmMwBmMwBmMwBmMwC3p5z///////////////////9mMwBmMwBmMwB0SSb/////////////////////
//////////////+3p5xmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwCjjH3/
///////////////Uy8VmMwBmMwC3p5z////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwC3p5z////////////////////////////////////////////////////m4N1mMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwCjjH3////////////////////////////////////////////////////////////d
1tGMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////+tmo1mMwBmMwBmMwCt
mo3////////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////////////////90SSZm
MwBmMwBmMwDm4N3////////////////////////////////Uy8VmMwBmMwBmMwBmMwBnNAFrOQhmMwB9
USZ9USZmMwBrOQhnNAFmMwBmMwC3p5z///////////////+3p5xmMwBmMwB0SSb39fT///////////+Y
fWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj/////////////////////////////////////////
//////////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb/////////////////////////////
//////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3
p5z////////////39fR0SSZmMwBmMwDBs6r////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBm
MwCjjH3///////////////////+jjH1mMwBmMwBmMwDBs6r////////////////////////////////3
9fRmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwDUy8X///////////////+t
mo1mMwBmMwBmMwCtmo3////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT/////
//////////////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwDu6+n///////////////90SSZmMwBmMwBmMwBmMwBmMwCjjH3m4N3////////////////39fR0SSZm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n///////////+3p5xmMwBmMwDUy8X/////////////
//+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb////////////////////Bs6pmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn
NAFmMwBmMwDu6+n///////////////+MblhmMwBmMwBmMwBmMwDu6+n///////////+tmo1mMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwDd1tH////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////+YfWtmMwBmMwBmMwBmMwBmMwBm
MwB0SSbu6+n///////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3/////////
///39fSAXUJmMwD39fT///////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X/////
///////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////Uy8W3p5y3p5yYfWtmMwBmMwBm
MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwB0SSb///////////////////90SSZmMwBmMwBmMwBm
MwCtmo3////////////u6+l0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////////////////m4N1m
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z/////////
//////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j////////////////Bs6pmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwDUy8X////////////Lv7h0SSb///////////////////90SSZmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwDu
6+n///////////////+jjH1mMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwCYfWv/////
///////////u6+lmMwBmMwBmMwBmMwBmMwBmMwDd1tH///////////+3p5xmMwBmMwBmMwBmMwBmMwBm
MwBmMwCjjH3///////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwCYfWv////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3/////
//////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////+tmo3/
///////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/////////////////
//+YfWtmMwBmMwBmMwBmMwBmMwCtmo3////////////////u6+lmMwBmMwBmMwBmMwBnNAFrOQhmMwB9
USZ9USZmMwBrOQhnNAFmMwC3p5z////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwCYfWv/////
//////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////////+MblhmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb////////////////u6+lmMwBm
MwBmMwBmMwBmMwCAXULLv7j///////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwC3p5z////////////////////////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwDd1tH///////////////////+3p5x0SSZmMwBmMwC3p5z///////////////////+t
mo1mMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwDLv7j////////////////Bs6pm
MwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT/
//////////////////////////////////////////////////////////90SSZmMwBmMwBmMwBmMwBm
MwBmMwDm4N3////////////////////////////////////////////////////////////Bs6pmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n///////////////////////////+3
p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X/////////////////////////
///////////////////////////Lv7hmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn
NAFmMwDm4N3///////////////+tmo1mMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////+Y
fWtmMwBmMwBmMwBmMwBmMwBmMwDUy8X/////////////////////////////////////////////////
//////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwDLv7j/////////////////////////////////////
///////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCj
jH3///////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwCtmo339fT///////////////////////////////////////+tmo1mMwBmMwBmMwBmMwBmMwBm
MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAF0SSb///////////////////+MblhmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwDLv7j////////////u6+l0SSZmMwBmMwBmMwBmMwBmMwC3p5z/////////////////
//////////////////////////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwC3p5z/////
///////////////////////////////////////m4N23p5yMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH///////////////////////9mMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH23p5z39fT////////////////Uy8W3
p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9
USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn
NAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9
USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ8UCRmMwBqOQdn
NAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBnNAFqOQdmMwB8UCR3Sh1mMwBnNQJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNQJmMwB3Sh1zRBVmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBz
RBV0RhhmMwBmMwBnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
NAFnNAFnNAFnNAFnNAFnNAFmMwBmMwB0Rhh/VClmMwBuPg5rOglrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOgluPg5mMwB/VCl4Sx5mMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwB4Sx6RbEd5TB+CWC59USZ8USV9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ8USV9USaCWC55TB+RbEf/////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
///////////////////Bs6rBs6qYfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWvBs6rBs6r/////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////Uy8WYfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWvUy8X////////////////////////////////////////B
s6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwCjjH3Bs6rBs6r39fT/////////////////////////////////////////////////////////
///Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3/////////////////////////////////////////////
///////////////////////////////////////////////////////////////d1tGMblhmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWvm4N3/
///////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMbljLv7j/////////////////
///////////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X/////////////
////////////////////////////////////////////////////////////////////////////////
///////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X////////////////////////////d1tFmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwCMbljm4N3////////////////////////////////////////////m4N1mMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwC3p5z/////////////////////////////////////////////////////////////
//////////////////////////////////////+tmo1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j/////////
///////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/////////////////////
///////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3/////////////////////////////
///////////////////////////////////////////////////////////////////Bs6pmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwCtmo3///////////////////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCA
XUL/////////////////////////////////////////////////////////////////////////////
///////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL39fT/////////////////
//+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3/////////////////////////////
//////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT/////////////////////////////////////////
//////////////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwDBs6r///////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwDBs6r////////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X/////////
///////////////////////////////////////////////////////////////////////////d1tFm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6rd1tH////////39fTBs6qAXUJm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb////////////////////Lv7hmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH////////////////////////////Uy8VmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwDLv7j/////////////////////////////////////////////////////////
//////////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3/
//////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd
1tH////////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/////////////
///////Uy8XBs6qMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL/////
///////////////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj/////////
////////////////////////////////////////////////////////////////////////////////
//////////////////////////////////////////////////////////+AXUJmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwCtmo3///////////////////////////////////////+AXUJmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwC3p5z////////////////////////////////d1tGMblhmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////////////////9mMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwB0SSb/////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
///////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL39fT/////////////////////
///////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3/////////////
//////+AXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj/////////////////////////////
//////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb39fT/////////////
//////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3/////////////////////
////////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwDBs6r////////////////////////////////////////////d1tFmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwCYfWv///////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0
SSb///////////////////////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwDBs6r///////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwDUy8X/////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
///u6+nBs6rBs6rBs6qYfWtmMwBmMwBmMwDu6+n/////////////////////////////////////////
///Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////+3p5xmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n////////////////////////////////////////u
6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj////////////////////////Bs6pm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
///////////////////////////////u6+l0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCY
fWv////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X/////////
//////////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwDm4N3////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3/////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////u6+m3p5xmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3////////////////////m4N1mMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwDBs6r////////////////////////////////////////////d1tFmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////////////////////u6+lmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwCMblj/////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////Uy8XB
s6p0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z/////////////
//////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3/////////////////////////
//////////////////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3/////////
//////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD/////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
///////////m4N3Bs6qMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwDUy8X///////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwCMblj///////////////////////////////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwB0SSb///////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwDm4N3/////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
///////////////////////////////////Bs6qAXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb39fT///////////////////////+jjH1m
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb/////////////////////////////////////////
///////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT///////////////////+t
mo1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X/////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////Lv7hmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/
///////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3/////
///////////////////////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwDm4N3////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
//////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwCAXUL39fT////////////////////////////Uy8VmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////////////////////////////////////90SSZm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH////////////////////Uy8VmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3/////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
//////////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSbm4N3/////////////////////
///////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/////////////////////
//////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X/////
///////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj/////////////////
////////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////Bs6pmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCM
bljm4N3///////////////////////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwCjjH3///////////////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwDLv7j///////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwD39fT/////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
///////////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////////////////////////////////////+M
blhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj/////////////////////////////////////
//////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j/////////////////////
//+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3/////////////////////////////
////////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWvBs6r/////////////////////////
//////////////////////////////+tmo1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD/////
//////////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwDd1tH///////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDL
v7j/////////////////////////////////////////////////////////////////////////////
//////////////////////////////////////////////////////////////////////////+Mblhm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3Bs6r/////
///////////////////////////////////////////////////////////////Bs6pmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////////////////////////////////+AXUJm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH////////////////////////Bs6pmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z/////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
//////////////////////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwCtmo3Bs6r39fT/////////////////////////////////////////////////////////////////
///////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X/////////////////
///////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n/////
///////////////////d1tFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3/////////////
////////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwB0SSbLv7j/////////////////////////////////////////////////
///////////////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwC3p5z////////////////////////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwB0SSb////////////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwCAXUL/////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
///////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSbu6+n/////////////////////
////////////////////////////////////////////////////////////////////////////////
//90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3/////////////////////////////////
//////+tmo1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3/////////////////////////
//////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT/////////////////////////
////////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwC3p5z////////////////////////////////////39fRmMwBmMwB0SSbBs6rBs6r39fT/////////
//////////////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL/
///////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwDBs6r///////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwDm4N3/////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////39fRmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z////////////////////////////////////Bs6pm
MwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3Bs6rBs6r///////////////////////////+3p5xmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT////////////////////////////39fSMblhmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n///////////////////////////////+3p5xmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j/////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
//////////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL/////////
///////////////////////u6+l0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD/////////
///////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3/////////////
///////////u6+mMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv/////////////
///////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z/////////
////////////////////////////////////////////////////////////////////////////////
//////////////////////////////////////////////////////////+jjH1mMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwCjjH3////////////////////////u6+mAXUJmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwCYfWv////////////////////////////d1tFmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwDLv7j////////////////Uy8W3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwDd1tH////////////////////////////////////d1tFmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwCYfWv/////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
///////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMbljBs6r////////d1tG3
p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH/////////////////////////
///39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv/////////////////////////////////
///////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb/////////////////////////
////////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCM
blj///////////////////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSbu6+n/
//////////////////////////////////////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwD39fT/////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////L
v7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH///////////////////////////////////+YfWtmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwDLv7j///////////////////////////////////////////////+jjH1m
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH/////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
//////////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z/////////////////
//////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/////////////////////////
//////////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/////
////////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////39fSAXUJmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwCYfWv////////////////////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDB
s6r////////////////////////////////////////////////////////Lv7hmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwC3p5z/////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
///////////////////////u6+mMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv/////////////////////////////////////////
///////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwB0SSbUy8X/////////////////////////////////////////////////
///////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv/////////////////////
////////////////////////////////////////////////////////////////////////////////
//////////////////////////////////////////////////////////////+jjH1mMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j/////////////
///////////////////////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSbBs6r/////////////////////////
///////////////////////////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwB0SSb/////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
///////////////////d1tGYfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwDBs6r39fT///////////////////////////////////////////////////////////+AXUJm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXULBs6rBs6rm4N3/
//////////////////////////////////////////////////////////////////////////////+A
XUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD/////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////39fTBs6rBs6pmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwCjjH3Bs6rUy8X/////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
//////////////////8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAA==
</value>
</data>
</root>

34
VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger_Members.vb Normal file
View File

@@ -0,0 +1,34 @@
Imports System.Windows.Forms
Public Class frmMessenger_Members
Dim SQL As New SQL
Dim CHAT As New cMessenger.cMessenger_Chat
Dim loaded = False
Public chat_id As Integer = -1
Sub New(CHAT)
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
Me.CHAT = CHAT
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
Sub initDGV()
With dgvChatMembers
.Rows.Clear()
For Each MB In CHAT.CHAT_MEMBERS
Dim MA As New cMitarbeiter(MB.chatMb_maId)
.Rows.Add({"", MA.Fullname, If(MA.mit_firma = "ALL", MA.mit_FirmaHaupt, MA.mit_firma)})
Next
.ClearSelection()
End With
End Sub
Private Sub frmMessenger_Members_Load(sender As Object, e As EventArgs) Handles Me.Load
initDGV()
End Sub
End Class

89
VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger_NeuerChat.Designer.vb generated
View File

@@ -23,7 +23,6 @@ Partial Class frmMessenger_NeuerChat
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmMessenger_NeuerChat))
Me.MyTextBox1 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.dgvMitarbeiter = New System.Windows.Forms.DataGridView()
Me.dgvChatMembers = New System.Windows.Forms.DataGridView()
Me.clmnMaId = New System.Windows.Forms.DataGridViewTextBoxColumn()
@@ -33,33 +32,16 @@ Partial Class frmMessenger_NeuerChat
Me.lbl = New System.Windows.Forms.Label()
Me.Label1 = New System.Windows.Forms.Label()
Me.Label2 = New System.Windows.Forms.Label()
Me.MyTextBox2 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.DataGridViewTextBoxColumn2 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.DataGridViewTextBoxColumn3 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.MyComboBox1 = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.MyTextBox2 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.MyTextBox1 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
CType(Me.dgvMitarbeiter, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.dgvChatMembers, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'MyTextBox1
'
Me.MyTextBox1._DateTimeOnly = False
Me.MyTextBox1._numbersOnly = False
Me.MyTextBox1._numbersOnlyKommastellen = ""
Me.MyTextBox1._Prozent = False
Me.MyTextBox1._ShortDateNew = False
Me.MyTextBox1._ShortDateOnly = False
Me.MyTextBox1._TimeOnly = False
Me.MyTextBox1._value = ""
Me.MyTextBox1._Waehrung = False
Me.MyTextBox1._WaehrungZeichen = True
Me.MyTextBox1.ForeColor = System.Drawing.Color.Black
Me.MyTextBox1.Location = New System.Drawing.Point(13, 23)
Me.MyTextBox1.MaxLineLength = -1
Me.MyTextBox1.MaxLines_Warning = ""
Me.MyTextBox1.MaxLines_Warning_Label = Nothing
Me.MyTextBox1.Name = "MyTextBox1"
Me.MyTextBox1.Size = New System.Drawing.Size(228, 20)
Me.MyTextBox1.TabIndex = 0
'
'dgvMitarbeiter
'
Me.dgvMitarbeiter.AllowUserToAddRows = False
@@ -145,6 +127,34 @@ Partial Class frmMessenger_NeuerChat
Me.Label2.TabIndex = 7
Me.Label2.Text = "Chatname:"
'
'DataGridViewTextBoxColumn1
'
Me.DataGridViewTextBoxColumn1.HeaderText = "Column1"
Me.DataGridViewTextBoxColumn1.Name = "DataGridViewTextBoxColumn1"
Me.DataGridViewTextBoxColumn1.Visible = False
'
'DataGridViewTextBoxColumn2
'
Me.DataGridViewTextBoxColumn2.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
Me.DataGridViewTextBoxColumn2.HeaderText = "Name"
Me.DataGridViewTextBoxColumn2.Name = "DataGridViewTextBoxColumn2"
'
'DataGridViewTextBoxColumn3
'
Me.DataGridViewTextBoxColumn3.HeaderText = "Firma"
Me.DataGridViewTextBoxColumn3.Name = "DataGridViewTextBoxColumn3"
'
'MyComboBox1
'
Me.MyComboBox1._allowedValuesFreiText = Nothing
Me.MyComboBox1._allowFreiText = False
Me.MyComboBox1._value = ""
Me.MyComboBox1.FormattingEnabled = True
Me.MyComboBox1.Location = New System.Drawing.Point(240, 23)
Me.MyComboBox1.Name = "MyComboBox1"
Me.MyComboBox1.Size = New System.Drawing.Size(77, 21)
Me.MyComboBox1.TabIndex = 8
'
'MyTextBox2
'
Me.MyTextBox2._DateTimeOnly = False
@@ -157,6 +167,7 @@ Partial Class frmMessenger_NeuerChat
Me.MyTextBox2._value = ""
Me.MyTextBox2._Waehrung = False
Me.MyTextBox2._WaehrungZeichen = True
Me.MyTextBox2.Enabled = False
Me.MyTextBox2.ForeColor = System.Drawing.Color.Black
Me.MyTextBox2.Location = New System.Drawing.Point(323, 23)
Me.MyTextBox2.MaxLineLength = -1
@@ -166,16 +177,26 @@ Partial Class frmMessenger_NeuerChat
Me.MyTextBox2.Size = New System.Drawing.Size(327, 20)
Me.MyTextBox2.TabIndex = 6
'
'MyComboBox1
'MyTextBox1
'
Me.MyComboBox1._allowedValuesFreiText = Nothing
Me.MyComboBox1._allowFreiText = False
Me.MyComboBox1._value = ""
Me.MyComboBox1.FormattingEnabled = True
Me.MyComboBox1.Location = New System.Drawing.Point(240, 23)
Me.MyComboBox1.Name = "MyComboBox1"
Me.MyComboBox1.Size = New System.Drawing.Size(77, 21)
Me.MyComboBox1.TabIndex = 8
Me.MyTextBox1._DateTimeOnly = False
Me.MyTextBox1._numbersOnly = False
Me.MyTextBox1._numbersOnlyKommastellen = ""
Me.MyTextBox1._Prozent = False
Me.MyTextBox1._ShortDateNew = False
Me.MyTextBox1._ShortDateOnly = False
Me.MyTextBox1._TimeOnly = False
Me.MyTextBox1._value = ""
Me.MyTextBox1._Waehrung = False
Me.MyTextBox1._WaehrungZeichen = True
Me.MyTextBox1.ForeColor = System.Drawing.Color.Black
Me.MyTextBox1.Location = New System.Drawing.Point(13, 23)
Me.MyTextBox1.MaxLineLength = -1
Me.MyTextBox1.MaxLines_Warning = ""
Me.MyTextBox1.MaxLines_Warning_Label = Nothing
Me.MyTextBox1.Name = "MyTextBox1"
Me.MyTextBox1.Size = New System.Drawing.Size(228, 20)
Me.MyTextBox1.TabIndex = 0
'
'frmMessenger_NeuerChat
'
@@ -194,6 +215,7 @@ Partial Class frmMessenger_NeuerChat
Me.Controls.Add(Me.MyTextBox1)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Name = "frmMessenger_NeuerChat"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "Neuer Chat"
CType(Me.dgvMitarbeiter, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.dgvChatMembers, System.ComponentModel.ISupportInitialize).EndInit()
@@ -214,4 +236,7 @@ Partial Class frmMessenger_NeuerChat
Friend WithEvents clmnName As Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents clmnFirma As Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents MyComboBox1 As MyComboBox
Friend WithEvents DataGridViewTextBoxColumn1 As Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents DataGridViewTextBoxColumn2 As Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents DataGridViewTextBoxColumn3 As Windows.Forms.DataGridViewTextBoxColumn
End Class

51
VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger_NeuerChat.vb
View File

@@ -5,14 +5,15 @@ Public Class frmMessenger_NeuerChat
Dim SQL As New SQL
Dim loaded = False
Public chat_id As Integer = -1
Sub initDGV()
If Not loaded Then Exit Sub
With dgvMitarbeiter
Dim FirmaTMP = MyComboBox1._value
Dim sqlStr = "SELECT TOP (1000) [mit_id],[mit_nname] + ' ' + [mit_vname] + ' (' + mit_niederlassung + ')' as MAname,mit_firma FROM [tblMitarbeiter]"
sqlStr &= " WHERE mit_gekuendigt=0 AND mit_abteilung IN ('QS','ZOLL','DISPO') AND [mit_TESTonly]=0 AND [mit_pseudoUser]=0"
sqlStr &= " AND mit_firma IN ('" & FirmaTMP & "','BEIDE','ALLE','ALL')"
Dim sqlStr = "SELECT TOP (1000) [mit_id],[mit_nname] + ' ' + [mit_vname] + ' (' + mit_niederlassung + ')' as MAname,CASE WHEN mit_firma='ALL' THEN mit_firmaHaupt ELSE mit_firma END as mit_firma FROM [tblMitarbeiter]"
sqlStr &= " WHERE mit_gekuendigt=0 AND /*mit_abteilung IN ('QS','ZOLL','DISPO') AND*/ [mit_TESTonly]=0 AND [mit_pseudoUser]=0 AND [mit_ChatBenutzer]=1 "
If MyComboBox1._value <> "" Then sqlStr &= " AND mit_firma IN ('" & FirmaTMP & "','BEIDE','ALLE','ALL')"
If MyTextBox1.Text <> "" Then sqlStr &= " AND (mit_nname LIKE '" & MyTextBox1.Text & "%' OR mit_vname LIKE '" & MyTextBox1.Text & "%' )"
sqlStr &= " order by mit_nname,mit_vname"
@@ -27,11 +28,12 @@ Public Class frmMessenger_NeuerChat
End Sub
Private Sub frmMessenger_NeuerChat_Load(sender As Object, e As EventArgs) Handles Me.Load
MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAG", "VERAG"))
MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ATILLA", "ATILLA"))
MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("IMEX", "IMEX"))
MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("UNISPED", "UNISPED"))
MyComboBox1.changeItem("VERAG")
MyComboBox1.changeItem("")
loaded = True
initDGV()
@@ -64,21 +66,28 @@ Public Class frmMessenger_NeuerChat
End If
End If
If e.KeyCode = Keys.Return Then
If dgvMitarbeiter.SelectedRows.Count > 0 Then
dgvChatMembers.Rows.Add(dgvMitarbeiter.SelectedRows(0).Cells("mit_id").Value, dgvMitarbeiter.SelectedRows(0).Cells("MAname").Value, dgvMitarbeiter.SelectedRows(0).Cells("mit_firma").Value)
If dgvChatMembers.Rows.Count = 1 Then
MyTextBox2.Text = dgvMitarbeiter.SelectedRows(0).Cells("MAname").Value
Else
MyTextBox2.Text = ""
End If
MyTextBox1.Text = ""
MyTextBox1.Focus()
addSelMA()
End If
End Sub
Sub addSelMA()
If dgvMitarbeiter.SelectedRows.Count > 0 Then
dgvChatMembers.Rows.Add(dgvMitarbeiter.SelectedRows(0).Cells("mit_id").Value, dgvMitarbeiter.SelectedRows(0).Cells("MAname").Value, dgvMitarbeiter.SelectedRows(0).Cells("mit_firma").Value)
If dgvChatMembers.Rows.Count = 1 Then
MyTextBox2.Text = dgvMitarbeiter.SelectedRows(0).Cells("MAname").Value
MyTextBox2.Enabled = False
Else
MyTextBox2.Text = ""
MyTextBox2.Enabled = True
End If
MyTextBox1.Text = ""
MyTextBox1.Focus()
End If
End Sub
Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click
If MyTextBox2.Text = "" Then
If MyTextBox2.Enabled And MyTextBox2.Text = "" Then
MsgBox("Chat-Name eingeben!")
Exit Sub
End If
@@ -87,12 +96,16 @@ Public Class frmMessenger_NeuerChat
Exit Sub
End If
Dim chatName = If(MyTextBox2.Enabled, MyTextBox2.Text, "")
Dim MB_LIST As New List(Of Integer)
MB_LIST.Add(VERAG_PROG_ALLGEMEIN.cAllgemein.USRID) 'Selbst!
For Each r As DataGridViewRow In dgvMitarbeiter.Rows
MB_LIST.Add(r.Cells("mit_id").Value)
For Each r As DataGridViewRow In dgvChatMembers.Rows
MB_LIST.Add(r.Cells("clmnMaId").Value)
Next
If VERAG_PROG_ALLGEMEIN.cMessenger.GEN_NEW_CHAT(MyTextBox2.Text, MB_LIST) Then
Dim CHAT As cMessenger.cMessenger_Chat = Nothing
If VERAG_PROG_ALLGEMEIN.cMessenger.GEN_NEW_CHAT(chatName, MB_LIST, CHAT) Then
If CHAT IsNot Nothing Then chat_id = CHAT.chat_id
Me.Close()
End If
@@ -101,4 +114,8 @@ Public Class frmMessenger_NeuerChat
Private Sub MyComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles MyComboBox1.SelectedIndexChanged
initDGV()
End Sub
Private Sub dgvMitarbeiter_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvMitarbeiter.CellDoubleClick
addSelMA()
End Sub
End Class

110
VERAG_PROG_ALLGEMEIN/Messenger/usrCntlMessenger_ChatAnhang.Designer.vb generated
View File

@@ -25,10 +25,11 @@ Partial Class usrCntlMessenger_ChatAnhang
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Me.pnl = New System.Windows.Forms.Panel()
Me.Label1 = New System.Windows.Forms.Label()
Me.lbl = New System.Windows.Forms.Label()
Me.pic = New System.Windows.Forms.PictureBox()
Me.txtChatmessage = New VERAG_PROG_ALLGEMEIN.MyRichTextBox()
Me.pic = New System.Windows.Forms.PictureBox()
Me.lblDateTime = New System.Windows.Forms.Label()
Me.lblNewMsg = New System.Windows.Forms.Label()
Me.lblName = New System.Windows.Forms.Label()
Me.pnl.SuspendLayout()
CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
@@ -37,80 +38,103 @@ Partial Class usrCntlMessenger_ChatAnhang
'
Me.pnl.Controls.Add(Me.txtChatmessage)
Me.pnl.Controls.Add(Me.pic)
Me.pnl.Controls.Add(Me.Label1)
Me.pnl.Controls.Add(Me.lbl)
Me.pnl.Dock = System.Windows.Forms.DockStyle.Fill
Me.pnl.Location = New System.Drawing.Point(0, 0)
Me.pnl.Name = "pnl"
Me.pnl.Size = New System.Drawing.Size(378, 72)
Me.pnl.TabIndex = 0
'
'Label1
'
Me.Label1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label1.AutoSize = True
Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!)
Me.Label1.ForeColor = System.Drawing.Color.Black
Me.Label1.Location = New System.Drawing.Point(284, 58)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(91, 13)
Me.Label1.TabIndex = 1
Me.Label1.Text = "01.01.2020 10:12"
'
'lbl
'
Me.lbl.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.lbl.AutoSize = True
Me.lbl.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!, System.Drawing.FontStyle.Bold)
Me.lbl.ForeColor = System.Drawing.Color.FromArgb(CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer))
Me.lbl.Location = New System.Drawing.Point(4, 58)
Me.lbl.Name = "lbl"
Me.lbl.Size = New System.Drawing.Size(155, 13)
Me.lbl.TabIndex = 0
Me.lbl.Text = "Max Mustermann (VERAG)"
'
'pic
'
Me.pic.BackgroundImage = Global.VERAG_PROG_ALLGEMEIN.My.Resources.Resources.docAllgemein
Me.pic.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.pic.Location = New System.Drawing.Point(7, 4)
Me.pic.Name = "pic"
Me.pic.Size = New System.Drawing.Size(100, 50)
Me.pic.TabIndex = 2
Me.pic.TabStop = False
'
'txtChatmessage
'
Me.txtChatmessage.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.txtChatmessage.BackColor = System.Drawing.Color.White
Me.txtChatmessage.BorderStyle = System.Windows.Forms.BorderStyle.None
Me.txtChatmessage.Cursor = System.Windows.Forms.Cursors.Hand
Me.txtChatmessage.Font = New System.Drawing.Font("Comic Sans MS", 12.0!)
Me.txtChatmessage.Location = New System.Drawing.Point(113, 17)
Me.txtChatmessage.MaxLineLength = -1
Me.txtChatmessage.MaxLines_Warning = ""
Me.txtChatmessage.MaxLines_Warning_Label = Nothing
Me.txtChatmessage.Name = "txtChatmessage"
Me.txtChatmessage.Size = New System.Drawing.Size(260, 28)
Me.txtChatmessage.ReadOnly = True
Me.txtChatmessage.Size = New System.Drawing.Size(260, 37)
Me.txtChatmessage.TabIndex = 1
Me.txtChatmessage.Text = "Anhangdokument.pdf"
'
'pic
'
Me.pic.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.pic.BackgroundImage = Global.VERAG_PROG_ALLGEMEIN.My.Resources.Resources.docAllgemein
Me.pic.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.pic.Cursor = System.Windows.Forms.Cursors.Hand
Me.pic.Location = New System.Drawing.Point(7, 4)
Me.pic.Name = "pic"
Me.pic.Size = New System.Drawing.Size(100, 50)
Me.pic.TabIndex = 2
Me.pic.TabStop = False
'
'lblDateTime
'
Me.lblDateTime.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.lblDateTime.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!)
Me.lblDateTime.ForeColor = System.Drawing.Color.Black
Me.lblDateTime.Location = New System.Drawing.Point(226, 58)
Me.lblDateTime.Name = "lblDateTime"
Me.lblDateTime.Size = New System.Drawing.Size(132, 13)
Me.lblDateTime.TabIndex = 5
Me.lblDateTime.Text = "01.01.2020 10:12:00"
Me.lblDateTime.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'lblNewMsg
'
Me.lblNewMsg.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.lblNewMsg.AutoSize = True
Me.lblNewMsg.BackColor = System.Drawing.Color.Red
Me.lblNewMsg.Font = New System.Drawing.Font("Arial Black", 7.0!, System.Drawing.FontStyle.Bold)
Me.lblNewMsg.ForeColor = System.Drawing.Color.White
Me.lblNewMsg.Location = New System.Drawing.Point(364, 58)
Me.lblNewMsg.Name = "lblNewMsg"
Me.lblNewMsg.Size = New System.Drawing.Size(11, 14)
Me.lblNewMsg.TabIndex = 6
Me.lblNewMsg.Text = "!"
Me.lblNewMsg.Visible = False
'
'lblName
'
Me.lblName.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.lblName.AutoSize = True
Me.lblName.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!, System.Drawing.FontStyle.Bold)
Me.lblName.ForeColor = System.Drawing.Color.FromArgb(CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer))
Me.lblName.Location = New System.Drawing.Point(4, 58)
Me.lblName.Name = "lblName"
Me.lblName.Size = New System.Drawing.Size(155, 13)
Me.lblName.TabIndex = 4
Me.lblName.Text = "Max Mustermann (VERAG)"
'
'usrCntlMessenger_ChatAnhang
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.White
Me.Controls.Add(Me.lblDateTime)
Me.Controls.Add(Me.lblName)
Me.Controls.Add(Me.lblNewMsg)
Me.Controls.Add(Me.pnl)
Me.Name = "usrCntlMessenger_ChatAnhang"
Me.Size = New System.Drawing.Size(378, 72)
Me.pnl.ResumeLayout(False)
Me.pnl.PerformLayout()
CType(Me.pic, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents pnl As Panel
Friend WithEvents Label1 As Label
Friend WithEvents lbl As Label
Friend WithEvents pic As PictureBox
Friend WithEvents txtChatmessage As MyRichTextBox
Friend WithEvents lblDateTime As Label
Friend WithEvents lblNewMsg As Label
Friend WithEvents lblName As Label
End Class

59
VERAG_PROG_ALLGEMEIN/Messenger/usrCntlMessenger_ChatAnhang.vb
View File

@@ -2,6 +2,65 @@
Public Class usrCntlMessenger_ChatAnhang
Property BG_COLOR As Color = Color.FromArgb(192, 255, 192) ' Color.Azure
Property CHAT_MSG As VERAG_PROG_ALLGEMEIN.cMessenger.cMessenger_ChatMessages
'Public FI As String = ""
Sub New()
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
Sub New(CHAT_MSG As VERAG_PROG_ALLGEMEIN.cMessenger.cMessenger_ChatMessages)
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
Me.CHAT_MSG = CHAT_MSG
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
Sub setBgCOLOR(BG_COLOR)
' Me.BG_COLOR = BG_COLOR
' txtChatmessage.BackColor = BG_COLOR
'Panel1.BackColor = BG_COLOR
End Sub
Private Sub usrCntlMessenger_ChatAnhang_Load(sender As Object, e As EventArgs) Handles Me.Load
init()
End Sub
Sub init()
If CHAT_MSG IsNot Nothing Then
txtChatmessage.Text = CHAT_MSG.chatMg_text
lblDateTime.Text = CHAT_MSG.chatMg_datetime.ToString("dd.MM.yyyy HH:mm:ss")
lblName.Text = CHAT_MSG.chatMg_maName & " (" & CHAT_MSG.chatMg_maFirma & ")"
Dim cnt = 0
While (txtChatmessage.Size.Width - txtChatmessage.ClientSize.Width > 10) And cnt < 20 ' (txtChatmessage.Height - txtChatmessage.ClientSize.Height) > MyRTBInnerSize Or cnt > 100
Me.Height += 20 : cnt += 1
End While
setRead()
End If
End Sub
Sub setRead()
For Each ST In CHAT_MSG.CHAT_MESSAGES_STATUS_LIST
If ST.chatMgSt_MaId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID Then
lblNewMsg.Visible = Not ST.chatMgSt_gelesen
End If
Next
End Sub
Private Sub pic_Click(sender As Object, e As EventArgs) Handles pic.Click, txtChatmessage.Click
If CHAT_MSG IsNot Nothing Then
Dim PATH = cDATENSERVER.GET_PDFPath_BY_DocID(CHAT_MSG.chatMg_anhang_docId, True)
'Process.Start(PATH)
End If
End Sub
End Class

20
VERAG_PROG_ALLGEMEIN/Messenger/usrCntlMessenger_ChatElement.Designer.vb generated
View File

@@ -29,6 +29,7 @@ Partial Class usrCntlMessenger_ChatElement
Me.txtChatmessage = New VERAG_PROG_ALLGEMEIN.MyRichTextBox()
Me.lblDateTime = New System.Windows.Forms.Label()
Me.lblName = New System.Windows.Forms.Label()
Me.lblNewMsg = New System.Windows.Forms.Label()
Me.pnl.SuspendLayout()
Me.Panel1.SuspendLayout()
Me.SuspendLayout()
@@ -38,6 +39,7 @@ Partial Class usrCntlMessenger_ChatElement
Me.pnl.Controls.Add(Me.Panel1)
Me.pnl.Controls.Add(Me.lblDateTime)
Me.pnl.Controls.Add(Me.lblName)
Me.pnl.Controls.Add(Me.lblNewMsg)
Me.pnl.Dock = System.Windows.Forms.DockStyle.Fill
Me.pnl.Location = New System.Drawing.Point(0, 0)
Me.pnl.Name = "pnl"
@@ -69,6 +71,7 @@ Partial Class usrCntlMessenger_ChatElement
Me.txtChatmessage.MaxLines_Warning = ""
Me.txtChatmessage.MaxLines_Warning_Label = Nothing
Me.txtChatmessage.Name = "txtChatmessage"
Me.txtChatmessage.ReadOnly = True
Me.txtChatmessage.Size = New System.Drawing.Size(368, 25)
Me.txtChatmessage.TabIndex = 0
Me.txtChatmessage.Text = "Hallo, wie gehts?"
@@ -78,7 +81,7 @@ Partial Class usrCntlMessenger_ChatElement
Me.lblDateTime.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.lblDateTime.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!)
Me.lblDateTime.ForeColor = System.Drawing.Color.Black
Me.lblDateTime.Location = New System.Drawing.Point(243, 34)
Me.lblDateTime.Location = New System.Drawing.Point(226, 34)
Me.lblDateTime.Name = "lblDateTime"
Me.lblDateTime.Size = New System.Drawing.Size(132, 13)
Me.lblDateTime.TabIndex = 1
@@ -97,6 +100,20 @@ Partial Class usrCntlMessenger_ChatElement
Me.lblName.TabIndex = 0
Me.lblName.Text = "Max Mustermann (VERAG)"
'
'lblNewMsg
'
Me.lblNewMsg.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.lblNewMsg.AutoSize = True
Me.lblNewMsg.BackColor = System.Drawing.Color.Red
Me.lblNewMsg.Font = New System.Drawing.Font("Arial Black", 7.0!, System.Drawing.FontStyle.Bold)
Me.lblNewMsg.ForeColor = System.Drawing.Color.White
Me.lblNewMsg.Location = New System.Drawing.Point(364, 34)
Me.lblNewMsg.Name = "lblNewMsg"
Me.lblNewMsg.Size = New System.Drawing.Size(11, 14)
Me.lblNewMsg.TabIndex = 3
Me.lblNewMsg.Text = "!"
Me.lblNewMsg.Visible = False
'
'usrCntlMessenger_ChatElement
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -117,4 +134,5 @@ Partial Class usrCntlMessenger_ChatElement
Friend WithEvents lblName As Label
Friend WithEvents Panel1 As Panel
Friend WithEvents txtChatmessage As VERAG_PROG_ALLGEMEIN.MyRichTextBox
Friend WithEvents lblNewMsg As Label
End Class

14
VERAG_PROG_ALLGEMEIN/Messenger/usrCntlMessenger_ChatElement.vb
View File

@@ -32,6 +32,20 @@ Public Class usrCntlMessenger_ChatElement
If CHAT_MSG IsNot Nothing Then
lblDateTime.Text = CHAT_MSG.chatMg_datetime.ToString("dd.MM.yyyy HH:mm:ss")
lblName.Text = CHAT_MSG.chatMg_maName & " (" & CHAT_MSG.chatMg_maFirma & ")"
txtChatmessage.Text = CHAT_MSG.chatMg_text
Dim cnt = 0
While (txtChatmessage.Size.Width - txtChatmessage.ClientSize.Width > 10) And cnt < 20 ' (txtChatmessage.Height - txtChatmessage.ClientSize.Height) > MyRTBInnerSize Or cnt > 100
Me.Height += 20 : cnt += 1
End While
setRead()
End If
End Sub
Sub setRead()
For Each ST In CHAT_MSG.CHAT_MESSAGES_STATUS_LIST
If ST.chatMgSt_MaId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID Then
lblNewMsg.Visible = Not ST.chatMgSt_gelesen
End If
Next
End Sub
End Class

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

@@ -100,6 +100,16 @@ Namespace My.Resources
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property fremdSped() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("fremdSped", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
@@ -150,6 +160,16 @@ Namespace My.Resources
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property people() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("people", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>

36
VERAG_PROG_ALLGEMEIN/My Project/Resources.resx
View File

@@ -121,8 +121,11 @@
<data name="scanner" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\scanner.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="scanner1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\scanner1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="today" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\today.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="seal" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\seal.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="pfeil_oben" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\pfeil_oben.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -136,6 +139,9 @@
<data name="seal2" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\seal2.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="docAllgemein" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\docAllgemein.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="plus" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\plus.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@@ -151,8 +157,8 @@
<data name="Aviso" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\aviso.ico;System.Drawing.Icon, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="seal" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\seal.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="pfeil_unten" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\pfeil_unten.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="del" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\del.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -178,9 +184,6 @@
<data name="picboxZoomIn_Enter" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\picboxZoomIn_Enter.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="sicherheit" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\sicherheit.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="uhr_green" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\uhr_green.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@@ -193,8 +196,8 @@
<data name="uhr_notime" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\uhr_notime.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="pdf" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\pdf.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="scanner1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\scanner1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="uhr_red" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\uhr_red.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -202,13 +205,16 @@
<data name="house" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\house.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="today" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\today.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="sicherheit" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\sicherheit.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="pfeil_unten" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\pfeil_unten.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="pdf" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\pdf.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="docAllgemein" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\docAllgemein.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="fremdSped" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\fremdSped.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="people" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\people.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
</root>

60
VERAG_PROG_ALLGEMEIN/My Project/Settings.Designer.vb generated
View File

@@ -79,8 +79,8 @@ Namespace My
<Global.System.Configuration.ApplicationScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.ConnectionString), _
Global.System.Configuration.DefaultSettingValueAttribute("Data Source=192.168.0.94\SQLEXPRESS;Initial Catalog=ADMIN;Integrated Security=fal"& _
"se;User ID=sa;Password=BmWr501956;")> _
Global.System.Configuration.DefaultSettingValueAttribute("Data Source=SQLGUIDE01.verag.ost.dmn\SQLEXPRESS;Initial Catalog=ADMIN;Integrated "& _
"Security=false;User ID=sa;Password=BmWr501956;")> _
Public ReadOnly Property ADMINConnectionString() As String
Get
Return CType(Me("ADMINConnectionString"),String)
@@ -112,9 +112,9 @@ Namespace My
<Global.System.Configuration.ApplicationScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.ConnectionString), _
Global.System.Configuration.DefaultSettingValueAttribute("Data Source=192.168.0.94\SQLEXPRESS;Initial Catalog=AVISO;Integrated Security=fal"& _
"se;User ID=sa;Password=BmWr501956;Pooling=true;Min Pool Size=5;Max Pool Size=200"& _
"")> _
Global.System.Configuration.DefaultSettingValueAttribute("Data Source=SQLGUIDE01.verag.ost.dmn\SQLEXPRESS;Initial Catalog=AVISO;Integrated "& _
"Security=false;User ID=sa;Password=BmWr501956;Pooling=true;Min Pool Size=5;Max P"& _
"ool Size=200")> _
Public ReadOnly Property AVISOConnectionString() As String
Get
Return CType(Me("AVISOConnectionString"),String)
@@ -132,12 +132,12 @@ Namespace My
Return CType(Me("SDLConnectionString"),String)
End Get
End Property
<Global.System.Configuration.ApplicationScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.ConnectionString), _
Global.System.Configuration.DefaultSettingValueAttribute("Data Source=192.168.0.94\SQLEXPRESS;Initial Catalog=ezoll;Integrated Security=fal"& _
"se;User ID=sa;Password=BmWr501956;")> _
<Global.System.Configuration.ApplicationScopedSettingAttribute(),
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),
Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.ConnectionString),
Global.System.Configuration.DefaultSettingValueAttribute("Data Source=SQLGUIDE01.verag.ost.dmn\SQLEXPRESS;Initial Catalog=ezoll;Integrated Security=fal" &
"se;User ID=sa;Password=BmWr501956;")>
Public ReadOnly Property EZOLLConnectionString() As String
Get
Return CType(Me("EZOLLConnectionString"),String)
@@ -147,9 +147,9 @@ Namespace My
<Global.System.Configuration.ApplicationScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.ConnectionString), _
Global.System.Configuration.DefaultSettingValueAttribute("Data Source=192.168.0.94\SQLEXPRESS;Initial Catalog=AVISO;Integrated Security=fal"& _
"se;User ID=sa;Password=BmWr501956;Pooling=true;Min Pool Size=5;Max Pool Size=200"& _
"")> _
Global.System.Configuration.DefaultSettingValueAttribute("Data Source=SQLGUIDE01.verag.ost.dmn\SQLEXPRESS;Initial Catalog=AVISO;Integrated "& _
"Security=false;User ID=sa;Password=BmWr501956;Pooling=true;Min Pool Size=5;Max P"& _
"ool Size=200")> _
Public ReadOnly Property AVISO_ATILLAConnectionString() As String
Get
Return CType(Me("AVISO_ATILLAConnectionString"),String)
@@ -182,8 +182,8 @@ Namespace My
<Global.System.Configuration.ApplicationScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.ConnectionString), _
Global.System.Configuration.DefaultSettingValueAttribute("Data Source=192.168.0.94\SQLEXPRESS;Initial Catalog=UID;Integrated Security=false"& _
";User ID=sa;Password=BmWr501956;")> _
Global.System.Configuration.DefaultSettingValueAttribute("Data Source=SQLGUIDE01.verag.ost.dmn\SQLEXPRESS;Initial Catalog=UID;Integrated Se"& _
"curity=false;User ID=sa;Password=BmWr501956;")> _
Public ReadOnly Property UID_PRODConnectionString() As String
Get
Return CType(Me("UID_PRODConnectionString"),String)
@@ -217,8 +217,8 @@ Namespace My
<Global.System.Configuration.ApplicationScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.ConnectionString), _
Global.System.Configuration.DefaultSettingValueAttribute("Data Source=192.168.0.94\SQLEXPRESS;Initial Catalog=FD;Integrated Security=false;"& _
"User ID=sa;Password=BmWr501956;")> _
Global.System.Configuration.DefaultSettingValueAttribute("Data Source=SQLGUIDE01.verag.ost.dmn\SQLEXPRESS;Initial Catalog=FD;Integrated Sec"& _
"urity=false;User ID=sa;Password=BmWr501956;")> _
Public ReadOnly Property FDConnectionString() As String
Get
Return CType(Me("FDConnectionString"),String)
@@ -258,6 +258,20 @@ Namespace My
End Get
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("Data Source=SQLGUIDE01.verag.ost.dmn\SQLEXPRESS;Initial Catalog=DISPO;Integrated "& _
"Security=false;User ID=sa;Password=BmWr501956;Pooling=true;Min Pool Size=5;Max P"& _
"ool Size=200")> _
Public Property DISPOConnectionString() As String
Get
Return CType(Me("DISPOConnectionString"),String)
End Get
Set
Me("DISPOConnectionString") = value
End Set
End Property
<Global.System.Configuration.ApplicationScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.ConnectionString), _
@@ -271,15 +285,13 @@ Namespace My
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("Data Source=192.168.0.94\SQLEXPRESS;Initial Catalog=DISPO;Integrated Security=fal"& _
"se;User ID=sa;Password=BmWr501956;Pooling=true;Min Pool Size=5;Max Pool Size=200"& _
"")> _
Public Property DISPOConnectionString() As String
Global.System.Configuration.DefaultSettingValueAttribute("")> _
Public Property jjjjj8uuuuu() As String
Get
Return CType(Me("DISPOConnectionString"),String)
Return CType(Me("jjjjj8uuuuu"),String)
End Get
Set
Me("DISPOConnectionString") = value
Me("jjjjj8uuuuu") = value
End Set
End Property
End Class

32
VERAG_PROG_ALLGEMEIN/My Project/Settings.settings
View File

@@ -19,9 +19,9 @@
<Setting Name="ADMINConnectionString" Type="(Connection string)" Scope="Application">
<DesignTimeValue Profile="(Default)">&lt;?xml version="1.0" encoding="utf-16"?&gt;
&lt;SerializableConnectionString xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema"&gt;
&lt;ConnectionString&gt;Data Source=192.168.0.94\SQLEXPRESS;Initial Catalog=ADMIN;Integrated Security=false;User ID=sa;Password=BmWr501956;&lt;/ConnectionString&gt;
&lt;ConnectionString&gt;Data Source=SQLGUIDE01.verag.ost.dmn\SQLEXPRESS;Initial Catalog=ADMIN;Integrated Security=false;User ID=sa;Password=BmWr501956;&lt;/ConnectionString&gt;
&lt;/SerializableConnectionString&gt;</DesignTimeValue>
<Value Profile="(Default)">Data Source=192.168.0.94\SQLEXPRESS;Initial Catalog=ADMIN;Integrated Security=false;User ID=sa;Password=BmWr501956;</Value>
<Value Profile="(Default)">Data Source=SQLGUIDE01.verag.ost.dmn\SQLEXPRESS;Initial Catalog=ADMIN;Integrated Security=false;User ID=sa;Password=BmWr501956;</Value>
</Setting>
<Setting Name="SDL_PRODConnectionString" Type="(Connection string)" Scope="Application">
<DesignTimeValue Profile="(Default)">&lt;?xml version="1.0" encoding="utf-16"?&gt;
@@ -40,9 +40,9 @@
<Setting Name="AVISOConnectionString" Type="(Connection string)" Scope="Application">
<DesignTimeValue Profile="(Default)">&lt;?xml version="1.0" encoding="utf-16"?&gt;
&lt;SerializableConnectionString xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema"&gt;
&lt;ConnectionString&gt;Data Source=192.168.0.94\SQLEXPRESS;Initial Catalog=AVISO;Integrated Security=false;User ID=sa;Password=BmWr501956;Pooling=true;Min Pool Size=5;Max Pool Size=200&lt;/ConnectionString&gt;
&lt;ConnectionString&gt;Data Source=SQLGUIDE01.verag.ost.dmn\SQLEXPRESS;Initial Catalog=AVISO;Integrated Security=false;User ID=sa;Password=BmWr501956;Pooling=true;Min Pool Size=5;Max Pool Size=200&lt;/ConnectionString&gt;
&lt;/SerializableConnectionString&gt;</DesignTimeValue>
<Value Profile="(Default)">Data Source=192.168.0.94\SQLEXPRESS;Initial Catalog=AVISO;Integrated Security=false;User ID=sa;Password=BmWr501956;Pooling=true;Min Pool Size=5;Max Pool Size=200</Value>
<Value Profile="(Default)">Data Source=SQLGUIDE01.verag.ost.dmn\SQLEXPRESS;Initial Catalog=AVISO;Integrated Security=false;User ID=sa;Password=BmWr501956;Pooling=true;Min Pool Size=5;Max Pool Size=200</Value>
</Setting>
<Setting Name="SDLConnectionString" Type="(Connection string)" Scope="Application">
<DesignTimeValue Profile="(Default)">&lt;?xml version="1.0" encoding="utf-16"?&gt;
@@ -54,16 +54,16 @@
<Setting Name="EZOLLConnectionString" Type="(Connection string)" Scope="Application">
<DesignTimeValue Profile="(Default)">&lt;?xml version="1.0" encoding="utf-16"?&gt;
&lt;SerializableConnectionString xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema"&gt;
&lt;ConnectionString&gt;Data Source=192.168.0.94\SQLEXPRESS;Initial Catalog=ezoll;Integrated Security=false;User ID=sa;Password=BmWr501956;&lt;/ConnectionString&gt;
&lt;ConnectionString&gt;Data Source=SQLGUIDE01.verag.ost.dmn\SQLEXPRESS;Initial Catalog=ezoll;Integrated Security=false;User ID=sa;Password=BmWr501956;&lt;/ConnectionString&gt;
&lt;/SerializableConnectionString&gt;</DesignTimeValue>
<Value Profile="(Default)">Data Source=192.168.0.94\SQLEXPRESS;Initial Catalog=ezoll;Integrated Security=false;User ID=sa;Password=BmWr501956;</Value>
<Value Profile="(Default)">Data Source=SQLGUIDE01.verag.ost.dmn\SQLEXPRESS;Initial Catalog=ezoll;Integrated Security=false;User ID=sa;Password=BmWr501956;</Value>
</Setting>
<Setting Name="AVISO_ATILLAConnectionString" Type="(Connection string)" Scope="Application">
<DesignTimeValue Profile="(Default)">&lt;?xml version="1.0" encoding="utf-16"?&gt;
&lt;SerializableConnectionString xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema"&gt;
&lt;ConnectionString&gt;Data Source=192.168.0.94\SQLEXPRESS;Initial Catalog=AVISO;Integrated Security=false;User ID=sa;Password=BmWr501956;Pooling=true;Min Pool Size=5;Max Pool Size=200&lt;/ConnectionString&gt;
&lt;ConnectionString&gt;Data Source=SQLGUIDE01.verag.ost.dmn\SQLEXPRESS;Initial Catalog=AVISO;Integrated Security=false;User ID=sa;Password=BmWr501956;Pooling=true;Min Pool Size=5;Max Pool Size=200&lt;/ConnectionString&gt;
&lt;/SerializableConnectionString&gt;</DesignTimeValue>
<Value Profile="(Default)">Data Source=192.168.0.94\SQLEXPRESS;Initial Catalog=AVISO;Integrated Security=false;User ID=sa;Password=BmWr501956;Pooling=true;Min Pool Size=5;Max Pool Size=200</Value>
<Value Profile="(Default)">Data Source=SQLGUIDE01.verag.ost.dmn\SQLEXPRESS;Initial Catalog=AVISO;Integrated Security=false;User ID=sa;Password=BmWr501956;Pooling=true;Min Pool Size=5;Max Pool Size=200</Value>
</Setting>
<Setting Name="AVISOConnectionStringTEST" Type="(Connection string)" Scope="Application">
<DesignTimeValue Profile="(Default)">&lt;?xml version="1.0" encoding="utf-16"?&gt;
@@ -82,9 +82,9 @@
<Setting Name="UID_PRODConnectionString" Type="(Connection string)" Scope="Application">
<DesignTimeValue Profile="(Default)">&lt;?xml version="1.0" encoding="utf-16"?&gt;
&lt;SerializableConnectionString xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema"&gt;
&lt;ConnectionString&gt;Data Source=192.168.0.94\SQLEXPRESS;Initial Catalog=UID;Integrated Security=false;User ID=sa;Password=BmWr501956;&lt;/ConnectionString&gt;
&lt;ConnectionString&gt;Data Source=SQLGUIDE01.verag.ost.dmn\SQLEXPRESS;Initial Catalog=UID;Integrated Security=false;User ID=sa;Password=BmWr501956;&lt;/ConnectionString&gt;
&lt;/SerializableConnectionString&gt;</DesignTimeValue>
<Value Profile="(Default)">Data Source=192.168.0.94\SQLEXPRESS;Initial Catalog=UID;Integrated Security=false;User ID=sa;Password=BmWr501956;</Value>
<Value Profile="(Default)">Data Source=SQLGUIDE01.verag.ost.dmn\SQLEXPRESS;Initial Catalog=UID;Integrated Security=false;User ID=sa;Password=BmWr501956;</Value>
</Setting>
<Setting Name="UIDConnectionString" Type="(Connection string)" Scope="Application">
<DesignTimeValue Profile="(Default)">&lt;?xml version="1.0" encoding="utf-16"?&gt;
@@ -99,9 +99,9 @@
<Setting Name="FDConnectionString" Type="(Connection string)" Scope="Application">
<DesignTimeValue Profile="(Default)">&lt;?xml version="1.0" encoding="utf-16"?&gt;
&lt;SerializableConnectionString xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema"&gt;
&lt;ConnectionString&gt;Data Source=192.168.0.94\SQLEXPRESS;Initial Catalog=FD;Integrated Security=false;User ID=sa;Password=BmWr501956;&lt;/ConnectionString&gt;
&lt;ConnectionString&gt;Data Source=SQLGUIDE01.verag.ost.dmn\SQLEXPRESS;Initial Catalog=FD;Integrated Security=false;User ID=sa;Password=BmWr501956;&lt;/ConnectionString&gt;
&lt;/SerializableConnectionString&gt;</DesignTimeValue>
<Value Profile="(Default)">Data Source=192.168.0.94\SQLEXPRESS;Initial Catalog=FD;Integrated Security=false;User ID=sa;Password=BmWr501956;</Value>
<Value Profile="(Default)">Data Source=SQLGUIDE01.verag.ost.dmn\SQLEXPRESS;Initial Catalog=FD;Integrated Security=false;User ID=sa;Password=BmWr501956;</Value>
</Setting>
<Setting Name="FD_PRODConnectionString" Type="(Connection string)" Scope="Application">
<DesignTimeValue Profile="(Default)">&lt;?xml version="1.0" encoding="utf-16"?&gt;
@@ -116,16 +116,18 @@
<Setting Name="VERAG_PROG_ALLGEMEIN_UIDPruefung_checkVatService" Type="(Web Service URL)" Scope="Application">
<Value Profile="(Default)">http://ec.europa.eu/taxation_customs/vies/services/checkVatService</Value>
</Setting>
<Setting Name="DISPOConnectionString" Type="System.String" Scope="User">
<Value Profile="(Default)">Data Source=SQLGUIDE01.verag.ost.dmn\SQLEXPRESS;Initial Catalog=DISPO;Integrated Security=false;User ID=sa;Password=BmWr501956;Pooling=true;Min Pool Size=5;Max Pool Size=200</Value>
</Setting>
<Setting Name="DISPOConnectionStringTEST" Type="(Connection string)" Scope="Application">
<DesignTimeValue Profile="(Default)">&lt;?xml version="1.0" encoding="utf-16"?&gt;
&lt;SerializableConnectionString xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema"&gt;
&lt;ConnectionString&gt;Data Source=192.168.0.90\DEVSQL;Initial Catalog=DISPO;Integrated Security=false;User ID=sa;Password=BmWr501956;Pooling=true;Min Pool Size=5;Max Pool Size=200&lt;/ConnectionString&gt;
&lt;ProviderName /&gt;
&lt;/SerializableConnectionString&gt;</DesignTimeValue>
<Value Profile="(Default)">Data Source=192.168.0.90\DEVSQL;Initial Catalog=DISPO;Integrated Security=false;User ID=sa;Password=BmWr501956;Pooling=true;Min Pool Size=5;Max Pool Size=200</Value>
</Setting>
<Setting Name="DISPOConnectionString" Type="System.String" Scope="User">
<Value Profile="(Default)">Data Source=192.168.0.94\SQLEXPRESS;Initial Catalog=DISPO;Integrated Security=false;User ID=sa;Password=BmWr501956;Pooling=true;Min Pool Size=5;Max Pool Size=200</Value>
<Setting Name="jjjjj8uuuuu" Type="System.String" Scope="User">
<Value Profile="(Default)" />
</Setting>
</Settings>
</SettingsFile>

BIN
VERAG_PROG_ALLGEMEIN/Resources/fremdSped.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 14 KiB

BIN
VERAG_PROG_ALLGEMEIN/Resources/people.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 11 KiB

8659
VERAG_PROG_ALLGEMEIN/Schnittstellen/VERAG/ATEZ/BeyannameBilgi.Designer.vb generated Normal file
View File

File diff suppressed because it is too large Load Diff

1576
VERAG_PROG_ALLGEMEIN/Schnittstellen/VERAG/ATEZ/BeyannameBilgi.json Normal file
View File

File diff suppressed because it is too large Load Diff

375
VERAG_PROG_ALLGEMEIN/Schnittstellen/VERAG/ATEZ/BeyannameBilgi.xsd Normal file
View File

@@ -0,0 +1,375 @@
<?xml version="1.0"?>
<xsd:schema xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
<xsd:complexType name="BeyannameBilgi">
<xsd:sequence>
<xsd:element name="Beyanname_no" type="xsd:string" />
<xsd:element name="Rejim" type="xsd:string" />
<xsd:element name="GUMRUK" type="xsd:string" />
<xsd:element name="Basitlestirilmis_usul" type="xsd:string" />
<xsd:element name="Yuk_belgeleri_sayisi" type="xsd:int" />
<xsd:element name="Kap_adedi" type="xsd:int" />
<xsd:element name="Ticaret_ulkesi" type="xsd:string" />
<xsd:element name="Referans_no" type="xsd:string" />
<xsd:element name="Birlik_kayit_numarasi" type="xsd:string" />
<xsd:element name="Birlik_kripto_numarasi" type="xsd:string" />
<xsd:element name="Cikis_ulkesi" type="xsd:string" />
<xsd:element name="Gidecegi_ulke" type="xsd:string" />
<xsd:element name="Gidecegi_sevk_ulkesi" type="xsd:string" />
<xsd:element name="Cikistaki_aracin_tipi" type="xsd:string" />
<xsd:element name="Cikistaki_aracin_kimligi" type="xsd:string" />
<xsd:element name="Cikistaki_aracin_ulkesi" type="xsd:string" />
<xsd:element name="Teslim_sekli" type="xsd:string" />
<xsd:element name="Teslim_yeri" type="xsd:string" />
<xsd:element name="Konteyner" type="xsd:string" />
<xsd:element name="Sinirdaki_aracin_tipi" type="xsd:string" />
<xsd:element name="Sinirdaki_aracin_kimligi" type="xsd:string" />
<xsd:element name="Sinirdaki_aracin_ulkesi" type="xsd:string" />
<xsd:element name="Toplam_fatura_dovizi" type="xsd:string" />
<xsd:element name="Toplan_navlun_dovizi" type="xsd:string" />
<xsd:element name="Sinirdaki_tasima_sekli" type="xsd:string" />
<xsd:element name="Alici_satici_iliskisi" type="xsd:string" />
<xsd:element name="Toplam_sigorta_dovizi" type="xsd:string" />
<xsd:element name="Yukleme_bosaltma_yeri" type="xsd:string" />
<xsd:element name="Toplam_yurt_disi_harcamalarin_dovizi" type="xsd:string" />
<xsd:element name="Banka_kodu" type="xsd:string" />
<xsd:element name="Esyanin_bulundugu_yer" type="xsd:string" />
<xsd:element name="Varis_gumruk_idaresi" type="xsd:string" />
<xsd:element name="Antrepo_kodu" type="xsd:string" />
<xsd:element name="Tasarlanan_guzergah" type="xsd:string" />
<xsd:element name="Giris_gumruk_idaresi" type="xsd:string" />
<xsd:element name="Islemin_niteligi" type="xsd:string" />
<xsd:element name="Aciklamalar" type="xsd:string" />
<xsd:element name="Kullanici_kodu" type="xsd:string" />
<xsd:element name="Referans_tarihi" type="xsd:string" />
<xsd:element name="Odeme" type="xsd:string" />
<xsd:element name="Odeme_araci" type="xsd:string" />
<xsd:element name="Musavir_referansi" type="xsd:string" />
<xsd:element name="Gonderici_vergi_no" type="xsd:string" />
<xsd:element name="Alici_vergi_no" type="xsd:string" />
<xsd:element name="Beyan_sahibi_vergi_no" type="xsd:string" />
<xsd:element name="Musavir_vergi_no" type="xsd:string" />
<xsd:element name="Asil_sorumlu_vergi_no" type="xsd:string" />
<xsd:element name="Firma_bilgi" type="ArrayOfFirma" />
<xsd:element name="Teminat" type="ArrayOfTeminat" />
<xsd:element name="Ozetbeyanlar" type="ArrayOfOzetbeyan" />
<xsd:element name="Kalemler" type="ArrayOfKalem" />
<xsd:element name="Sorular_cevaplar" type="ArrayOfSoru_Cevap" />
<xsd:element name="Dokumanlar" type="ArrayOfDokuman" />
<xsd:element name="Vergiler" type="ArrayOfVergi" />
<xsd:element name="KiymetBildirim" type="ArrayOfKiymet" />
<xsd:element name="mail1" type="xsd:string" />
<xsd:element name="mail2" type="xsd:string" />
<xsd:element name="mail3" type="xsd:string" />
<xsd:element name="mobil1" type="xsd:string" />
<xsd:element name="mobil2" type="xsd:string" />
<xsd:element name="FazlaMesaiID" type="xsd:string" />
<xsd:element name="LimanKodu" type="xsd:string" />
</xsd:sequence>
</xsd:complexType>
<xsd:complexType name="ArrayOfFirma">
<xsd:sequence />
</xsd:complexType>
<xsd:complexType name="firma">
<xsd:sequence>
<xsd:element name="Tip" type="xsd:string" />
<xsd:element name="Ulke_kodu" type="xsd:string" />
<xsd:element name="Posta_kodu" type="xsd:string" />
<xsd:element name="Kimlik_turu" type="xsd:string" />
<xsd:element name="Faks" type="xsd:string" />
<xsd:element name="No" type="xsd:string" />
<xsd:element name="Adi_unvani" type="xsd:string" />
<xsd:element name="Cadde_s_no" type="xsd:string" />
<xsd:element name="Telefon" type="xsd:string" />
<xsd:element name="Il_ilce" type="xsd:string" />
</xsd:sequence>
</xsd:complexType>
<xsd:complexType name="ArrayOfTeminat">
<xsd:sequence />
</xsd:complexType>
<xsd:complexType name="Teminat">
<xsd:sequence>
<xsd:element name="Teminat_sekli" type="xsd:string" />
<xsd:element name="Global_teminat_no" type="xsd:string" />
<xsd:element name="Aciklama" type="xsd:string" />
<xsd:element name="Diger_tutar_referansi" type="xsd:string" />
</xsd:sequence>
</xsd:complexType>
<xsd:complexType name="ArrayOfOzetbeyan">
<xsd:sequence />
</xsd:complexType>
<xsd:complexType name="Ozetbeyan">
<xsd:sequence>
<xsd:element name="ozbyacma_bilgi" type="ArrayOfTasimasenetleri" />
<xsd:element name="Ozetbeyan_no" type="xsd:string" />
<xsd:element name="Ozetbeyan_islem_kapsami" type="xsd:string" />
<xsd:element name="Ambar_ici" type="xsd:string" />
<xsd:element name="Baska_rejim" type="xsd:string" />
<xsd:element name="Aciklama" type="xsd:string" />
</xsd:sequence>
</xsd:complexType>
<xsd:complexType name="ArrayOfTasimasenetleri">
<xsd:sequence />
</xsd:complexType>
<xsd:complexType name="tasimasenetleri">
<xsd:sequence>
<xsd:element name="Tasima_senedi_no" type="xsd:string" />
<xsd:element name="tasimasatir_bilgi" type="ArrayOfTasimasatirlari" />
</xsd:sequence>
</xsd:complexType>
<xsd:complexType name="ArrayOfTasimasatirlari">
<xsd:sequence />
</xsd:complexType>
<xsd:complexType name="tasimasatirlari">
<xsd:sequence>
<xsd:element name="Tasima_satir_no" type="xsd:string" />
<xsd:element name="Ambar_kodu" type="xsd:string" />
</xsd:sequence>
</xsd:complexType>
<xsd:complexType name="ArrayOfKalem">
<xsd:sequence />
</xsd:complexType>
<xsd:complexType name="kalem">
<xsd:sequence>
<xsd:element name="tamamlayici_bilgi" type="ArrayOfTamamlayici" />
<xsd:element name="tcgbacmakapatma_bilgi" type="ArrayOfTcgbacmakapatma" />
<xsd:element name="marka_model_bilgi" type="ArrayOfMarka" />
<xsd:element name="konteyner_Bilgi" type="ArrayOfKonteyner" />
<xsd:element name="VergiMuafiyetleri" type="ArrayOfVergiMuafiyeti" />
<xsd:element name="HavacilikYakitTurleri" type="ArrayOfHavacilikYakitTuru" />
<xsd:element name="OdemeSekilleri" type="ArrayOfOdemeSekli" />
<xsd:element name="Gtip" type="xsd:string" />
<xsd:element name="Imalatci_firma_bilgisi" type="xsd:string" />
<xsd:element name="Kalem_sira_no" type="xsd:int" />
<xsd:element name="Mensei_ulke" type="xsd:string" />
<xsd:element name="Tamamlayici_olcu_birimi" type="xsd:string" />
<xsd:element name="Uluslararasi_anlasma" type="xsd:string" />
<xsd:element name="Algilama_birimi_1" type="xsd:string" />
<xsd:element name="Algilama_birimi_2" type="xsd:string" />
<xsd:element name="Muafiyetler_1" type="xsd:string" />
<xsd:element name="Muafiyetler_2" type="xsd:string" />
<xsd:element name="Muafiyetler_3" type="xsd:string" />
<xsd:element name="Muafiyetler_4" type="xsd:string" />
<xsd:element name="Muafiyetler_5" type="xsd:string" />
<xsd:element name="Algilama_birimi_3" type="xsd:string" />
<xsd:element name="Teslim_sekli" type="xsd:string" />
<xsd:element name="Ek_kod" type="xsd:string" />
<xsd:element name="Ozellik" type="xsd:string" />
<xsd:element name="Fatura_miktarinin_dovizi" type="xsd:string" />
<xsd:element name="Navlun_miktarinin_dovizi" type="xsd:string" />
<xsd:element name="Sigorta_miktarinin_dovizi" type="xsd:string" />
<xsd:element name="Tarifedeki_tanimi" type="xsd:string" />
<xsd:element name="Ticari_tanimi" type="xsd:string" />
<xsd:element name="Marka" type="xsd:string" />
<xsd:element name="Numara" type="xsd:string" />
<xsd:element name="Cinsi" type="xsd:string" />
<xsd:element name="Miktar_birimi" type="xsd:string" />
<xsd:element name="Mahrece_iade" type="xsd:string" />
<xsd:element name="Ikincil_islem" type="xsd:string" />
<xsd:element name="Satir_no" type="xsd:string" />
<xsd:element name="Kdv_orani" type="xsd:string" />
<xsd:element name="Kullanilmis_esya" type="xsd:string" />
<xsd:element name="Aciklama_44" type="xsd:string" />
<xsd:element name="Imalatci_Vergino" type="xsd:string" />
<xsd:element name="Yurtici_Diger_Aciklama" type="xsd:string" />
<xsd:element name="Muafiyet_Aciklamasi" type="xsd:string" />
<xsd:element name="Referans_Tarihi" type="xsd:string" />
<xsd:element name="YurtDisi_Komisyon_Dovizi" type="xsd:string" />
<xsd:element name="YurtDisi_Demuraj_Dovizi" type="xsd:string" />
<xsd:element name="YurtDisi_Royalti_Dovizi" type="xsd:string" />
<xsd:element name="YurtDisi_Faiz_Dovizi" type="xsd:string" />
<xsd:element name="YurtDisi_Diger_Dovizi" type="xsd:string" />
<xsd:element name="YurtDisi_Diger_Aciklama" type="xsd:string" />
<xsd:element name="Kalem_Islem_Niteligi" type="xsd:string" />
<xsd:element name="Giris_Cikis_Amaci" type="xsd:string" />
<xsd:element name="Giris_Cikis_Amaci_Aciklama" type="xsd:string" />
<xsd:element name="STM_IlKodu" type="xsd:string" />
<xsd:element name="EsyaGeriGelmeSebebi" type="xsd:string" />
<xsd:element name="EsyaGeriGelmeSebebiAciklamasi" type="xsd:string" />
</xsd:sequence>
</xsd:complexType>
<xsd:complexType name="ArrayOfTamamlayici">
<xsd:sequence />
</xsd:complexType>
<xsd:complexType name="tamamlayici">
<xsd:sequence>
<xsd:element name="Tamamlayici_bilgi" type="xsd:string" />
<xsd:element name="Tamamlayici_bilgi_orani" type="xsd:string" />
</xsd:sequence>
</xsd:complexType>
<xsd:complexType name="ArrayOfTcgbacmakapatma">
<xsd:sequence />
</xsd:complexType>
<xsd:complexType name="tcgbacmakapatma">
<xsd:sequence>
<xsd:element name="Kapatilan_beyanname_no" type="xsd:string" />
<xsd:element name="Kapatilan_kalem_no" type="xsd:int" />
<xsd:element name="Aciklama" type="xsd:string" />
</xsd:sequence>
</xsd:complexType>
<xsd:complexType name="ArrayOfMarka">
<xsd:sequence />
</xsd:complexType>
<xsd:complexType name="Marka">
<xsd:sequence>
<xsd:element name="Marka_Turu" type="xsd:string" />
<xsd:element name="Marka_Tescil_No" type="xsd:string" />
<xsd:element name="Marka_Adi" type="xsd:string" />
<xsd:element name="Referans_No" type="xsd:string" />
<xsd:element name="Model_Yili" type="xsd:string" />
<xsd:element name="Model" type="xsd:string" />
<xsd:element name="Motor_hacmi" type="xsd:string" />
<xsd:element name="Silindir_adedi" type="xsd:int" />
<xsd:element name="Renk" type="xsd:string" />
<xsd:element name="MotorTipi" type="xsd:string" />
<xsd:element name="MotorNo" type="xsd:string" />
<xsd:element name="MotorGucu" type="xsd:int" />
<xsd:element name="Vites" type="xsd:string" />
<xsd:element name="IMEINo" type="xsd:string" />
</xsd:sequence>
</xsd:complexType>
<xsd:complexType name="ArrayOfKonteyner">
<xsd:sequence />
</xsd:complexType>
<xsd:complexType name="Konteyner">
<xsd:sequence>
<xsd:element name="Konteyner_No" type="xsd:string" />
<xsd:element name="Ulke_Kodu" type="xsd:string" />
</xsd:sequence>
</xsd:complexType>
<xsd:complexType name="ArrayOfVergiMuafiyeti">
<xsd:sequence />
</xsd:complexType>
<xsd:complexType name="VergiMuafiyeti">
<xsd:sequence>
<xsd:element name="VergiMuafiyetKodu" type="xsd:string" />
</xsd:sequence>
</xsd:complexType>
<xsd:complexType name="ArrayOfHavacilikYakitTuru">
<xsd:sequence />
</xsd:complexType>
<xsd:complexType name="HavacilikYakitTuru">
<xsd:sequence>
<xsd:element name="VergiNumarasi" type="xsd:string" />
<xsd:element name="FaturaTarihi" type="xsd:string" />
<xsd:element name="FaturaNumarasi" type="xsd:string" />
<xsd:element name="ToplamFaturaMiktar" type="xsd:string" />
<xsd:element name="YakitTuru" type="xsd:string" />
</xsd:sequence>
</xsd:complexType>
<xsd:complexType name="ArrayOfOdemeSekli">
<xsd:sequence />
</xsd:complexType>
<xsd:complexType name="OdemeSekli">
<xsd:sequence>
<xsd:element name="OdemeSekliKodu" type="xsd:string" />
<xsd:element name="TBFID" type="xsd:string" />
</xsd:sequence>
</xsd:complexType>
<xsd:complexType name="ArrayOfSoru_Cevap">
<xsd:sequence />
</xsd:complexType>
<xsd:complexType name="Soru_Cevap">
<xsd:sequence>
<xsd:element name="Kalem_no" type="xsd:int" />
<xsd:element name="Soru_no" type="xsd:string" />
<xsd:element name="Cevap" type="xsd:string" />
</xsd:sequence>
</xsd:complexType>
<xsd:complexType name="ArrayOfDokuman">
<xsd:sequence />
</xsd:complexType>
<xsd:complexType name="Dokuman">
<xsd:sequence>
<xsd:element name="Kalem_no" type="xsd:int" />
<xsd:element name="Kod" type="xsd:string" />
<xsd:element name="Dogrulama" type="xsd:string" />
<xsd:element name="Belge_tarihi" type="xsd:string" />
<xsd:element name="Referans" type="xsd:string" />
<xsd:element name="Vize_Tarihi" type="xsd:string" />
</xsd:sequence>
</xsd:complexType>
<xsd:complexType name="ArrayOfVergi">
<xsd:sequence />
</xsd:complexType>
<xsd:complexType name="Vergi">
<xsd:sequence>
<xsd:element name="Kalem_no" type="xsd:int" />
<xsd:element name="Kod" type="xsd:string" />
<xsd:element name="Aciklama" type="xsd:string" />
<xsd:element name="Oran" type="xsd:string" />
<xsd:element name="Odeme_sekli" type="xsd:string" />
</xsd:sequence>
</xsd:complexType>
<xsd:complexType name="ArrayOfKiymet">
<xsd:sequence />
</xsd:complexType>
<xsd:complexType name="Kiymet">
<xsd:sequence>
<xsd:element name="TeslimSekli" type="xsd:string" />
<xsd:element name="FaturaTarihiSayisi" type="xsd:string" />
<xsd:element name="SozlesmeTarihiSayisi" type="xsd:string" />
<xsd:element name="GumrukIdaresiKarari" type="xsd:string" />
<xsd:element name="AliciSatici" type="xsd:string" />
<xsd:element name="Munasebet" type="xsd:string" />
<xsd:element name="Emsal" type="xsd:string" />
<xsd:element name="AliciSaticiAyrintilar" type="xsd:string" />
<xsd:element name="Kisitlamalar" type="xsd:string" />
<xsd:element name="Edim" type="xsd:string" />
<xsd:element name="KisitlamalarAyrintilar" type="xsd:string" />
<xsd:element name="Royalti" type="xsd:string" />
<xsd:element name="RoyaltiKosullar" type="xsd:string" />
<xsd:element name="SaticiyaIntikal" type="xsd:string" />
<xsd:element name="SaticiyaIntikalKosullar" type="xsd:string" />
<xsd:element name="SehirYer" type="xsd:string" />
<xsd:element name="Taahutname" type="xsd:string" />
<xsd:element name="KiymetKalemler" type="ArrayOfKiymetKalem" />
</xsd:sequence>
</xsd:complexType>
<xsd:complexType name="ArrayOfKiymetKalem">
<xsd:sequence />
</xsd:complexType>
<xsd:complexType name="KiymetKalem">
<xsd:sequence>
<xsd:element name="KiymetKalemNo" type="xsd:int" />
<xsd:element name="BeyannameKalemNo" type="xsd:int" />
<xsd:element name="DigerOdemelerNiteligi" type="xsd:string" />
</xsd:sequence>
</xsd:complexType>
<xsd:element name="BeyannameBilgi" type="BeyannameBilgi" />
<xsd:element name="ArrayOfFirma" type="ArrayOfFirma" />
<xsd:element name="firma" type="firma" />
<xsd:element name="ArrayOfTeminat" type="ArrayOfTeminat" />
<xsd:element name="Teminat" type="Teminat" />
<xsd:element name="ArrayOfOzetbeyan" type="ArrayOfOzetbeyan" />
<xsd:element name="Ozetbeyan" type="Ozetbeyan" />
<xsd:element name="ArrayOfTasimasenetleri" type="ArrayOfTasimasenetleri" />
<xsd:element name="tasimasenetleri" type="tasimasenetleri" />
<xsd:element name="ArrayOfTasimasatirlari" type="ArrayOfTasimasatirlari" />
<xsd:element name="tasimasatirlari" type="tasimasatirlari" />
<xsd:element name="ArrayOfKalem" type="ArrayOfKalem" />
<xsd:element name="kalem" type="kalem" />
<xsd:element name="ArrayOfTamamlayici" type="ArrayOfTamamlayici" />
<xsd:element name="tamamlayici" type="tamamlayici" />
<xsd:element name="ArrayOfTcgbacmakapatma" type="ArrayOfTcgbacmakapatma" />
<xsd:element name="tcgbacmakapatma" type="tcgbacmakapatma" />
<xsd:element name="ArrayOfMarka" type="ArrayOfMarka" />
<xsd:element name="Marka" type="Marka" />
<xsd:element name="ArrayOfKonteyner" type="ArrayOfKonteyner" />
<xsd:element name="Konteyner" type="Konteyner" />
<xsd:element name="ArrayOfVergiMuafiyeti" type="ArrayOfVergiMuafiyeti" />
<xsd:element name="VergiMuafiyeti" type="VergiMuafiyeti" />
<xsd:element name="ArrayOfHavacilikYakitTuru" type="ArrayOfHavacilikYakitTuru" />
<xsd:element name="HavacilikYakitTuru" type="HavacilikYakitTuru" />
<xsd:element name="ArrayOfOdemeSekli" type="ArrayOfOdemeSekli" />
<xsd:element name="OdemeSekli" type="OdemeSekli" />
<xsd:element name="ArrayOfSoru_Cevap" type="ArrayOfSoru_Cevap" />
<xsd:element name="Soru_Cevap" type="Soru_Cevap" />
<xsd:element name="ArrayOfDokuman" type="ArrayOfDokuman" />
<xsd:element name="Dokuman" type="Dokuman" />
<xsd:element name="ArrayOfVergi" type="ArrayOfVergi" />
<xsd:element name="Vergi" type="Vergi" />
<xsd:element name="ArrayOfKiymet" type="ArrayOfKiymet" />
<xsd:element name="Kiymet" type="Kiymet" />
<xsd:element name="ArrayOfKiymetKalem" type="ArrayOfKiymetKalem" />
<xsd:element name="KiymetKalem" type="KiymetKalem" />
</xsd:schema>

1362
VERAG_PROG_ALLGEMEIN/Schnittstellen/VERAG/ATEZ/TR_EX/declarationJsonSchema.json Normal file
View File

File diff suppressed because it is too large Load Diff

321
VERAG_PROG_ALLGEMEIN/Schnittstellen/VERAG/ATEZ/TR_EX/declarationJsonSchema.xsd Normal file
View File

@@ -0,0 +1,321 @@
<?xml version="1.0"?>
<xsd:schema xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
<xsd:complexType name="DeclarationInfo">
<xsd:sequence>
<xsd:element name="declarationNo" type="xsd:string" />
<xsd:element name="Procedure" type="xsd:string" />
<xsd:element name="customs" type="xsd:string" />
<xsd:element name="simplifiedProcedure" type="xsd:string" />
<xsd:element name="loadingList" type="xsd:int" />
<xsd:element name="totalPackageQuantity" type="xsd:int" />
<xsd:element name="tradeCountry" type="xsd:string" />
<xsd:element name="referenceNo" type="xsd:string" />
<xsd:element name="associationRegistrationNo" type="xsd:string" />
<xsd:element name="associationCryptoNo" type="xsd:string" />
<xsd:element name="countryOfExit" type="xsd:string" />
<xsd:element name="countryOfDestination" type="xsd:string" />
<xsd:element name="countryOfFirstDestination" type="xsd:string" />
<xsd:element name="exitVehicleType" type="xsd:string" />
<xsd:element name="exitVehicleIdentity" type="xsd:string" />
<xsd:element name="exitVehicleCountry" type="xsd:string" />
<xsd:element name="deliveryTerms" type="xsd:string" />
<xsd:element name="deliveryPlace" type="xsd:string" />
<xsd:element name="Container" type="xsd:string" />
<xsd:element name="borderVehicleType" type="xsd:string" />
<xsd:element name="borderVehicleIdentity" type="xsd:string" />
<xsd:element name="borderVehicleCountry" type="xsd:string" />
<xsd:element name="totalPayableAmountCurrency" type="xsd:string" />
<xsd:element name="totalFreightAmountCurrency" type="xsd:string" />
<xsd:element name="borderTransportMeans" type="xsd:string" />
<xsd:element name="partyRelationshipCode" type="xsd:string" />
<xsd:element name="totalInsuranceCurrency" type="xsd:string" />
<xsd:element name="transportHandlingPlace" type="xsd:string" />
<xsd:element name="totalForeignExpenditureCurrency" type="xsd:string" />
<xsd:element name="bankCode" type="xsd:string" />
<xsd:element name="itemLocation" type="xsd:string" />
<xsd:element name="destinationCustomsOffice" type="xsd:string" />
<xsd:element name="warehouseCode" type="xsd:string" />
<xsd:element name="plannedRoute" type="xsd:string" />
<xsd:element name="exitCustomsOffice" type="xsd:string" />
<xsd:element name="transactionNature" type="xsd:string" />
<xsd:element name="remarks" type="xsd:string" />
<xsd:element name="userCode" type="xsd:string" />
<xsd:element name="referenceDate" type="xsd:string" />
<xsd:element name="payment" type="xsd:string" />
<xsd:element name="paymentMeans" type="xsd:string" />
<xsd:element name="customsBrokerReference" type="xsd:string" />
<xsd:element name="consignorTaxNo" type="xsd:string" />
<xsd:element name="consigneeTaxNo" type="xsd:string" />
<xsd:element name="declarantTaxNo" type="xsd:string" />
<xsd:element name="financialResponsibleTaxNo" type="xsd:string" />
<xsd:element name="personelResponsibleTaxNo" type="xsd:string" />
<xsd:element name="partyInfo" type="ArrayOfParty" />
<xsd:element name="guarantee" type="ArrayOfGuarantee" />
<xsd:element name="summaryDeclarations" type="ArrayOfSummaryDeclaration" />
<xsd:element name="items" type="ArrayOfItem" />
<xsd:element name="questions" type="ArrayOfQuestion" />
<xsd:element name="documents" type="ArrayOfDocument" />
<xsd:element name="duties" type="ArrayOfDuty" />
<xsd:element name="valueDeclaration" type="ArrayOfValue" />
<xsd:element name="electronicMail1" type="xsd:string" />
<xsd:element name="electronicMail2" type="xsd:string" />
<xsd:element name="electronicMail3" type="xsd:string" />
<xsd:element name="mobile1" type="xsd:string" />
<xsd:element name="mobile2" type="xsd:string" />
<xsd:element name="overTimeID" type="xsd:string" />
<xsd:element name="portCode" type="xsd:string" />
</xsd:sequence>
</xsd:complexType>
<xsd:complexType name="party">
<xsd:sequence>
<xsd:element name="partyType" type="xsd:string" />
<xsd:element name="countryCode" type="xsd:string" />
<xsd:element name="postalCode" type="xsd:string" />
<xsd:element name="identificationType" type="xsd:string" />
<xsd:element name="telefax" type="xsd:string" />
<xsd:element name="no" type="xsd:string" />
<xsd:element name="nameTitle" type="xsd:string" />
<xsd:element name="streetName" type="xsd:string" />
<xsd:element name="telephone" type="xsd:string" />
<xsd:element name="cityAndCitySubdivisionName" type="xsd:string" />
</xsd:sequence>
</xsd:complexType>
<xsd:complexType name="Guarantee">
<xsd:sequence>
<xsd:element name="guaranteeType" type="xsd:string" />
<xsd:element name="globalGuaranteeNo" type="xsd:string" />
<xsd:element name="explanation" type="xsd:string" />
<xsd:element name="otherAmountReference" type="xsd:string" />
</xsd:sequence>
</xsd:complexType>
<xsd:complexType name="SummaryDeclaration">
<xsd:sequence>
<xsd:element name="transportBills" type="ArrayOfTransportBills" />
<xsd:element name="summaryDeclarationNo" type="xsd:string" />
<xsd:element name="summaryDeclarationJobScope" type="xsd:string" />
<xsd:element name="innerWhareHouse" type="xsd:string" />
<xsd:element name="otherRegime" type="xsd:string" />
<xsd:element name="explanation" type="xsd:string" />
</xsd:sequence>
</xsd:complexType>
<xsd:complexType name="transportBills">
<xsd:sequence>
<xsd:element name="transportIBillNo" type="xsd:string" />
<xsd:element name="transportItems" type="ArrayOfTransportItems" />
</xsd:sequence>
</xsd:complexType>
<xsd:complexType name="transportItems">
<xsd:sequence>
<xsd:element name="transportItemNo" type="xsd:string" />
<xsd:element name="wharehouseKod" type="xsd:string" />
</xsd:sequence>
</xsd:complexType>
<xsd:complexType name="item">
<xsd:sequence>
<xsd:element name="supplementaryInfo" type="ArrayOfComlementary" />
<xsd:element name="tcgbOpenCloses" type="ArrayOfTcgbOpenClose" />
<xsd:element name="tradeMarkInfo" type="ArrayOfTradeMark" />
<xsd:element name="containers" type="ArrayOfContainer" />
<xsd:element name="dutyExemptions" type="ArrayOfDutyExemption" />
<xsd:element name="aviationFuelTypes" type="ArrayOfAviationFuelType" />
<xsd:element name="paymentMeans" type="ArrayOfPaymentMeans" />
<xsd:element name="HSCode" type="xsd:string" />
<xsd:element name="producer" type="xsd:string" />
<xsd:element name="itemLineNo" type="xsd:int" />
<xsd:element name="originCountry" type="xsd:string" />
<xsd:element name="statisticalQuantityUnit" type="xsd:string" />
<xsd:element name="internationalTreaty" type="xsd:string" />
<xsd:element name="detectionUnit1" type="xsd:string" />
<xsd:element name="detectionUnit2" type="xsd:string" />
<xsd:element name="exemptions1" type="xsd:string" />
<xsd:element name="exemptions2" type="xsd:string" />
<xsd:element name="exemptions3" type="xsd:string" />
<xsd:element name="exemptions4" type="xsd:string" />
<xsd:element name="exemptions5" type="xsd:string" />
<xsd:element name="detectionUnit3" type="xsd:string" />
<xsd:element name="deliveryTerms" type="xsd:string" />
<xsd:element name="additionalCode" type="xsd:string" />
<xsd:element name="specification" type="xsd:string" />
<xsd:element name="invoiceAmountCurrency" type="xsd:string" />
<xsd:element name="freightAmountCurrency" type="xsd:string" />
<xsd:element name="insuranceAmountCurrency" type="xsd:string" />
<xsd:element name="tariffDefinition" type="xsd:string" />
<xsd:element name="itemDescription" type="xsd:string" />
<xsd:element name="brandName" type="xsd:string" />
<xsd:element name="itemNo" type="xsd:string" />
<xsd:element name="packagingType" type="xsd:string" />
<xsd:element name="itemUnitOfMeasure" type="xsd:string" />
<xsd:element name="returnToOrigin" type="xsd:string" />
<xsd:element name="secondaryProcess" type="xsd:string" />
<xsd:element name="lineNumber" type="xsd:string" />
<xsd:element name="vatRate" type="xsd:string" />
<xsd:element name="usedGoods" type="xsd:string" />
<xsd:element name="description44" type="xsd:string" />
<xsd:element name="producerTaxNo" type="xsd:string" />
<xsd:element name="domesticOtherExplanation" type="xsd:string" />
<xsd:element name="exemptionExplanation" type="xsd:string" />
<xsd:element name="referenceDate" type="xsd:string" />
<xsd:element name="foreignComissionCurrency" type="xsd:string" />
<xsd:element name="foreignDemurrageCurrency" type="xsd:string" />
<xsd:element name="foreignRoyaltyCurrency" type="xsd:string" />
<xsd:element name="foreignInterestCurrency" type="xsd:string" />
<xsd:element name="foreignOtherCurrency" type="xsd:string" />
<xsd:element name="foreignOtherExplanation" type="xsd:string" />
<xsd:element name="itemProcessType" type="xsd:string" />
<xsd:element name="reasonForEntryOrExit" type="xsd:string" />
<xsd:element name="reasonForEntryOrExitExplanation" type="xsd:string" />
<xsd:element name="stmProvinceCode" type="xsd:string" />
<xsd:element name="itemReturnReason" type="xsd:string" />
<xsd:element name="itemReturnReasonExplanation" type="xsd:string" />
</xsd:sequence>
</xsd:complexType>
<xsd:complexType name="Comlementary">
<xsd:sequence>
<xsd:element name="supplementaryInfo" type="xsd:string" />
<xsd:element name="statisticalQuantityUnit" type="xsd:string" />
</xsd:sequence>
</xsd:complexType>
<xsd:complexType name="TcgbOpenClose">
<xsd:sequence>
<xsd:element name="closedDeclarationNo" type="xsd:string" />
<xsd:element name="closedItemNo" type="xsd:int" />
<xsd:element name="description" type="xsd:string" />
</xsd:sequence>
</xsd:complexType>
<xsd:complexType name="TradeMark">
<xsd:sequence>
<xsd:element name="tradeMarkType" type="xsd:string" />
<xsd:element name="tradeMarkRegistrationNo" type="xsd:string" />
<xsd:element name="tradeMarkName" type="xsd:string" />
<xsd:element name="referanceNo" type="xsd:string" />
<xsd:element name="modelYear" type="xsd:string" />
<xsd:element name="model" type="xsd:string" />
<xsd:element name="engineVolume" type="xsd:string" />
<xsd:element name="engineCylinderQuantity" type="xsd:int" />
<xsd:element name="color" type="xsd:string" />
<xsd:element name="engineType" type="xsd:string" />
<xsd:element name="engineNo" type="xsd:string" />
<xsd:element name="horsePower" type="xsd:int" />
<xsd:element name="gear" type="xsd:string" />
<xsd:element name="IMEINo" type="xsd:string" />
</xsd:sequence>
</xsd:complexType>
<xsd:complexType name="Container">
<xsd:sequence>
<xsd:element name="containerNo" type="xsd:string" />
<xsd:element name="countryCode" type="xsd:string" />
</xsd:sequence>
</xsd:complexType>
<xsd:complexType name="DutyExemption">
<xsd:sequence>
<xsd:element name="dutyExemptionCode" type="xsd:string" />
</xsd:sequence>
</xsd:complexType>
<xsd:complexType name="AviationFuelType">
<xsd:sequence>
<xsd:element name="taxNo" type="xsd:string" />
<xsd:element name="invoiceDate" type="xsd:string" />
<xsd:element name="invoiceNumber" type="xsd:string" />
<xsd:element name="totalInvoiceAmount" type="xsd:string" />
<xsd:element name="fuelType" type="xsd:string" />
</xsd:sequence>
</xsd:complexType>
<xsd:complexType name="PaymentMeans">
<xsd:sequence>
<xsd:element name="paymentMeansCode" type="xsd:string" />
<xsd:element name="TBFID" type="xsd:string" />
</xsd:sequence>
</xsd:complexType>
<xsd:complexType name="Question">
<xsd:sequence>
<xsd:element name="itemNo" type="xsd:int" />
<xsd:element name="questionNo" type="xsd:string" />
<xsd:element name="answer" type="xsd:string" />
</xsd:sequence>
</xsd:complexType>
<xsd:complexType name="Document">
<xsd:sequence>
<xsd:element name="itemNo" type="xsd:int" />
<xsd:element name="code" type="xsd:string" />
<xsd:element name="verification" type="xsd:string" />
<xsd:element name="documentDate" type="xsd:string" />
<xsd:element name="reference" type="xsd:string" />
<xsd:element name="visaDate" type="xsd:string" />
</xsd:sequence>
</xsd:complexType>
<xsd:complexType name="Duty">
<xsd:sequence>
<xsd:element name="itemNo" type="xsd:int" />
<xsd:element name="code" type="xsd:string" />
<xsd:element name="explanation" type="xsd:string" />
<xsd:element name="dutyRate" type="xsd:string" />
<xsd:element name="paymentMeans" type="xsd:string" />
</xsd:sequence>
</xsd:complexType>
<xsd:complexType name="Value">
<xsd:sequence>
<xsd:element name="deliveryTerms" type="xsd:string" />
<xsd:element name="invoiceDateNo" type="xsd:string" />
<xsd:element name="contractDateNo" type="xsd:string" />
<xsd:element name="customsOfficeNo" type="xsd:string" />
<xsd:element name="buyerSeller" type="xsd:string" />
<xsd:element name="relation" type="xsd:string" />
<xsd:element name="imputed" type="xsd:string" />
<xsd:element name="buyerSellerDetails" type="xsd:string" />
<xsd:element name="constraints" type="xsd:string" />
<xsd:element name="deed" type="xsd:string" />
<xsd:element name="constraintDetails" type="xsd:string" />
<xsd:element name="royalty" type="xsd:string" />
<xsd:element name="royaltyConditions" type="xsd:string" />
<xsd:element name="sellerPass" type="xsd:string" />
<xsd:element name="sellerPassConditions" type="xsd:string" />
<xsd:element name="cityLocation" type="xsd:string" />
<xsd:element name="recognisance" type="xsd:string" />
<xsd:element name="ValueItems" type="ArrayOfValueItem" />
</xsd:sequence>
</xsd:complexType>
<xsd:complexType name="ValueItem">
<xsd:sequence>
<xsd:element name="valueItemNumber" type="xsd:int" />
<xsd:element name="declarationItemNumber" type="xsd:int" />
<xsd:element name="otherPaymentKind" type="xsd:string" />
</xsd:sequence>
</xsd:complexType>
<xsd:element name="DeclarationInfo" type="DeclarationInfo" />
<xsd:element name="ArrayOfParty" type="ArrayOfParty" />
<xsd:element name="party" type="party" />
<xsd:element name="ArrayOfGuarantee" type="ArrayOfGuarantee" />
<xsd:element name="Guarantee" type="Guarantee" />
<xsd:element name="ArrayOfSummaryDeclaration" type="ArrayOfSummaryDeclaration" />
<xsd:element name="SummaryDeclaration" type="SummaryDeclaration" />
<xsd:element name="ArrayOfTransportBills" type="ArrayOfTransportBills" />
<xsd:element name="transportBills" type="transportBills" />
<xsd:element name="ArrayOfTransportItems" type="ArrayOfTransportItems" />
<xsd:element name="transportItems" type="transportItems" />
<xsd:element name="ArrayOfItem" type="ArrayOfItem" />
<xsd:element name="Item" type="item" />
<xsd:element name="ArrayOfComlementary" type="ArrayOfComlementary" />
<xsd:element name="Comlementary" type="Comlementary" />
<xsd:element name="ArrayOfTcgbOpenClose" type="ArrayOfTcgbOpenClose" />
<xsd:element name="TcgbOpenClose" type="TcgbOpenClose" />
<xsd:element name="ArrayOfTradeMark" type="ArrayOfTradeMark" />
<xsd:element name="TradeMark" type="TradeMark" />
<xsd:element name="ArrayOfContainer" type="ArrayOfContainer" />
<xsd:element name="Container" type="Container" />
<xsd:element name="ArrayOfDutyExemption" type="ArrayOfDutyExemption" />
<xsd:element name="DutyExemption" type="DutyExemption" />
<xsd:element name="ArrayOfAviationFuelType" type="ArrayOfAviationFuelType" />
<xsd:element name="AviationFuelType" type="AviationFuelType" />
<xsd:element name="ArrayOfPaymentMeans" type="ArrayOfPaymentMeans" />
<xsd:element name="PaymentMeans" type="PaymentMeans" />
<xsd:element name="ArrayOfQuestion" type="ArrayOfQuestion" />
<xsd:element name="Question" type="Question" />
<xsd:element name="ArrayOfDocument" type="ArrayOfDocument" />
<xsd:element name="Document" type="Document" />
<xsd:element name="ArrayOfDuty" type="ArrayOfDuty" />
<xsd:element name="Duty" type="Duty" />
<xsd:element name="ArrayOfValue" type="ArrayOfValue" />
<xsd:element name="Value" type="Value" />
<xsd:element name="ArrayOfValueItem" type="ArrayOfValueItem" />
<xsd:element name="ValueItem" type="ValueItem" />
</xsd:schema>

2274
VERAG_PROG_ALLGEMEIN/Schnittstellen/VERAG/IN_EZA/cVERAG_in_eza.vb Normal file
View File

File diff suppressed because it is too large Load Diff

584
VERAG_PROG_ALLGEMEIN/Schnittstellen/VERAG/IN_SHIPPMENT/cVERAG_in_shippment.vb Normal file
View File

@@ -0,0 +1,584 @@
Imports System.Data.SqlClient
Imports System.Reflection
Public Class cVERAG_in_shippment
Property in_sh_id As Object = Nothing ' INT Not NULL,
Property in_sh_AvisoId As Object = Nothing ' INT NULL,
Property in_sh_SendungsId As Object = Nothing ' INT NULL,
Property in_sh_Erstellung As Object = Nothing ' DATETIME Default (getdate()) Not NULL,
Property in_sh_firma As Object = Nothing ' VARCHAR(10) NULL,
Property in_sh_niederlassung As Object = Nothing ' VARCHAR(10) NULL,
'Property MsgType As Object = Nothing ' VARCHAR(10) NULL,
'Property dec_ProzessArt As Object = Nothing ' VARCHAR(4) Not NULL,
'Property dec_Anmelde_ID As Object = Nothing ' INT NULL,
'Property dec_Template_ID As Object = Nothing ' INT NULL,
'Property dec_Lager_ID As Object = Nothing ' VARCHAR(6) NULL,
'Property dec_Lag_IND As Object = Nothing ' BIT NULL,
'Property dec_CreateDate As Object = Nothing ' DATETIME Not NULL,
'Property dec_CreatePersonalID As Object = Nothing ' VARCHAR(12) NULL,
'Property dec_PreDec_IND As Object = Nothing ' BIT NULL,
'Property dec_TotNet As Object = Nothing ' Decimal (14, 3) NULL,
'Property dec_TotNetSplit_IND As Object = Nothing ' BIT NULL,
'Property dec_FillPackList_IND As Object = Nothing ' BIT NULL,
'Property dec_Memo As Object = Nothing ' VARCHAR(1000) NULL,
'Property Refs_LRN As Object = Nothing ' VARCHAR(22) Not NULL,
'Property Refs_CRN As Object = Nothing ' VARCHAR(21) NULL,
'Property Refs_CSRN As Object = Nothing ' VARCHAR(21) NULL,
'Property Refs_ERN As Object = Nothing ' VARCHAR(21) NULL,
'Property Refs_FRN As Object = Nothing ' VARCHAR(21) NULL,
'Property Refs_Stat As Object = Nothing ' VARCHAR(2) NULL,
Property Hea_DecTy As Object = Nothing ' Type --> T1, T2, EZA
Property Hea_TotItem As Object = Nothing ' Pos gesamt
Property Hea_TotPack As Object = Nothing ' Packstücke gesamt
Property Hea_TotGross As Object = Nothing ' GesRohmasse
'Property Hea_DepLNG As Object = Nothing ' VARCHAR(2) NULL,
'Property Hea_DestLNG As Object = Nothing ' VARCHAR(2) NULL,
'Property Hea_PayTy As Object = Nothing ' VARCHAR(1) NULL,
'Property Hea_DefPayRef As Object = Nothing ' INT NULL,
'Property Hea_PerPayRef As Object = Nothing ' INT NULL,
'Property Hea_PayMet As Object = Nothing ' INT NULL,
'Property Hea_AExpRef As Object = Nothing ' BIT NULL,
'Property Hea_Fin As Object = Nothing ' VARCHAR(2) NULL,
'Property Hea_Simp As Object = Nothing ' BIT Not NULL,
'Property Hea_IssD As Object = Nothing ' Date NULL,
Property Hea_AuthID As Object = Nothing ' ? ATA
Property Hea_Incoterm As Object = Nothing ' ? Lieferkondition
'Property Hea_TransDat As Object = Nothing ' BIT NULL,
'Property Hea_WoffD As Object = Nothing ' Date NULL,
'Property Hea_DecDT As Object = Nothing ' Date Not NULL,
'Property Hea_DecPlc As Object = Nothing ' VARCHAR(35) Not NULL,
'Property Hea_AccDT As Object = Nothing ' DATETIME NULL,
'Property Hea_SecInd As Object = Nothing ' BIT NULL,
'Property Hea_ComRef As Object = Nothing ' VARCHAR(70) NULL,
'Property Hea_ProArrDT As Object = Nothing ' DATETIME NULL,
'Property Hea_PlaDepDT As Object = Nothing ' DATETIME NULL,
'Property Locs_TradCtry As Object = Nothing ' VARCHAR(2) NULL,
Property Locs_Disp As Object = Nothing ' VARCHAR(2) NULL,
Property Locs_Dest As Object = Nothing ' VARCHAR(2) NULL,
'Property Locs_GdsLocCd As Object = Nothing ' VARCHAR(17) NULL,
'Property Locs_GdsLoc As Object = Nothing ' VARCHAR(35) NULL,
'Property Locs_GdsLocAuth As Object = Nothing ' VARCHAR(17) NULL,
'Property Locs_LoadPlcCd As Object = Nothing ' VARCHAR(17) NULL,
'Property Locs_LoadPlc As Object = Nothing ' VARCHAR(35) NULL,
'Property Locs_CustPlc As Object = Nothing ' VARCHAR(17) NULL,
'Property Locs_ArrLocCd As Object = Nothing ' VARCHAR(17) NULL,
'Property Locs_ArrLoc As Object = Nothing ' VARCHAR(35) NULL,
'Property Locs_ArrLocAuth As Object = Nothing ' VARCHAR(17) NULL,
'Property Locs_WarTy As Object = Nothing ' VARCHAR(1) NULL,
'Property Locs_WarCtry As Object = Nothing ' VARCHAR(2) NULL,
'Property Locs_War As Object = Nothing ' VARCHAR(17) NULL,
Property Transp_InMo As Object = Nothing ' Transportmittel INland
Property Transp_BordMo As Object = Nothing ' Transportmittel Grenze
Property Transp_DepTy As Object = Nothing ' Transportmittel TypAbfahrt
Property Transp_DepIdnt As Object = Nothing ' Transportmittel Kennezeichen Abfahrt
Property Transp_DepNat As Object = Nothing ' Transportmittel Nationalität Abfahrt
Property Transp_CrossTy As Object = Nothing ' Transportmittel Typ Grenze
Property Transp_CrossIdnt As Object = Nothing ' Transportmittel Kennezeichen Grenze
Property Transp_CrossIdntNat As Object = Nothing ' Transportmittel Nationalität Grenze
Property Transp_ContInd As Object = Nothing ' BIT NULL,
'Property ValData_TermDelCd As Object = Nothing ' VARCHAR(3) NULL,
'Property ValData_TermDelPlc As Object = Nothing ' VARCHAR(35) NULL,
'Property ValData_TermDelSit As Object = Nothing ' VARCHAR(1) NULL,
'Property ValData_InvCurr As Object = Nothing ' VARCHAR(3) NULL,
'Property ValData_ExRa As Object = Nothing ' Decimal (20, 7) NULL,
'Property ValData_InvVal As Object = Nothing ' Decimal (18, 2) NULL,
'Property ValData_TransacCd As Object = Nothing ' INT NULL,
Property ConorTra_Na As Object = Nothing ' ABSENDER
Property ConorTra_Strt As Object = Nothing '
Property ConorTra_Pst As Object = Nothing '
Property ConorTra_Cty As Object = Nothing '
Property ConorTra_Ctry As Object = Nothing '
Property ConorTra_EORI As Object = Nothing '
Property ConorTra_UIDCtry As Object = Nothing '
Property ConorTra_UID As Object = Nothing '
Property ConeeTra_Na As Object = Nothing ' EMPFÄNGER
Property ConeeTra_Strt As Object = Nothing '
Property ConeeTra_Pst As Object = Nothing '
Property ConeeTra_Cty As Object = Nothing '
Property ConeeTra_Ctry As Object = Nothing '
Property ConeeTra_EORI As Object = Nothing '
Property ConeeTra_UIDCtry As Object = Nothing '
Property ConeeTra_UID As Object = Nothing '
Property ExpTra_Na As Object = Nothing ' EXPORTEUR
Property ExpTra_Strt As Object = Nothing '
Property ExpTra_Pst As Object = Nothing '
Property ExpTra_Cty As Object = Nothing '
Property ExpTra_Ctry As Object = Nothing '
Property ExpTra_EORI As Object = Nothing '
Property ExpTra_UIDCtry As Object = Nothing '
Property ExpTra_UID As Object = Nothing '
Property Declarant_Na As Object = Nothing ' ZOLLAGENT
Property Declarant_Strt As Object = Nothing '
Property Declarant_Pst As Object = Nothing '
Property Declarant_Cty As Object = Nothing '
Property Declarant_Ctry As Object = Nothing '
Property Declarant_EORI As Object = Nothing '
Property Declarant_UIDCtry As Object = Nothing '
Property Declarant_UID As Object = Nothing '
Property Declarant_DecRep As Object = Nothing '
Property DestCO_Ref As Object = Nothing ' Zielzollstelle
Property DepCO_Ref As Object = Nothing ' Abgangszollstelle
Property CtrlRslt_DLimit As Object = Nothing ' NCTS_GEstellung
Property POSITIONSDATEN As New List(Of cVERAG_in_shippment_Position)
'Property SICHERHEIT As New List(Of cVERAG_in_shippment_Sicherheit)
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Sub New()
End Sub
Sub New(in_sh_id)
Me.in_sh_id = in_sh_id
LOAD()
End Sub
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("in_sh_id", in_sh_id, , True, True))
'list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("telanm_ART", telanm_ART)) ' VARCHAR(50) Not NULL,
Return list
End Function
Public Function SAVE(Optional saveAll = True) As Boolean
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblVERAG_in_shippment_Anmeldung WITH(updlock,serializable) WHERE in_sh_id=@in_sh_id) " &
" BEGIN " & getUpdateCmd() & " End " &
" Else " &
" BEGIN " & getInsertCmd() & " End " &
" commit tran "
in_sh_id = SQL.doSQLVarListID(in_sh_id, sqlstr, "FMZOLL", , list)
If in_sh_id > 0 And saveAll Then
SAVE_Positionsdaten()
' SAVE_Sicherheit()
End If
Return in_sh_id > 0
End Function
Public Sub LOAD(Optional loadALL = True)
Try
If loadALL Then
POSITIONSDATEN.Clear()
' SICHERHEIT.Clear()
End If
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
Using cmd As New SqlCommand("SELECT * FROM tblVERAG_in_shippment_Anmeldung WHERE in_sh_id=@in_sh_id ", conn)
cmd.Parameters.AddWithValue("@in_sh_id", in_sh_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
If loadALL Then
LOAD_Positionsdaten()
' LOAD_Sicherheit()
End If
End If
dr.Close()
End Using
End Using
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
End Sub
'Public Function UPDATE_Status(status As Integer) As String
' If in_sh_id > 0 Then
' Try
' Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
' list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("in_sh_id", in_sh_id, , True))
' list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("telanm_Status_KEWILL_Equivalent", status, , True))
' list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("telanm_Status", status, , True))
' 'telanm_Status_KEWILL_Equivalent = status
' 'telanm_Status = status
' Return SQL.doSQLVarList(" UPDATE [tblVERAG_in_shippment_Anmeldung] SET telanm_Status_KEWILL_Equivalent=@telanm_Status_KEWILL_Equivalent,telanm_Status=@telanm_Status WHERE in_sh_id=@in_sh_id ", "FMZOLL", , list)
' Catch ex As Exception
' VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
' End Try
' End If
' Return ""
'End Function
'Shared Function UPDATE_StatusById(in_sh_id As Integer, status As Integer) As String
' If in_sh_id > 0 Then
' Try
' Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
' list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("in_sh_id", in_sh_id, , True))
' list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("telanm_Status_KEWILL_Equivalent", status, , True))
' list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("telanm_Status", status, , True))
' 'telanm_Status_KEWILL_Equivalent = status
' 'telanm_Status = status
' Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
' Return SQL.doSQLVarList(" UPDATE [tblVERAG_in_shippment_Anmeldung] SET telanm_Status_KEWILL_Equivalent=@telanm_Status_KEWILL_Equivalent,telanm_Status=@telanm_Status WHERE in_sh_id=@in_sh_id ", "FMZOLL", , list)
' Catch ex As Exception
' VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
' End Try
' End If
' Return ""
'End Function
'Public Sub UPDATE_DATA()
' Try
' Select Case telanm_ART
' Case "T1", "T2"
' 'SQL, die daten aus den jeweiligen tabellen ausliest und hier aktualisiert
' Dim Dakosy_NCTSOut As New DAKOSY_Worker.cDakosyNCTSOut
' Dakosy_NCTSOut.LOADByAnmID(in_sh_id, False)
' If Dakosy_NCTSOut IsNot Nothing Then
' Me.telanm_BezugsNr = Dakosy_NCTSOut.ncts_ObjectName
' Me.telanm_Status = Dakosy_NCTSOut.ncts_Status
' Me.telanm_Status_KEWILL_Equivalent = Dakosy_NCTSOut.ncts_Status_KEWILL_Equivalent
' Me.telanm_Erstellung = Dakosy_NCTSOut.ncts_Erstellung
' Me.telanm_Erstellung_SB = Dakosy_NCTSOut.ncts_Erstellung_SB
' Me.telanm_LetzteBearbeitung = Dakosy_NCTSOut.ncts_LetzteBearbeitung
' Me.telanm_LetzteBearbeitung_SB = Dakosy_NCTSOut.ncts_LetzteBearbeitung_SB
' End If
' End Select
' Catch ex As Exception
' VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
' 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 [tblVERAG_in_shippment_Anmeldung] SET " & str & " WHERE in_sh_id=@in_sh_id ")
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
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 tblVERAG_in_shippment_Anmeldung (" & str & ") VALUES(" & values & ") ")
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
Return ""
End Function
Shared Function getWaehr(s As String, SQL As VERAG_PROG_ALLGEMEIN.SQL) As String
'Return KDSQL.getValueTxtBySql("SELECT TOP 1 isnull([LandNr],-1) FROM [Länderverzeichnis für die Außenhandelsstatistik] WHERE [Währungscode]='" & s & "'", "FMZOLL")
s = s.Replace("TRY", "TRL") ' Türkische Lira
Return SQL.getValueTxtBySql("SELECT TOP 1 isnull([Währungsschlüssel],-1) FROM [Währungstabelle] WHERE [Währungscode]='" & s & "'", "FMZOLL")
End Function
Public Sub LOAD_Positionsdaten()
Try
POSITIONSDATEN.Clear()
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
Using cmd As New SqlCommand("SELECT * FROM tblVERAG_in_shippment_Positionsdaten WHERE in_pos_inShId=@in_sh_id ", conn)
cmd.Parameters.AddWithValue("@in_sh_id", Me.in_sh_id)
Dim dr = cmd.ExecuteReader()
While dr.Read
Dim l As New cVERAG_in_shippment_Position
For Each i In l.getParameterList()
Dim propInfo As PropertyInfo = l.GetType.GetProperty(i.Scalarvariable)
If dr.Item(i.Text) Is DBNull.Value Then
propInfo.SetValue(l, Nothing)
Else
propInfo.SetValue(l, dr.Item(i.Text))
End If
Next
l.LOAD_Packstücke()
POSITIONSDATEN.Add(l)
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
Function DELETE_Packstücke() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
Dim sqlstr = " DELETE FROM [tblVERAG_in_shippment_Packstuecke] WHERE in_posPk_inShId =" & Me.in_sh_id & " "
Return SQL.doSQL(sqlstr, "FMZOLL")
End Function
Function DELETE_Positionsdaten() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
Dim sqlstr = " DELETE FROM [tblVERAG_in_shippment_Positionsdaten] WHERE in_pos_inShId =" & Me.in_sh_id & " "
Return SQL.doSQL(sqlstr, "FMZOLL")
End Function
Public Function SAVE_Positionsdaten() As Boolean
'Zuserst alle OffertenPos von dem Offert löschen
If DELETE_Positionsdaten() And DELETE_Packstücke() Then 'And DELETE_PositionsdatenUnterlagen() And DELETE_PositionsdatenVerbrauchssteuer() Then
'jetzt die Standartofferten einfügen
For Each p In POSITIONSDATEN
p.in_pos_inShId = in_sh_id
If p.INSERT() Then
p.INSERT_Packstücke(p.in_pos_id, Me.in_sh_id)
'p.INSERT_PositionsdatenUnterlagen(p.ezaWP_Id, Me.eza_Id)
'p.INSERT_PositionsdatenVerbrauchssteuer(p.ezaWP_Id, Me.eza_Id)
Else
Return False
End If
Next
Else
Return False
End If
Return True
End Function
End Class
Public Class cVERAG_in_shippment_Position
Property in_pos_id As Integer
Property in_pos_inShId As Integer
'Property Mandant_ID As Object = Nothing
'Property Bereich_ID As Object = Nothing
'Property Referenz_ID As Object = Nothing
'Property ComIndicator As Object = Nothing
Property Pos_Nr As Integer
Property Item_GdsDes As Object = Nothing
'Property Item_Status As Object = Nothing
'Property Item_ComCd As Object = Nothing
Property Item_TarNr As Object = Nothing
Property Item_Gross As Object = Nothing
Property Item_Net As Object = Nothing
Property Item_Orig As Object = Nothing
'Property Item_ProcCd As Object = Nothing
'Property Item_ProcAddCd As Object = Nothing
Property Item_ItVal As Object = Nothing
'Property Item_Pref As Object = Nothing
'Property Item_Quota As Object = Nothing
'Property Item_ValMet As Object = Nothing
'Property Item_VATInd As Object = Nothing
'Property Item_StatVal As Object = Nothing
'Property SurvCO_Ref As Object = Nothing
'Property Telo_Artikel_ID As Object = Nothing
Property Telo_Artikelmenge As Object = Nothing
Property Telo_ArtikelMEH As Object = Nothing
Property PACKSTUECKE As New List(Of cVERAG_in_shippment_Packing)
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Sub New()
End Sub
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("in_pos_id", in_pos_id, , True, True))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("in_pos_inShId", in_pos_inShId))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Pos_Nr", Pos_Nr))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Item_GdsDes", Item_GdsDes))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Item_TarNr", Item_TarNr))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Item_Gross", Item_Gross))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Item_Net", Item_Net))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Item_Orig", Item_Orig))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Item_ItVal", Item_ItVal))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Telo_Artikelmenge", Telo_Artikelmenge))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Telo_ArtikelMEH", Telo_ArtikelMEH))
Return list
End Function
Public Function INSERT() As Boolean
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
'Return SQL.doSQLVarList(getInsertCmd, "FMZOLL", , list)
in_pos_id = SQL.doSQLVarListID(in_pos_id, getInsertCmd, "FMZOLL", , list)
Return in_pos_id > 0
End Function
Public Function INSERT_Packstücke(in_pos_id, in_sh_id) As Boolean
For Each p In PACKSTUECKE
p.in_posPk_inShId = in_sh_id
p.in_posPk_inPosId = in_pos_id
If Not p.INSERT() Then Return False
Next
Return True
End Function
Public Sub LOAD_Packstücke()
Try
PACKSTUECKE.Clear()
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
Using cmd As New SqlCommand("SELECT * FROM tblVERAG_in_shippment_Packstuecke WHERE in_posPk_inPosId=@in_pos_id ", conn)
cmd.Parameters.AddWithValue("@in_pos_id", Me.in_pos_id)
Dim dr = cmd.ExecuteReader()
While dr.Read
Dim l As New cVERAG_in_shippment_Packing
For Each i In l.getParameterList()
Dim propInfo As PropertyInfo = l.GetType.GetProperty(i.Scalarvariable)
If dr.Item(i.Text) Is DBNull.Value Then
propInfo.SetValue(l, Nothing)
Else
propInfo.SetValue(l, dr.Item(i.Text))
End If
Next
PACKSTUECKE.Add(l)
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 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 tblVERAG_in_shippment_Positionsdaten (" & 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
Public Class cVERAG_in_shippment_Packing
Property in_posPk_id As Integer
Property in_posPk_inShId As Integer
Property in_posPk_inPosId As Integer
Property Pack_Mark As Object = Nothing
Property Pack_Kind As Object = Nothing
Property Pack_Nr As Object = Nothing
Property Pack_Piec As Object = Nothing
Property Telo_Gross As Object = Nothing
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Sub New()
End Sub
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("in_posPk_id", in_posPk_id, , True, True))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("in_posPk_inShId", in_posPk_inShId))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("in_posPk_inPosId", in_posPk_inPosId))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Pack_Mark", Pack_Mark))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Pack_Kind", Pack_Kind))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Pack_Nr", Pack_Nr))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Pack_Piec", Pack_Piec))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Telo_Gross", Telo_Gross))
Return list
End Function
Public Function INSERT() As Boolean
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
in_posPk_id = SQL.doSQLVarListID(in_posPk_id, getInsertCmd, "FMZOLL", , list)
Return in_posPk_id > 0
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 tblVERAG_in_shippment_Packstuecke (" & 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

3210
VERAG_PROG_ALLGEMEIN/Schnittstellen/VERAG/OUT_EZA/VERAG_out_eza.Designer.vb generated Normal file
View File

File diff suppressed because it is too large Load Diff

370
VERAG_PROG_ALLGEMEIN/Schnittstellen/VERAG/OUT_EZA/VERAG_out_eza.json Normal file
View File

@@ -0,0 +1,370 @@
{
"$schema": "http://json-schema.org/draft-04/schema#",
"description": "Generated by xsd2code++. www.xsd2code.com",
"definitions": {},
"type": "object",
"additionalProperties": false,
"properties": {
"VERAG_out_eza": {
"type": "object",
"additionalProperties": false,
"properties": {
"Version": {
"type": "object",
"additionalProperties": false
},
"VERAGCustomerCode": {
"type": "object",
"additionalProperties": false
},
"Company": {
"type": "object",
"additionalProperties": false
},
"Department": {
"type": "object",
"additionalProperties": false
},
"ClientReference": {
"type": "object",
"additionalProperties": false
},
"InternalReference": {
"type": "object",
"additionalProperties": false,
"properties": {
"OfficeCode": {
"type": "integer"
},
"PositionNumber": {
"type": "integer"
}
},
"required": [
"OfficeCode",
"PositionNumber"
]
},
"ProcessData": {
"type": "object",
"additionalProperties": false,
"properties": {
"Status": {
"type": "object",
"additionalProperties": false
},
"TransactionDate": {
"type": "object",
"additionalProperties": false
},
"ReferenzNumber": {
"type": "object",
"additionalProperties": false
},
"CustomsReferenzNumber": {
"type": "object",
"additionalProperties": false
},
"ProcedureCode": {
"type": "object",
"additionalProperties": false
}
},
"required": [
"Status",
"TransactionDate",
"ReferenzNumber",
"CustomsReferenzNumber",
"ProcedureCode"
]
},
"EZA_Data": {
"type": "object",
"additionalProperties": false,
"properties": {
"LicensePlateContainerNo": {
"type": "object",
"additionalProperties": false
},
"SumGrossWeight": {
"type": "integer"
},
"Sender": {
"type": "object",
"additionalProperties": false,
"properties": {
"Name": {
"type": "object",
"additionalProperties": false
},
"Adress": {
"type": "object",
"additionalProperties": false,
"properties": {
"Country": {
"type": "object",
"additionalProperties": false
},
"Postcode": {
"type": "object",
"additionalProperties": false
},
"City": {
"type": "object",
"additionalProperties": false
},
"Street": {
"type": "object",
"additionalProperties": false
}
}
},
"EORI": {
"type": "object",
"additionalProperties": false
},
"EORI_NL": {
"type": "object",
"additionalProperties": false
},
"UID_Nr": {
"type": "object",
"additionalProperties": false
},
"CustomerCode": {
"type": "object",
"additionalProperties": false
}
},
"required": [
"Name"
]
},
"Consignee": {
"type": "object",
"additionalProperties": false,
"properties": {
"Name": {
"type": "object"
},
"Adress": {
"type": "object"
},
"EORI": {
"type": "object"
},
"EORI_NL": {
"type": "object"
},
"UID_Nr": {
"type": "object"
},
"CustomerCode": {
"type": "object"
}
},
"required": [
"Name"
]
},
"DestinationCountry": {
"type": "object",
"additionalProperties": false
},
"DepartureCountry": {
"type": "object",
"additionalProperties": false
},
"DestinationCustomsOffice": {
"type": "object",
"additionalProperties": false
},
"Duty": {
"type": "array",
"items": {
"type": "object",
"additionalProperties": false,
"properties": {
"Kind": {
"type": "object",
"additionalProperties": false
},
"EORI": {
"type": "object"
},
"AccountNumber": {
"type": "object",
"additionalProperties": false
},
"Value": {
"type": "object",
"additionalProperties": false
}
},
"required": [
"Kind",
"EORI",
"AccountNumber"
]
},
"maxItems": 2
},
"Position": {
"type": "array",
"items": {
"type": "object",
"additionalProperties": false,
"properties": {
"PosNr": {
"type": "integer"
},
"Quantity": {
"type": "object",
"additionalProperties": false
},
"Packaging": {
"type": "object",
"additionalProperties": false
},
"GoodsDescription": {
"type": "object",
"additionalProperties": false
},
"GrossWeight": {
"type": "object",
"additionalProperties": false
},
"TariffNumber": {
"type": "object",
"additionalProperties": false
},
"GoodsValue": {
"type": "object",
"additionalProperties": false,
"properties": {
"Value": {
"type": "object"
},
"Currency": {
"type": "object",
"additionalProperties": false
}
}
},
"Documents": {
"type": "object",
"additionalProperties": false,
"properties": {
"Invoice": {
"type": "object",
"additionalProperties": false,
"properties": {
"InvoiceNumber": {
"type": "object",
"additionalProperties": false
},
"InvoiceDate": {
"type": "string"
},
"Addition1": {
"type": "object",
"additionalProperties": false
},
"Addition2": {
"type": "object",
"additionalProperties": false
}
},
"required": [
"InvoiceNumber",
"InvoiceDate"
]
}
}
},
"Note": {
"type": "object",
"additionalProperties": false
}
},
"required": [
"PosNr"
]
},
"minItems": 1,
"maxItems": 999
},
"Note": {
"type": "object"
}
},
"required": [
"LicensePlateContainerNo"
]
},
"Attachments": {
"type": "object",
"additionalProperties": false,
"properties": {
"Attachment": {
"type": "array",
"items": {
"type": "object",
"additionalProperties": false,
"properties": {
"ReferencePosNr": {
"type": "object",
"additionalProperties": false
},
"Name": {
"type": "object"
},
"FileType": {
"type": "object",
"additionalProperties": false
},
"Description": {
"type": "object",
"additionalProperties": false
},
"DocumentType": {
"type": "string",
"enum": [
"ATR",
"EUR1",
"T1",
"CarnetATA",
"PACK",
"INVOICE",
"CMR",
"OTHER"
]
},
"base64BinaryStream": {
"type": "string"
}
},
"required": [
"ReferencePosNr",
"Name",
"FileType",
"Description",
"DocumentType",
"base64BinaryStream"
]
},
"minItems": 1,
"maxItems": 999
}
}
}
},
"required": [
"Version",
"Company",
"ProcessData",
"EZA_Data"
]
}
}
}

170
VERAG_PROG_ALLGEMEIN/Schnittstellen/VERAG/OUT_EZA/VERAG_out_eza.xsd Normal file
View File

@@ -0,0 +1,170 @@
<?xml version="1.0" encoding="UTF-8"?>
<!-- Mit XMLSpy v2017 rel. 3 sp1 (x64) (http://www.altova.com) von Andreas Luxbauer (VERAG Spedition AG) bearbeitet -->
<xs:schema xmlns:xs="http://www.w3.org/2001/XMLSchema" xmlns:vc="http://www.w3.org/2007/XMLSchema-versioning" elementFormDefault="qualified" attributeFormDefault="unqualified" vc:minVersion="1.1">
<xs:element name="VERAG_out_eza">
<xs:complexType>
<xs:sequence>
<xs:element name="Version" default="1.0.0"/>
<xs:element name="VERAGCustomerCode" minOccurs="0"/>
<xs:element name="Company"/>
<xs:element name="Department" minOccurs="0"/>
<xs:element name="ClientReference" minOccurs="0"/>
<xs:element name="InternalReference" minOccurs="0">
<xs:complexType>
<xs:sequence>
<xs:element name="OfficeCode">
<xs:simpleType>
<xs:restriction base="xs:integer"/>
</xs:simpleType>
</xs:element>
<xs:element name="PositionNumber" type="xs:integer"/>
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="ProcessData">
<xs:complexType>
<xs:sequence>
<xs:element name="Status"/>
<xs:element name="TransactionDate"/>
<xs:element name="ReferenzNumber"/>
<xs:element name="CustomsReferenzNumber"/>
<xs:element name="ProcedureCode"/>
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="EZA_Data">
<xs:complexType>
<xs:sequence>
<xs:element name="LicensePlateContainerNo"/>
<xs:element name="SumGrossWeight" type="xs:decimal" minOccurs="0"/>
<xs:element name="Sender" minOccurs="0">
<xs:complexType>
<xs:sequence>
<xs:element name="Name"/>
<xs:element name="Adress" minOccurs="0">
<xs:complexType>
<xs:sequence>
<xs:element name="Country" minOccurs="0"/>
<xs:element name="Postcode" minOccurs="0"/>
<xs:element name="City" minOccurs="0"/>
<xs:element name="Street" minOccurs="0"/>
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="EORI" minOccurs="0"/>
<xs:element name="EORI_NL" minOccurs="0"/>
<xs:element name="UID_Nr" minOccurs="0"/>
<xs:element name="CustomerCode" minOccurs="0"/>
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="Consignee" minOccurs="0">
<xs:complexType>
<xs:sequence>
<xs:element name="Name"/>
<xs:element name="Adress" minOccurs="0">
<xs:complexType>
<xs:sequence>
<xs:element name="Country" minOccurs="0"/>
<xs:element name="Postcode" minOccurs="0"/>
<xs:element name="City" minOccurs="0"/>
<xs:element name="Street" minOccurs="0"/>
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="EORI" minOccurs="0"/>
<xs:element name="EORI_NL" minOccurs="0"/>
<xs:element name="UID_Nr" minOccurs="0"/>
<xs:element name="CustomerCode" minOccurs="0"/>
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="DestinationCountry" minOccurs="0"/>
<xs:element name="DepartureCountry" minOccurs="0"/>
<xs:element name="DestinationCustomsOffice" minOccurs="0"/>
<xs:element name="Duty" minOccurs="0" maxOccurs="2">
<xs:complexType>
<xs:sequence>
<xs:element name="Kind"/>
<xs:element name="EORI"/>
<xs:element name="AccountNumber"/>
<xs:element name="Value" minOccurs="0"/>
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="Position" maxOccurs="999">
<xs:complexType>
<xs:sequence>
<xs:element name="PosNr" type="xs:int"/>
<xs:element name="Quantity" minOccurs="0"/>
<xs:element name="Packaging" minOccurs="0"/>
<xs:element name="GoodsDescription" minOccurs="0"/>
<xs:element name="GrossWeight" minOccurs="0"/>
<xs:element name="TariffNumber" minOccurs="0"/>
<xs:element name="GoodsValue" minOccurs="0">
<xs:complexType>
<xs:sequence>
<xs:element name="Value" minOccurs="0"/>
<xs:element name="Currency" minOccurs="0"/>
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="Documents" minOccurs="0">
<xs:complexType>
<xs:sequence>
<xs:element name="Invoice" minOccurs="0">
<xs:complexType>
<xs:sequence>
<xs:element name="InvoiceNumber"/>
<xs:element name="InvoiceDate" type="xs:date"/>
<xs:element name="Addition1" minOccurs="0"/>
<xs:element name="Addition2" minOccurs="0"/>
</xs:sequence>
</xs:complexType>
</xs:element>
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="Note" minOccurs="0"/>
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="Note" minOccurs="0"/>
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="Attachments" minOccurs="0">
<xs:complexType>
<xs:sequence>
<xs:element name="Attachment" maxOccurs="999">
<xs:complexType>
<xs:sequence>
<xs:element name="ReferencePosNr"/>
<xs:element name="Name"/>
<xs:element name="FileType"/>
<xs:element name="Description"/>
<xs:element name="DocumentType">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:enumeration value="ATR"/>
<xs:enumeration value="EUR1"/>
<xs:enumeration value="T1"/>
<xs:enumeration value="CarnetATA"/>
<xs:enumeration value="PACK"/>
<xs:enumeration value="INVOICE"/>
<xs:enumeration value="CMR"/>
<xs:enumeration value="OTHER"/>
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="base64BinaryStream" type="xs:base64Binary"/>
</xs:sequence>
</xs:complexType>
</xs:element>
</xs:sequence>
</xs:complexType>
</xs:element>
</xs:sequence>
</xs:complexType>
</xs:element>
</xs:schema>

303
VERAG_PROG_ALLGEMEIN/Schnittstellen/VERAG/OUT_NCTS/VERAG_out_ncts_V2_0_1.json Normal file
View File

@@ -0,0 +1,303 @@
{
"$schema": "http://json-schema.org/draft-04/schema#",
"description": "Generated by xsd2code++. www.xsd2code.com",
"definitions": {},
"type": "object",
"additionalProperties": false,
"properties": {
"VERAG_out_ncts": {
"type": "object",
"additionalProperties": false,
"properties": {
"Version": {
"type": "object",
"additionalProperties": false
},
"Company": {
"type": "object",
"additionalProperties": false
},
"Department": {
"type": "object",
"additionalProperties": false
},
"InternalReference": {
"type": "object",
"additionalProperties": false,
"properties": {
"OfficeCode": {
"type": "integer"
},
"PositionNumber": {
"type": "integer"
}
},
"required": [
"OfficeCode",
"PositionNumber"
]
},
"ProcessData": {
"type": "object",
"additionalProperties": false,
"properties": {
"Status": {
"type": "object",
"additionalProperties": false
},
"TransactionDate": {
"type": "object",
"additionalProperties": false
},
"MRN": {
"type": "object",
"additionalProperties": false
},
"ReferenzNumber": {
"type": "object",
"additionalProperties": false
},
"ProcedureCode": {
"type": "object",
"additionalProperties": false
}
},
"required": [
"Status",
"TransactionDate",
"MRN",
"ReferenzNumber",
"ProcedureCode"
]
},
"NCTS_Data": {
"type": "object",
"additionalProperties": false,
"properties": {
"DatDeterminationLimit": {
"type": "string"
},
"LicensePlate": {
"type": "object",
"additionalProperties": false
},
"DepartureCustomsOffice": {
"type": "object",
"additionalProperties": false
},
"DestinationCustomsOffice": {
"type": "object",
"additionalProperties": false
},
"DepartureCountry": {
"type": "object",
"additionalProperties": false
},
"DestinationCountry": {
"type": "object",
"additionalProperties": false
},
"Sender": {
"type": "object",
"additionalProperties": false,
"properties": {
"Name": {
"type": "object",
"additionalProperties": false
},
"Adress": {
"type": "object",
"additionalProperties": false,
"properties": {
"Country": {
"type": "object",
"additionalProperties": false
},
"Postcode": {
"type": "object",
"additionalProperties": false
},
"City": {
"type": "object",
"additionalProperties": false
},
"Street": {
"type": "object",
"additionalProperties": false
}
}
},
"EORI": {
"type": "object",
"additionalProperties": false
},
"EORI_NL": {
"type": "object",
"additionalProperties": false
},
"UID_Nr": {
"type": "object",
"additionalProperties": false
},
"CustomerCode": {
"type": "object",
"additionalProperties": false
}
},
"required": [
"Name"
]
},
"Consignee": {
"type": "object",
"additionalProperties": false,
"properties": {
"Name": {
"type": "object"
},
"Adress": {
"type": "object"
},
"EORI": {
"type": "object"
},
"EORI_NL": {
"type": "object"
},
"UID_Nr": {
"type": "object"
},
"CustomerCode": {
"type": "object"
}
},
"required": [
"Name"
]
},
"Carrier": {
"type": "object",
"additionalProperties": false,
"properties": {
"Name": {
"type": "object"
},
"Adress": {
"type": "object"
},
"EORI": {
"type": "object"
},
"EORI_NL": {
"type": "object"
},
"UID_Nr": {
"type": "object"
},
"CustomerCode": {
"type": "object"
}
},
"required": [
"Name"
]
},
"Guarantee": {
"type": "object",
"additionalProperties": false,
"properties": {
"GRN": {
"type": "object",
"additionalProperties": false
},
"Amount": {
"type": "object",
"additionalProperties": false
}
},
"required": [
"GRN",
"Amount"
]
},
"SumGrossWeight": {
"type": "integer"
},
"Position": {
"type": "object",
"additionalProperties": false,
"properties": {
"Position": {
"type": "array",
"items": {
"type": "object"
},
"minItems": 1,
"maxItems": 999
}
}
}
},
"required": [
"DatDeterminationLimit",
"LicensePlate",
"DepartureCustomsOffice",
"DestinationCustomsOffice",
"DepartureCountry",
"DestinationCountry"
]
},
"Attachments": {
"type": "object",
"additionalProperties": false,
"properties": {
"Attachment": {
"type": "array",
"items": {
"type": "object",
"additionalProperties": false,
"properties": {
"Name": {
"type": "object"
},
"FileType": {
"type": "object",
"additionalProperties": false
},
"Description": {
"type": "object",
"additionalProperties": false
},
"DocumentType": {
"type": "string",
"enum": [
"NCTS",
"OTHER"
]
},
"base64BinaryStream": {
"type": "string"
}
},
"required": [
"Name",
"FileType",
"Description",
"DocumentType",
"base64BinaryStream"
]
},
"maxItems": 999
}
}
}
},
"required": [
"Version",
"Company",
"ProcessData",
"NCTS_Data"
]
}
}
}

245
VERAG_PROG_ALLGEMEIN/Schnittstellen/VERAG/OUT_NCTS/VERAG_out_ncts_V2_0_1.xsd
View File

@@ -1,161 +1,84 @@
<?xml version="1.0" encoding="UTF-8"?>
<!-- Mit XMLSpy v2017 rel. 3 sp1 (x64) (http://www.altova.com) von Andreas Luxbauer (VERAG Spedition AG) bearbeitet -->
<xs:schema xmlns:xs="http://www.w3.org/2001/XMLSchema" xmlns:vc="http://www.w3.org/2007/XMLSchema-versioning" elementFormDefault="qualified" attributeFormDefault="unqualified" vc:minVersion="1.1">
<xs:element name="VERAG_out_ncts">
<xs:complexType>
<xs:sequence>
<xs:element name="Version" default="2.0.1"/>
<xs:element name="Company"/>
<xs:element name="Department" minOccurs="0"/>
<xs:element name="InternalReference" minOccurs="0">
<xs:complexType>
<xs:sequence>
<xs:element name="OfficeCode">
<xs:simpleType>
<xs:restriction base="xs:integer"/>
</xs:simpleType>
</xs:element>
<xs:element name="PositionNumber" type="xs:integer"/>
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="ProcessData">
<xs:complexType>
<xs:sequence>
<xs:element name="Status"/>
<xs:element name="TransactionDate"/>
<xs:element name="MRN"/>
<xs:element name="ReferenzNumber"/>
<xs:element name="ProcedureCode"/>
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="NCTS_Data">
<xs:complexType>
<xs:sequence>
<xs:element name="DatDeterminationLimit" type="xs:date"/>
<xs:element name="LicensePlate"/>
<xs:element name="DepartureCustomsOffice"/>
<xs:element name="DestinationCustomsOffice"/>
<xs:element name="DepartureCountry"/>
<xs:element name="DestinationCountry"/>
<xs:element name="Sender" minOccurs="0">
<xs:complexType>
<xs:sequence>
<xs:element name="Name"/>
<xs:element name="Adress" minOccurs="0">
<xs:complexType>
<xs:sequence>
<xs:element name="Country" minOccurs="0"/>
<xs:element name="Postcode" minOccurs="0"/>
<xs:element name="City" minOccurs="0"/>
<xs:element name="Street" minOccurs="0"/>
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="EORI" minOccurs="0"/>
<xs:element name="EORI_NL" minOccurs="0"/>
<xs:element name="UID_Nr" minOccurs="0"/>
<xs:element name="CustomerCode" minOccurs="0"/>
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="Consignee" minOccurs="0">
<xs:complexType>
<xs:sequence>
<xs:element name="Name"/>
<xs:element name="Adress" minOccurs="0">
<xs:complexType>
<xs:sequence>
<xs:element name="Country" minOccurs="0"/>
<xs:element name="Postcode" minOccurs="0"/>
<xs:element name="City" minOccurs="0"/>
<xs:element name="Street" minOccurs="0"/>
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="EORI" minOccurs="0"/>
<xs:element name="EORI_NL" minOccurs="0"/>
<xs:element name="UID_Nr" minOccurs="0"/>
<xs:element name="CustomerCode" minOccurs="0"/>
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="Carrier" minOccurs="0">
<xs:complexType>
<xs:sequence>
<xs:element name="Name"/>
<xs:element name="Adress" minOccurs="0">
<xs:complexType>
<xs:sequence>
<xs:element name="Country" minOccurs="0"/>
<xs:element name="Postcode" minOccurs="0"/>
<xs:element name="City" minOccurs="0"/>
<xs:element name="Street" minOccurs="0"/>
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="EORI" minOccurs="0"/>
<xs:element name="EORI_NL" minOccurs="0"/>
<xs:element name="UID_Nr" minOccurs="0"/>
<xs:element name="CustomerCode" minOccurs="0"/>
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="Guarantee" minOccurs="0">
<xs:complexType>
<xs:sequence>
<xs:element name="GRN"/>
<xs:element name="Amount"/>
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="SumGrossWeight" type="xs:decimal" minOccurs="0"/>
<xs:element name="Position" minOccurs="0">
<xs:complexType>
<xs:sequence>
<xs:element name="Position" maxOccurs="999">
<xs:complexType>
<xs:sequence>
<xs:element name="PosNr"/>
<xs:element name="Quantity" minOccurs="0"/>
<xs:element name="Packaging" minOccurs="0"/>
<xs:element name="GoodsDescription" minOccurs="0"/>
<xs:element name="GrossWeight" minOccurs="0"/>
</xs:sequence>
</xs:complexType>
</xs:element>
</xs:sequence>
</xs:complexType>
</xs:element>
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="Attachments" minOccurs="0">
<xs:complexType>
<xs:sequence>
<xs:element name="Attachment" minOccurs="0" maxOccurs="999">
<xs:complexType>
<xs:sequence>
<xs:element name="Name"/>
<xs:element name="FileType"/>
<xs:element name="Description"/>
<xs:element name="DocumentType">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:enumeration value="NCTS"/>
<xs:enumeration value="OTHER"/>
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="base64BinaryStream" type="xs:base64Binary"/>
</xs:sequence>
</xs:complexType>
</xs:element>
</xs:sequence>
</xs:complexType>
</xs:element>
</xs:sequence>
</xs:complexType>
</xs:element>
</xs:schema>
<?xml version="1.0"?>
<xsd:schema xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
<xsd:element name="VERAG_out_ncts">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="InternalReference">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="OfficeCode" type="xsd:int" />
<xsd:element name="PositionNumber" type="xsd:int" />
</xsd:sequence>
</xsd:complexType>
</xsd:element>
<xsd:element name="ProcessData">
<xsd:complexType>
<xsd:sequence />
</xsd:complexType>
</xsd:element>
<xsd:element name="NCTS_Data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="DatDeterminationLimit" type="xsd:string" />
<xsd:element name="Sender">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="Adress">
<xsd:complexType>
<xsd:sequence />
</xsd:complexType>
</xsd:element>
</xsd:sequence>
</xsd:complexType>
</xsd:element>
<xsd:element name="Consignee">
<xsd:complexType>
<xsd:sequence />
</xsd:complexType>
</xsd:element>
<xsd:element name="Carrier">
<xsd:complexType>
<xsd:sequence />
</xsd:complexType>
</xsd:element>
<xsd:element name="Guarantee">
<xsd:complexType>
<xsd:sequence />
</xsd:complexType>
</xsd:element>
<xsd:element name="SumGrossWeight" type="xsd:int" />
<xsd:element name="Position">
<xsd:complexType>
<xsd:sequence>
<xsd:element minOccurs="1" maxOccurs="unbounded" name="Position" />
</xsd:sequence>
</xsd:complexType>
</xsd:element>
</xsd:sequence>
</xsd:complexType>
</xsd:element>
<xsd:element name="Attachments">
<xsd:complexType>
<xsd:sequence>
<xsd:element minOccurs="0" maxOccurs="unbounded" name="Attachment">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="DocumentType">
<xsd:simpleType>
<xsd:restriction base="xsd:string">
<xsd:enumeration value="NCTS" />
<xsd:enumeration value="OTHER" />
</xsd:restriction>
</xsd:simpleType>
</xsd:element>
<xsd:element name="base64BinaryStream" type="xsd:string" />
</xsd:sequence>
</xsd:complexType>
</xsd:element>
</xsd:sequence>
</xsd:complexType>
</xsd:element>
</xsd:sequence>
</xsd:complexType>
</xsd:element>
</xsd:schema>

2987
VERAG_PROG_ALLGEMEIN/Schnittstellen/VERAG/OUT_NCTS/VERAG_out_ncts_V2_0_2.Designer.vb generated Normal file
View File

File diff suppressed because it is too large Load Diff

162
VERAG_PROG_ALLGEMEIN/Schnittstellen/VERAG/OUT_NCTS/VERAG_out_ncts_V2_0_2.xsd Normal file
View File

@@ -0,0 +1,162 @@
<?xml version="1.0" encoding="UTF-8"?>
<!-- Mit XMLSpy v2017 rel. 3 sp1 (x64) (http://www.altova.com) von Andreas Luxbauer (VERAG Spedition AG) bearbeitet -->
<xs:schema xmlns:xs="http://www.w3.org/2001/XMLSchema" xmlns:vc="http://www.w3.org/2007/XMLSchema-versioning" elementFormDefault="qualified" attributeFormDefault="unqualified" vc:minVersion="1.1">
<xs:element name="VERAG_out_ncts">
<xs:complexType>
<xs:sequence>
<xs:element name="Version" default="2.0.1"/>
<xs:element name="Company"/>
<xs:element name="Department" minOccurs="0"/>
<xs:element name="ClientReference" minOccurs="0"/>
<xs:element name="InternalReference" minOccurs="0">
<xs:complexType>
<xs:sequence>
<xs:element name="OfficeCode">
<xs:simpleType>
<xs:restriction base="xs:integer"/>
</xs:simpleType>
</xs:element>
<xs:element name="PositionNumber" type="xs:integer"/>
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="ProcessData">
<xs:complexType>
<xs:sequence>
<xs:element name="Status"/>
<xs:element name="TransactionDate"/>
<xs:element name="MRN"/>
<xs:element name="ReferenzNumber"/>
<xs:element name="ProcedureCode"/>
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="NCTS_Data">
<xs:complexType>
<xs:sequence>
<xs:element name="DatDeterminationLimit" type="xs:date"/>
<xs:element name="LicensePlate"/>
<xs:element name="DepartureCustomsOffice"/>
<xs:element name="DestinationCustomsOffice"/>
<xs:element name="DepartureCountry"/>
<xs:element name="DestinationCountry"/>
<xs:element name="Sender" minOccurs="0">
<xs:complexType>
<xs:sequence>
<xs:element name="Name"/>
<xs:element name="Adress" minOccurs="0">
<xs:complexType>
<xs:sequence>
<xs:element name="Country" minOccurs="0"/>
<xs:element name="Postcode" minOccurs="0"/>
<xs:element name="City" minOccurs="0"/>
<xs:element name="Street" minOccurs="0"/>
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="EORI" minOccurs="0"/>
<xs:element name="EORI_NL" minOccurs="0"/>
<xs:element name="UID_Nr" minOccurs="0"/>
<xs:element name="CustomerCode" minOccurs="0"/>
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="Consignee" minOccurs="0">
<xs:complexType>
<xs:sequence>
<xs:element name="Name"/>
<xs:element name="Adress" minOccurs="0">
<xs:complexType>
<xs:sequence>
<xs:element name="Country" minOccurs="0"/>
<xs:element name="Postcode" minOccurs="0"/>
<xs:element name="City" minOccurs="0"/>
<xs:element name="Street" minOccurs="0"/>
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="EORI" minOccurs="0"/>
<xs:element name="EORI_NL" minOccurs="0"/>
<xs:element name="UID_Nr" minOccurs="0"/>
<xs:element name="CustomerCode" minOccurs="0"/>
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="Carrier" minOccurs="0">
<xs:complexType>
<xs:sequence>
<xs:element name="Name"/>
<xs:element name="Adress" minOccurs="0">
<xs:complexType>
<xs:sequence>
<xs:element name="Country" minOccurs="0"/>
<xs:element name="Postcode" minOccurs="0"/>
<xs:element name="City" minOccurs="0"/>
<xs:element name="Street" minOccurs="0"/>
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="EORI" minOccurs="0"/>
<xs:element name="EORI_NL" minOccurs="0"/>
<xs:element name="UID_Nr" minOccurs="0"/>
<xs:element name="CustomerCode" minOccurs="0"/>
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="Guarantee" minOccurs="0">
<xs:complexType>
<xs:sequence>
<xs:element name="GRN"/>
<xs:element name="Amount"/>
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="SumGrossWeight" type="xs:decimal" minOccurs="0"/>
<xs:element name="Position" minOccurs="0">
<xs:complexType>
<xs:sequence>
<xs:element name="Position" maxOccurs="999">
<xs:complexType>
<xs:sequence>
<xs:element name="PosNr"/>
<xs:element name="Quantity" minOccurs="0"/>
<xs:element name="Packaging" minOccurs="0"/>
<xs:element name="GoodsDescription" minOccurs="0"/>
<xs:element name="GrossWeight" minOccurs="0"/>
</xs:sequence>
</xs:complexType>
</xs:element>
</xs:sequence>
</xs:complexType>
</xs:element>
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="Attachments" minOccurs="0">
<xs:complexType>
<xs:sequence>
<xs:element name="Attachment" minOccurs="0" maxOccurs="999">
<xs:complexType>
<xs:sequence>
<xs:element name="Name"/>
<xs:element name="FileType"/>
<xs:element name="Description"/>
<xs:element name="DocumentType">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:enumeration value="NCTS"/>
<xs:enumeration value="OTHER"/>
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="base64BinaryStream" type="xs:base64Binary"/>
</xs:sequence>
</xs:complexType>
</xs:element>
</xs:sequence>
</xs:complexType>
</xs:element>
</xs:sequence>
</xs:complexType>
</xs:element>
</xs:schema>

361
VERAG_PROG_ALLGEMEIN/Schnittstellen/VERAG/OUT_NCTS/cVERAG_out_ncts.vb Normal file
View File

@@ -0,0 +1,361 @@
Imports System.Data.SqlClient
Imports System.Reflection
Public Class cVERAG_out_ncts
Property ncts_ANR As Object = Nothing
Property ncts_MRN As Object = Nothing
Property ncts_firma As Object = Nothing
Property ncts_niederlassung As Object = Nothing
'Property ncts_Gestellt As Boolean = False
'Property ncts_GestelltAm As Object = Nothing
Property ncts_ObjectName As Object = Nothing
Property ncts_ObjectAlias As Object = Nothing
Property ncts_BezugsnummerVorblendung As Object = Nothing
Property ncts_Bearbeiter As Object = Nothing
Property ncts_VersendungsLandCode As Object = Nothing
Property ncts_BestimmungslandCode As Object = Nothing
Property ncts_ArtAnmeldung As Object = Nothing
Property ncts_BeladungsOrt As Object = Nothing
Property ncts_DurchgangszollstelleDienststellnummer1 As Object = Nothing
Property ncts_DurchgangszollstelleDienststellnummer2 As Object = Nothing
Property ncts_DurchgangszollstelleDienststellnummer3 As Object = Nothing
Property ncts_DurchgangszollstelleDienststellnummer4 As Object = Nothing
Property ncts_DurchgangszollstelleDienststellnummer5 As Object = Nothing
Property ncts_DurchgangszollstelleDienststellnummer6 As Object = Nothing
Property ncts_DurchgangszollstelleDienststellnummer7 As Object = Nothing
Property ncts_DurchgangszollstelleDienststellnummer8 As Object = Nothing
Property ncts_DurchgangszollstelleDienststellnummer9 As Object = Nothing
Property ncts_BestimmungsstelleDienststellennummer As Object = Nothing
Property ncts_AbgangsDienststellennummer As Object = Nothing
Property ncts_Wiedergestellungsdatum As Object = Nothing
Property ncts_KzVereinfachtesVerfahren As Object = Nothing
Property ncts_GesamtRohmasse As Object = Nothing
Property ncts_GesamtAnzahlPackstuecke As Object = Nothing
Property ncts_Verschluss_ArtCode As Object = Nothing
Property ncts_Verschluss_Anzahl As Object = Nothing
Property ncts_Verschluss_Zeichen1 As Object = Nothing
Property ncts_Verschluss_Zeichen2 As Object = Nothing
Property ncts_Verschluss_Zeichen3 As Object = Nothing
Property ncts_Verschluss_Zeichen4 As Object = Nothing
Property ncts_Verschluss_Zeichen5 As Object = Nothing
Property ncts_Verschluss_Zeichen6 As Object = Nothing
Property ncts_Verschluss_Zeichen7 As Object = Nothing
Property ncts_Verschluss_Zeichen8 As Object = Nothing
Property ncts_Verschluss_Zeichen9 As Object = Nothing
Property ncts_Verschluss_Zeichen10 As Object = Nothing
Property ncts_Verschluss_Zeichen11 As Object = Nothing
Property ncts_Verschluss_Zeichen12 As Object = Nothing
Property ncts_Verschluss_Zeichen13 As Object = Nothing
Property ncts_Verschluss_Zeichen14 As Object = Nothing
Property ncts_Verschluss_Zeichen15 As Object = Nothing
Property ncts_Verschluss_Zeichen16 As Object = Nothing
Property ncts_Befoerderungsmittel_KennzeichenAbgang As Object = Nothing
Property ncts_Befoerderungsmittel_SttaszugehoerigkeitAbgangCode As Object = Nothing
Property ncts_Befoerderungsmittel_VerkehrszweigGrenzueberschreitent As Object = Nothing
Property ncts_Befoerderungsmittel_ArtGrenzueberschreitung As Object = Nothing
Property ncts_Befoerderungsmittel_KennzeichenGrenzueberschreitend As Object = Nothing
Property ncts_Befoerderungsmittel_StaatszugehoerigkeitGrenzueberschreitendCode As Object = Nothing
Property ncts_Versender_EORI As Object = Nothing
Property ncts_Versender_NLNR As Object = Nothing
Property ncts_Versender_TIN As Object = Nothing
Property ncts_Versender_Name As Object = Nothing
Property ncts_Versender_StrasseHausnummer As Object = Nothing
Property ncts_Versender_Ort As Object = Nothing
Property ncts_Versender_PLZ As Object = Nothing
Property ncts_Versender_Land As Object = Nothing
Property ncts_Empfaenger_EORI As Object = Nothing
Property ncts_Empfaenger_NLNR As Object = Nothing
Property ncts_Empfaenger_TIN As Object = Nothing
Property ncts_Empfaenger_Name As Object = Nothing
Property ncts_Empfaenger_StrasseHausnummer As Object = Nothing
Property ncts_Empfaenger_Ort As Object = Nothing
Property ncts_Empfaenger_PLZ As Object = Nothing
Property ncts_Empfaenger_Land As Object = Nothing
Property ncts_Hauptverpflichteter_EORI As Object = Nothing
Property ncts_Hauptverpflichteter_NLNR As Object = Nothing
Property ncts_Hauptverpflichteter_TIN As Object = Nothing
Property ncts_Hauptverpflichteter_Name As Object = Nothing
Property ncts_Hauptverpflichteter_StrasseHausnummer As Object = Nothing
Property ncts_Hauptverpflichteter_Ort As Object = Nothing
Property ncts_Hauptverpflichteter_PLZ As Object = Nothing
Property ncts_Hauptverpflichteter_Land As Object = Nothing
Property ncts_ZugelassenerEmpfaenger_IDCarnet As Object = Nothing
Property ncts_ZugelassenerEmpfaenger_BewilligungsnummerVersender As Object = Nothing
Property ncts_ZugelassenerEmpfaenger_EORI As Object = Nothing
Property ncts_ZugelassenerEmpfaenger_TIN As Object = Nothing
Property ncts_SumA_KzSumASicherheit As Object = Nothing
Property ncts_SumA_KennnummerSendung As Object = Nothing
Property ncts_SumA_BesondereUmstaende As Object = Nothing
Property ncts_SumA_NummerBefoerderung As Object = Nothing
Property ncts_SumA_Ladeort As Object = Nothing
Property ncts_SumA_Entladeort As Object = Nothing
Property ncts_SumA_BefoerderungskostenZahlungsweise As Object = Nothing
Property ncts_SumA_BefoerderungsrouteLand1 As Object = Nothing
Property ncts_SumA_BefoerderungsrouteLand2 As Object = Nothing
Property ncts_SumA_BefoerderungsrouteLand3 As Object = Nothing
Property ncts_SumA_BefoerderungsrouteLand4 As Object = Nothing
Property ncts_SumA_BefoerderungsrouteLand5 As Object = Nothing
Property ncts_SumA_BefoerderungsrouteLand6 As Object = Nothing
Property ncts_SumA_BefoerderungsrouteLand7 As Object = Nothing
Property ncts_SumA_BefoerderungsrouteLand8 As Object = Nothing
Property ncts_SumA_BefoerderungsrouteLand9 As Object = Nothing
Property ncts_SumA_BefoerderungsrouteLand10 As Object = Nothing
Property ncts_SumA_BefoerderungsrouteLand11 As Object = Nothing
Property ncts_SumA_BefoerderungsrouteLand12 As Object = Nothing
Property ncts_SumA_Versender_EORI As Object = Nothing
Property ncts_SumA_Versender_NLNR As Object = Nothing
Property ncts_SumA_Versender_TIN As Object = Nothing
Property ncts_SumA_Versender_Name As Object = Nothing
Property ncts_SumA_Versender_StrasseHausnummer As Object = Nothing
Property ncts_SumA_Versender_Land As Object = Nothing
Property ncts_SumA_Versender_PLZ As Object = Nothing
Property ncts_SumA_Versender_Ort As Object = Nothing
Property ncts_SumA_Empfaenger_EORI As Object = Nothing
Property ncts_SumA_Empfaenger_NLNR As Object = Nothing
Property ncts_SumA_Empfaenger_TIN As Object = Nothing
Property ncts_SumA_Empfaenger_Name As Object = Nothing
Property ncts_SumA_Empfaenger_StrasseHausnummer As Object = Nothing
Property ncts_SumA_Empfaenger_Land As Object = Nothing
Property ncts_SumA_Empfaenger_PLZ As Object = Nothing
Property ncts_SumA_Empfaenger_Ort As Object = Nothing
Property ncts_SumA_Befoerderer_EORI As Object = Nothing
Property ncts_SumA_Befoerderer_NLNR As Object = Nothing
Property ncts_SumA_Befoerderer_TIN As Object = Nothing
Property ncts_SumA_Befoerderer_Name As Object = Nothing
Property ncts_SumA_Befoerderer_StrasseHausnummer As Object = Nothing
Property ncts_SumA_Befoerderer_Land As Object = Nothing
Property ncts_SumA_Befoerderer_PLZ As Object = Nothing
Property ncts_SumA_Befoerderer_Ort As Object = Nothing
Property ncts_Stammreferenz As Object = Nothing
Property ncts_SICHERHEITSANGABEN As New List(Of cDakosy_NCTSOut_Sicherheitsangaben)
Property ncts_WARENPOS As New List(Of cDakosy_NCTSOut_Warenposition)
End Class
Public Class cDakosy_NCTSOut_Sicherheitsangaben
'Property nctsSA_Id As Integer
'Property nctsSA_NctsId As Object = Nothing
Property nctsSA_ArtCode As Object = Nothing
Property nctsSA_BezeichnungBescheinigun As Object = Nothing
Property nctsSA_AbgabenBetrag As Object = Nothing
'Property nctsSA_GRN As Object = Nothing
'Property nctsSA_Zugriffcode As Object = Nothing
'Property nctsSA_TIN As Object = Nothing
'Public selButton As Object = Nothing ' Für die GUI
'Public SA_OBJECT As Object = Nothing ' Für die GUI
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Sub New()
End Sub
'Sub New(nctsSA_Id)
' Me.nctsSA_Id = nctsSA_Id
' LOAD()
' End Sub
End Class
Public Class cDakosy_NCTSOut_Warenposition
'Property nctsWP_Id As Integer
'Property nctsWP_NctsId As Integer
Property nctsWP_PositionsNummer As Object = Nothing
Property nctsWP_Warennummer As Object = Nothing
Property nctsWP_ArtAnmeldungPositionCode As Object = Nothing
Property nctsWP_Warenbezeichnung As Object = Nothing
Property nctsWP_Warenwert As Object = Nothing
Property nctsWP_WarenwertWaehrung As Object = Nothing
Property nctsWP_SchaetzKz As Object = Nothing
Property nctsWP_WarenwertProzent As Object = Nothing
Property nctsWP_VersendungslandPositionCode As Object = Nothing
Property nctsWP_BestimmungslandPositionCode As Object = Nothing
Property nctsWP_Rohmasse As Object = Nothing
Property nctsWP_Eigenmasse As Object = Nothing
Property nctsWP_VorpapierTyp As Object = Nothing
Property nctsWP_VorpapierReferenz1 As Object = Nothing
Property nctsWP_VorpapierZusatz1 As Object = Nothing
Property nctsWP_VorpapierReferenz2 As Object = Nothing
Property nctsWP_VorpapierZusatz2 As Object = Nothing
Property nctsWP_VorpapierReferenz3 As Object = Nothing
Property nctsWP_VorpapierZusatz3 As Object = Nothing
Property nctsWP_VorpapierReferenz4 As Object = Nothing
Property nctsWP_VorpapierZusatz4 As Object = Nothing
Property nctsWP_VorpapierReferenz5 As Object = Nothing
Property nctsWP_VorpapierZusatz5 As Object = Nothing
Property nctsWP_VorpapierReferenz6 As Object = Nothing
Property nctsWP_VorpapierZusatz6 As Object = Nothing
Property nctsWP_VorpapierReferenz7 As Object = Nothing
Property nctsWP_VorpapierZusatz7 As Object = Nothing
Property nctsWP_VorpapierReferenz8 As Object = Nothing
Property nctsWP_VorpapierZusatz8 As Object = Nothing
Property nctsWP_VorpapierReferenz9 As Object = Nothing
Property nctsWP_VorpapierZusatz9 As Object = Nothing
Property nctsWP_BesondereVermeke_ExportAusEU As Object = Nothing
Property nctsWP_BesondereVermeke_ExportAusLand As Object = Nothing
Property nctsWP_BesondereVermeke_Export As Object = Nothing
Property nctsWP_BesondereVermeke_ExportBeschraenkung As Object = Nothing
Property nctsWP_BesondereVermeke_ExportAbgaben As Object = Nothing
Property nctsWP_BesondereVermeke_Vermerk As Object = Nothing
Property nctsWP_BesondereVermeke_Kz10600 As Object = Nothing
Property nctsWP_Versender_EORI As Object = Nothing
Property nctsWP_Versender_NLNR As Object = Nothing
Property nctsWP_Versender_TIN As Object = Nothing
Property nctsWP_Versender_Name As Object = Nothing
Property nctsWP_Versender_StrasseHausnummer As Object = Nothing
Property nctsWP_Versender_Ort As Object = Nothing
Property nctsWP_Versender_PLZ As Object = Nothing
Property nctsWP_Versender_Land As Object = Nothing
Property nctsWP_Empfaenger_EORI As Object = Nothing
Property nctsWP_Empfaenger_NLNR As Object = Nothing
Property nctsWP_Empfaenger_TIN As Object = Nothing
Property nctsWP_Empfaenger_Name As Object = Nothing
Property nctsWP_Empfaenger_StrasseHausnummer As Object = Nothing
Property nctsWP_Empfaenger_Ort As Object = Nothing
Property nctsWP_Empfaenger_PLZ As Object = Nothing
Property nctsWP_Empfaenger_Land As Object = Nothing
Property nctsWP_SumAKennnummerSendung As Object = Nothing
Property nctsWP_SumABefoerderungskostenZahlungsweise As Object = Nothing
Property nctsWP_SumAUNGefahrgutnummer As Object = Nothing
Property nctsWP_SumAVersender_EORI As Object = Nothing
Property nctsWP_SumAVersender_NLNR As Object = Nothing
Property nctsWP_SumAVersender_TIN As Object = Nothing
Property nctsWP_SumAVersender_Name As Object = Nothing
Property nctsWP_SumAVersender_StrasseHausnummer As Object = Nothing
Property nctsWP_SumAVersender_Ort As Object = Nothing
Property nctsWP_SumAVersender_PLZ As Object = Nothing
Property nctsWP_SumAVersender_Land As Object = Nothing
Property nctsWP_SumAEmpfaenger_EORI As Object = Nothing
Property nctsWP_SumAEmpfaenger_NLNR As Object = Nothing
Property nctsWP_SumAEmpfaenger_TIN As Object = Nothing
Property nctsWP_SumAEmpfaenger_Name As Object = Nothing
Property nctsWP_SumAEmpfaenger_StrasseHausnummer As Object = Nothing
Property nctsWP_SumAEmpfaenger_Ort As Object = Nothing
Property nctsWP_SumAEmpfaenger_PLZ As Object = Nothing
Property nctsWP_SumAEmpfaenger_Land As Object = Nothing
'Property nctsWP_KdRefNr As Object = Nothing
Property nctsWP_PACKSTUECKE As New List(Of cDakosy_NCTSOut_WarenpositionPackstuecke)
Property nctsWP_UNTERLAGEN As New List(Of cDakosy_NCTSOut_WarenpositionVorgelegteUnterlagen)
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Sub New()
' Me.nctsWP_NctsId = nctsWP_NctsId
End Sub
End Class
Public Class cDakosy_NCTSOut_WarenpositionPackstuecke
'Property nctsWpPk_Id As Integer
'Property nctsWpPk_nctsWPId As Integer
'Property nctsWpPk_NctsId As Integer
Property nctsWpPk_PackstueckeAnzahl As Object = Nothing
Property nctsWpPk_Verpackungsart As Object = Nothing
Property nctsWpPk_ZeichenNummern As Object = Nothing
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Sub New()
' Me.nctsWpPk_nctsWPId = nctsWpPk_nctsWPId
End Sub
End Class
Public Class cDakosy_NCTSOut_WarenpositionVorgelegteUnterlagen
'Property nctsWpUl_Id As Integer
'Property nctsWpUl_nctsWPId As Integer
'Property nctsWpUl_NctsId As Integer
Property nctsWpUl_Typ As Object = Nothing
Property nctsWpUl_Referenz As Object = Nothing
Property nctsWpUl_Zusatz As Object = Nothing
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Sub New()
' Me.nctsWpUl_nctsWPId = nctsWpUl_nctsWPId
End Sub
'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("nctsWpUl_Id", nctsWpUl_Id, , True, True))
' list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWpUl_nctsWPId", nctsWpUl_nctsWPId))
' list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWpUl_NctsId", nctsWpUl_NctsId))
' list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWpUl_Typ", nctsWpUl_Typ))
' list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWpUl_Referenz", nctsWpUl_Referenz))
' list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWpUl_Zusatz", nctsWpUl_Zusatz))
' Return list
'End Function
'Public Function INSERT() As Boolean
' Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
' nctsWpUl_Id = SQL.doSQLVarListID(nctsWpUl_Id, getInsertCmd(), "FMZOLL", , list)
' Return nctsWpUl_Id > 0
'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 tblDakosy_NCTSOut_WarenpositionVorgelegteUnterlagen (" & 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

4
VERAG_PROG_ALLGEMEIN/Schnittstellen/cDVO_Interface.vb
View File

@@ -70,7 +70,7 @@
Dim pathArchiv = "\\192.168.1.20\Daten\DVO - DATENORDNER MIT IMPORTDATEIEN\Archiv\"
If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then
path = "\\192.168.0.91\Datenarchiv\DATENARCHIV_TESTSYSTEM\"
path = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir
pathArchiv = ""
End If
@@ -135,7 +135,7 @@
MsgBox(ex.Message & ex.StackTrace)
End Try
'Update Filename TrdIn
SQL.doSQL("update [VERAG].[dbo].[tblTrdinInvoice] set TrdinDateiname='" & Now.ToString("ddMMyyyyHHmm") & "' WHERE [Firma_ID] = 20 AND TrdinDateiname is null ", "FMZOLL")
SQL.doSQL("update [tblTrdinInvoice] set TrdinDateiname='" & Now.ToString("ddMMyyyyHHmm") & "' WHERE [Firma_ID] = 20 AND TrdinDateiname is null ", "FMZOLL")
'SQL.doSQL("update [VERAG].[dbo].[tblTrdinInvoice] set TrdinDateiname='" & Dateiname & "' WHERE [Firma_ID] = 20 AND TrdinDateiname is null ", "FMZOLL") --> Auf 12 Zeichen beschränkt!
End If
End If

43
VERAG_PROG_ALLGEMEIN/Schnittstellen/cJsonPost.vb Normal file
View File

@@ -0,0 +1,43 @@

Imports Newtonsoft.Json
Imports System.Net
Imports System.Text
Public Class cJsonPost
' Dim jsonPost As New JsonPost("http://192.168.254.104:8000")
' Dim dictData As New Dictionary(Of String, Object)
'dictData.Add("test_key", "test_value")
'jsonPost.postData(dictData)
Private urlToPost As String = ""
Public Sub New(ByVal urlToPost As String)
Me.urlToPost = urlToPost
End Sub
Public Function postData(ByVal dictData As Dictionary(Of String, Object)) As Boolean
Dim webClient As New WebClient()
Dim resByte As Byte()
Dim resString As String
Dim reqString() As Byte
Try
webClient.Headers("content-type") = "application/json"
reqString = Encoding.Default.GetBytes(JsonConvert.SerializeObject(dictData, Formatting.Indented))
resByte = webClient.UploadData(Me.urlToPost, "post", reqString)
resString = Encoding.Default.GetString(resByte)
Console.WriteLine(resString)
webClient.Dispose()
Return True
Catch ex As Exception
Console.WriteLine(ex.Message)
End Try
Return False
End Function
End Class

2
VERAG_PROG_ALLGEMEIN/Schnittstellen/cTherefore.vb
View File

@@ -7,7 +7,7 @@ Public Class cTherefore
Return saveFileTo_ImportFolderCat(Path, FilialeAbfertigungsNr, AvisoId, "Atilla ab Juni 2011",, deleteFileAfterImport)
Case 1, 11 ', 15,20
' Return saveFileTo_ImportFolderCat(Path, FilialeAbfertigungsNr, AvisoId, "Import an Jänner 2019", "Import ab Jänner 2019", deleteFileAfterImport)
Return saveFileTo_ImportFolderCat(Path, FilialeAbfertigungsNr, AvisoId, "Import an Jänner 2020", "Import ab Jänner 2020", deleteFileAfterImport)
Return saveFileTo_ImportFolderCat(Path, FilialeAbfertigungsNr, AvisoId, "Import ab Jänner 2020", "Import ab Jänner 2020", deleteFileAfterImport)
Case Else
Return False
End Select

62
VERAG_PROG_ALLGEMEIN/VERAG_PROG_ALLGEMEIN.vbproj
View File

@@ -102,6 +102,7 @@
<HintPath>..\..\..\AVISO\Aviso\packages\Spire.PDFViewer.4.9.5\lib\net46\Spire.Pdf.dll</HintPath>
</Reference>
<Reference Include="System" />
<Reference Include="System.ComponentModel.DataAnnotations" />
<Reference Include="System.Data" />
<Reference Include="System.Deployment" />
<Reference Include="System.DirectoryServices" />
@@ -115,12 +116,6 @@
<Reference Include="System.Core" />
<Reference Include="System.Xml.Linq" />
<Reference Include="System.Data.DataSetExtensions" />
<Reference Include="Viscomsoft.PDFViewer">
<HintPath>C:\Program Files (x86)\Viscomsoft .NET PDF Viewer SDK\Examples\VB.NET2010\Viewer\lib\Viscomsoft.PDFViewer.dll</HintPath>
</Reference>
<Reference Include="ViscomsoftPDFCore">
<HintPath>C:\Program Files (x86)\Viscomsoft .NET PDF Viewer SDK\Examples\VB.NET2010\Viewer\lib\ViscomsoftPDFCore.dll</HintPath>
</Reference>
</ItemGroup>
<ItemGroup>
<Import Include="Microsoft.VisualBasic" />
@@ -138,6 +133,7 @@
<Compile Include="AVISO\cDatenbankAVISO.vb" />
<Compile Include="AVISO\cGlobal.vb" />
<Compile Include="AVISO\cMeineFunktionenAVISO.vb" />
<Compile Include="AVISO\cVermerkeCodes.vb" />
<Compile Include="AVISO\Form1.Designer.vb">
<DependentUpon>Form1.vb</DependentUpon>
</Compile>
@@ -290,7 +286,9 @@
<Compile Include="Classes\cAbfertigungsarten.vb" />
<Compile Include="Classes\cAbgaben.vb" />
<Compile Include="Classes\cAvisoAnhaenge.vb" />
<Compile Include="Classes\cAvisoBenachrichtigungen.vb" />
<Compile Include="Classes\cBonitaetsauskunft.vb" />
<Compile Include="Classes\cCryptography.vb" />
<Compile Include="Classes\cDEBundeslaenderPLZ.vb" />
<Compile Include="Classes\cDHF_Anhaenge.vb" />
<Compile Include="Classes\cEZB_Waehrungskurse.vb" />
@@ -300,9 +298,11 @@
<Compile Include="Classes\cGelangensbestaetigung.vb" />
<Compile Include="Classes\cGestellungsgarantien.vb" />
<Compile Include="Classes\cGestellungsmitteilung.vb" />
<Compile Include="Classes\cHandlingssaetzeIntern.vb" />
<Compile Include="Classes\cKundenAufschubkonten.vb" />
<Compile Include="Classes\cKundenDatenblatt.vb" />
<Compile Include="Classes\cKundenKontakte.vb" />
<Compile Include="Classes\cLanguageText.vb" />
<Compile Include="Classes\cMessangerListender.vb" />
<Compile Include="Classes\cMessenger.vb" />
<Compile Include="Classes\cNCTSGestellungsadressen.vb" />
@@ -316,6 +316,7 @@
<Compile Include="Classes\cSession.vb" />
<Compile Include="Classes\cSMS.vb" />
<Compile Include="Classes\cSpeditionsbuch.vb" />
<Compile Include="Classes\cTextkonserve.vb" />
<Compile Include="Classes\cTrdInvoice.vb" />
<Compile Include="Classes\cUIDAbfrage.vb" />
<Compile Include="Classes\cUIDPruefung.vb" />
@@ -381,6 +382,12 @@
<Compile Include="Messenger\frmMessenger.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Messenger\frmMessenger_Members.Designer.vb">
<DependentUpon>frmMessenger_Members.vb</DependentUpon>
</Compile>
<Compile Include="Messenger\frmMessenger_Members.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Messenger\frmMessenger_NeuerChat.Designer.vb">
<DependentUpon>frmMessenger_NeuerChat.vb</DependentUpon>
</Compile>
@@ -421,10 +428,17 @@
<SubType>UserControl</SubType>
</Compile>
<Compile Include="Schnittstellen\cDVO_Interface.vb" />
<Compile Include="Schnittstellen\cJsonPost.vb" />
<Compile Include="Schnittstellen\cSyska_Interface.vb" />
<Compile Include="Schnittstellen\cTherefore.vb" />
<Compile Include="Schnittstellen\VERAG\ATEZ\BeyannameBilgi.Designer.vb" />
<Compile Include="Schnittstellen\VERAG\IN_SHIPPMENT\cVERAG_in_shippment.vb" />
<Compile Include="Schnittstellen\VERAG\IN_EZA\cVERAG_in_eza.vb" />
<Compile Include="Schnittstellen\VERAG\OUT_EZA\VERAG_out_eza.Designer.vb" />
<Compile Include="Schnittstellen\VERAG\OUT_NCTS\cVERAG_out_ncts.vb" />
<Compile Include="Schnittstellen\VERAG\OUT_NCTS\VERAG_out_ncts.Designer.vb" />
<Compile Include="Schnittstellen\VERAG\OUT_NCTS\VERAG_out_ncts_V2_0_1.Designer.vb" />
<Compile Include="Schnittstellen\VERAG\OUT_NCTS\VERAG_out_ncts_V2_0_2.Designer.vb" />
<Compile Include="Web References\UIDPruefung\Reference.vb">
<AutoGen>True</AutoGen>
<DesignTime>True</DesignTime>
@@ -480,6 +494,9 @@
<EmbeddedResource Include="Messenger\frmMessenger.resx">
<DependentUpon>frmMessenger.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Messenger\frmMessenger_Members.resx">
<DependentUpon>frmMessenger_Members.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Messenger\frmMessenger_NeuerChat.resx">
<DependentUpon>frmMessenger_NeuerChat.vb</DependentUpon>
</EmbeddedResource>
@@ -500,6 +517,22 @@
</EmbeddedResource>
</ItemGroup>
<ItemGroup>
<None Include="Schnittstellen\VERAG\ATEZ\BeyannameBilgi.json" />
<None Include="Schnittstellen\VERAG\ATEZ\TR_EX\declarationJsonSchema.json" />
<None Include="Schnittstellen\VERAG\ATEZ\TR_EX\declarationJsonSchema.xsd">
<SubType>Designer</SubType>
</None>
<None Include="Schnittstellen\VERAG\OUT_EZA\VERAG_out_eza.json" />
<None Include="Schnittstellen\VERAG\OUT_EZA\VERAG_out_eza.xsd">
<SubType>Designer</SubType>
</None>
<None Include="Schnittstellen\VERAG\OUT_NCTS\VERAG_out_ncts_V2_0_1.json" />
<None Include="Schnittstellen\VERAG\OUT_NCTS\VERAG_out_ncts_V2_0_2.xsd">
<SubType>Designer</SubType>
</None>
<None Include="Web.config">
<SubType>Designer</SubType>
</None>
<None Include="en-US.dic" />
<None Include="My Project\Application.myapp">
<Generator>MyApplicationCodeGenerator</Generator>
@@ -508,9 +541,10 @@
<None Include="My Project\Settings.settings">
<Generator>PublicSettingsSingleFileGenerator</Generator>
<CustomToolNamespace>My</CustomToolNamespace>
<LastGenOutput>Settings.Designer.vb</LastGenOutput>
</None>
<None Include="App.config" />
<None Include="App.config">
<SubType>Designer</SubType>
</None>
<None Include="Schnittstellen\VERAG\OUT_NCTS\VERAG_out_ncts.xsd">
<SubType>Designer</SubType>
</None>
@@ -660,7 +694,19 @@
<ItemGroup>
<None Include="Resources\docAllgemein.png" />
</ItemGroup>
<ItemGroup>
<None Include="Resources\fremdSped.png" />
</ItemGroup>
<ItemGroup>
<None Include="Resources\people.png" />
</ItemGroup>
<ItemGroup>
<PackageReference Include="Newtonsoft.Json">
<Version>6.0.8</Version>
</PackageReference>
</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.
Other similar extension points exist, see Microsoft.Common.targets.
<Target Name="BeforeBuild">

52
VERAG_PROG_ALLGEMEIN/Web.config Normal file
View File

@@ -0,0 +1,52 @@
<?xml version="1.0" encoding="utf-8"?>
<configuration>
<configSections>
<sectionGroup name="userSettings" type="System.Configuration.UserSettingsGroup, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<section name="VERAG_PROG_ALLGEMEIN.My.MySettings" type="System.Configuration.ClientSettingsSection, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" allowExeDefinition="MachineToLocalUser" requirePermission="false"/>
</sectionGroup>
<sectionGroup name="applicationSettings" type="System.Configuration.ApplicationSettingsGroup, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<section name="VERAG_PROG_ALLGEMEIN.My.MySettings" type="System.Configuration.ClientSettingsSection, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" requirePermission="false"/>
</sectionGroup>
</configSections>
<connectionStrings>
<add name="VERAG_PROG_ALLGEMEIN.My.MySettings.FMZOLL_PRODConnectionString" connectionString="Data Source=192.168.0.91\SQLFMZOLL;Initial Catalog=VERAG;Integrated Security=false;User ID=test;Password=BmWr501956;"/>
<add name="VERAG_PROG_ALLGEMEIN.My.MySettings.ATLASConnectionString" connectionString="Data Source=192.168.0.95\SQLATLAS;Initial Catalog=atlas;Integrated Security=false;User ID=sa;Password=BmWr501956;"/>
<add name="VERAG_PROG_ALLGEMEIN.My.MySettings.ADMINConnectionString" connectionString="Data Source=SQLGUIDE01.verag.ost.dmn\SQLEXPRESS;Initial Catalog=ADMIN;Integrated Security=false;User ID=sa;Password=BmWr501956;"/>
<add name="VERAG_PROG_ALLGEMEIN.My.MySettings.SDL_PRODConnectionString" connectionString="Data Source=192.168.0.91\SQLFMZOLL;Initial Catalog=SDL;Integrated Security=false;User ID=sa;Password=BmWr501956;"/>
<add name="VERAG_PROG_ALLGEMEIN.My.MySettings.FMZOLLConnectionString" connectionString="Data Source=192.168.0.90\DEVSQL;Initial Catalog=VERAG;Integrated Security=false;User ID=sa;Password=BmWr501956;"/>
<add name="VERAG_PROG_ALLGEMEIN.My.MySettings.AVISOConnectionStringTEST" connectionString="Data Source=192.168.0.90\DEVSQL;Initial Catalog=AVISO_new;Integrated Security=false;User ID=sa;Password=BmWr501956;Pooling=true;Min Pool Size=5;Max Pool Size=200"/>
<add name="VERAG_PROG_ALLGEMEIN.My.MySettings.AVISOConnectionString" connectionString="Data Source=SQLGUIDE01.verag.ost.dmn\SQLEXPRESS;Initial Catalog=AVISO;Integrated Security=false;User ID=sa;Password=BmWr501956;Pooling=true;Min Pool Size=5;Max Pool Size=200"/>
<add name="VERAG_PROG_ALLGEMEIN.My.MySettings.SDLConnectionString" connectionString="Data Source=192.168.0.90\DEVSQL;Initial Catalog=SDL;Integrated Security=False;Persist Security Info=True;User ID=sa;Password=BmWr501956;TrustServerCertificate=False"/>
<add name="VERAG_PROG_ALLGEMEIN.My.MySettings.EZOLLConnectionString" connectionString="Data Source=SQLGUIDE01.verag.ost.dmn\SQLEXPRESS;Initial Catalog=ezoll;Integrated Security=false;User ID=sa;Password=BmWr501956;"/>
<add name="VERAG_PROG_ALLGEMEIN.My.MySettings.AVISO_ATILLAConnectionString" connectionString="Data Source=SQLGUIDE01.verag.ost.dmn\SQLEXPRESS;Initial Catalog=AVISO;Integrated Security=false;User ID=sa;Password=BmWr501956;Pooling=true;Min Pool Size=5;Max Pool Size=200"/>
<add name="VERAG_PROG_ALLGEMEIN.My.MySettings.ATLAS_SBGConnectionString" connectionString="Data Source=192.168.133.98;Initial Catalog=atlas;Integrated Security=false;User ID=sa;Password=BmWr501956;"/>
<add name="VERAG_PROG_ALLGEMEIN.My.MySettings.UIDConnectionString" connectionString="Data Source=192.168.0.90\DEVSQL;Initial Catalog=UID;Persist Security Info=True;User ID=sa;Password=BmWr501956"/>
<add name="VERAG_PROG_ALLGEMEIN.My.MySettings.UID_PRODConnectionString" connectionString="Data Source=SQLGUIDE01.verag.ost.dmn\SQLEXPRESS;Initial Catalog=UID;Integrated Security=false;User ID=sa;Password=BmWr501956;"/>
<add name="VERAG_PROG_ALLGEMEIN.My.MySettings.FDConnectionString" connectionString="Data Source=SQLGUIDE01.verag.ost.dmn\SQLEXPRESS;Initial Catalog=FD;Integrated Security=false;User ID=sa;Password=BmWr501956;"/>
<add name="VERAG_PROG_ALLGEMEIN.My.MySettings.FD_PRODConnectionString" connectionString="Data Source=192.168.0.90\DEVSQL;Initial Catalog=FD;Integrated Security=false;User ID=sa;Password=BmWr501956;"/>
<add name="VERAG_PROG_ALLGEMEIN.My.MySettings.DISPOConnectionStringTEST" connectionString="Data Source=192.168.0.90\DEVSQL;Initial Catalog=DISPO;Integrated Security=false;User ID=sa;Password=BmWr501956;Pooling=true;Min Pool Size=5;Max Pool Size=200" providerName=""/>
</connectionStrings>
<startup>
<supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.7"/>
</startup>
<userSettings>
<VERAG_PROG_ALLGEMEIN.My.MySettings>
<setting name="SCANCANON_PRODConnectionString" serializeAs="String">
<value>Data Source=192.168.0.99;Initial Catalog=Therefore;Integrated Security=false;User ID=sa;Password=BmWr501956;</value>
</setting>
<setting name="d" serializeAs="String">
<value/>
</setting>
<setting name="DISPOConnectionString" serializeAs="String">
<value>Data Source=SQLGUIDE01.verag.ost.dmn\SQLEXPRESS;Initial Catalog=DISPO;Integrated Security=false;User ID=sa;Password=BmWr501956;Pooling=true;Min Pool Size=5;Max Pool Size=200</value>
</setting>
</VERAG_PROG_ALLGEMEIN.My.MySettings>
</userSettings>
<applicationSettings>
<VERAG_PROG_ALLGEMEIN.My.MySettings>
<setting name="VERAG_PROG_ALLGEMEIN_UIDPruefung_checkVatService" serializeAs="String">
<value>http://ec.europa.eu/taxation_customs/vies/services/checkVatService</value>
</setting>
</VERAG_PROG_ALLGEMEIN.My.MySettings>
</applicationSettings>
</configuration>

88
VERAG_PROG_ALLGEMEIN/cAllgemein.vb
View File

@@ -11,6 +11,10 @@ Public Class cAllgemein
Public Shared ERR_OP_GLOBAL As String = ERROR_OP.SHOW
' Public Shared AVISO_SERVER As String = "[BUCHHALTUNG\SQLEXPRESS]"
'Public Shared AVISO_SERVER As String = "[SQL01.verag.ost.dmn\VERAG]"
'Public Shared AVISO_SERVER As String = "[SQLGUIDE.verag.ost.dmn\VERAG]"
Public Shared AVISO_SERVER As String = "[SQLGUIDE01.verag.ost.dmn\SQLEXPRESS]"
Public Shared BÜRO As String
@@ -42,7 +46,7 @@ Public Class cAllgemein
Shared SQL As New SQL
Public Shared MITARBEITER As cMitarbeiter
Public Const LeerDatum As Date = #12/30/1899# 'wird als leerer Datumswert verwendet, da sonst Probleme bei Null/Date
Public Shared Sub LOAD_DATA()
MITARBEITER = New cMitarbeiter
@@ -73,6 +77,8 @@ Public Class cAllgemein
CLUSTER = "FRONTOFFICE"
Case "AMBAR"
STAMMFILIALE = "5701"
Case "ATILLA"
STAMMFILIALE = "4801"
Case "FRONTOFFICE"
STAMMFILIALE = "5801"
CLUSTER = "FRONTOFFICE"
@@ -145,8 +151,26 @@ Public Class cAllgemein
Return (FIRMA = CLUSTER)
End Function
Public Shared Function getFirmaFromFiliale(FilialenNr As Integer, Optional defaultVERAG As Boolean = True) As String
Dim FirmaTMP = SQL.getValueTxtBySql("SELECT TOP 1 [Firma] FROM [Filialen] WHERE FilialenNr='" & FilialenNr & "' AND ( Firma='" & FIRMA & "' OR Cluster='" & CLUSTER & "')", "FMZOLL")
Public Shared Function getFirmaFromFiliale2(FilialenNr As Object, Optional defaultVERAG As Boolean = True) As String
Dim FirmaTMP = ""
If FilialenNr IsNot Nothing AndAlso IsNumeric(FilialenNr) Then
FirmaTMP = SQL.getValueTxtBySql("SELECT TOP 1 [Firma] FROM [Filialen] WHERE FilialenNr='" & FilialenNr & "' ", "FMZOLL")
End If
If defaultVERAG AndAlso FirmaTMP = "" Then FirmaTMP = "VERAG"
Return FirmaTMP
End Function
Public Shared Function getFirmaFromFiliale(FilialenNr As Object, Optional defaultVERAG As Boolean = True) As String
Dim FirmaTMP = ""
If FilialenNr IsNot Nothing AndAlso IsNumeric(FilialenNr) Then
FirmaTMP = SQL.getValueTxtBySql("SELECT TOP 1 [Firma] FROM [Filialen] WHERE FilialenNr='" & FilialenNr & "' AND ( Firma='" & FIRMA & "' OR Cluster='" & CLUSTER & "')", "FMZOLL")
End If
If defaultVERAG AndAlso FirmaTMP = "" Then FirmaTMP = "VERAG"
Return FirmaTMP
End Function
Public Shared Function getFirmaFromKdNr(KundenNr As Integer, Optional defaultVERAG As Boolean = True) As String
Dim FirmaTMP = SQL.getValueTxtBySql("SELECT TOP 1 [Firma] FROM [Filialen] inner join Kunden ON Kunden.FilialenNr=Filialen.FilialenNr WHERE KundenNr='" & KundenNr & "' ", "FMZOLL")
If defaultVERAG AndAlso FirmaTMP = "" Then FirmaTMP = "VERAG"
Return FirmaTMP
End Function
@@ -165,11 +189,25 @@ Public Class cAllgemein
Public Shared Sub buildConnectionDATENARCHIV()
Exit Sub
buildConnectionDATENARCHIV_NEW()
' buildConnectionDATENARCHIV_OLD()
End Sub
Public Shared Sub buildConnectionDATENARCHIV_OLD()
Try
Dim netuse As New System.Diagnostics.ProcessStartInfo()
netuse.FileName = "C:\Windows\system32\net"
netuse.Arguments = "use \\192.168.0.91\Datenarchiv /User:VERAGOST\AVISOSMB BmWr501956"
' netuse.Arguments = "use \\192.168.0.91\Datenarchiv /User:VERAGOST\AVISOSMB BmWr501956"
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "UNISPED" Then
netuse.Arguments = "use \\192.168.0.91\Datenarchiv /User:VERAGOST\AVISOSMB BmWr501956"
Else
netuse.Arguments = "use \\192.168.0.91\Datenarchiv /User:VERAGOST\AVISOSMB BmWr501956"
End If
netuse.CreateNoWindow = True
netuse.WindowStyle = ProcessWindowStyle.Hidden
System.Diagnostics.Process.Start(netuse)
@@ -178,5 +216,47 @@ Public Class cAllgemein
MsgBox("ERR: DATENARCHIV Netzwerkzugriff fehlgeschlagen...")
End Try
End Sub
Public Shared Sub buildConnectionDATENARCHIV_NEW()
Try
Dim netuse As New System.Diagnostics.ProcessStartInfo()
netuse.FileName = "C:\Windows\system32\net"
' netuse.Arguments = "use \\datenarchiv.verag.ost.dmn\Datenarchiv /User:VERAGOST\AVISOSMB BmWr501956"
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "UNISPED" Then
netuse.Arguments = "use " & VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir(False) & " /User:VERAGOST\AVISOSMB BmWr501956"
Else
netuse.Arguments = "use " & VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir(False) & " /User:VERAGOST\AVISOSMB BmWr501956"
End If
netuse.CreateNoWindow = True
netuse.WindowStyle = ProcessWindowStyle.Hidden
System.Diagnostics.Process.Start(netuse)
Catch ex As Exception
MsgBox("ERR: DATENARCHIV Netzwerkzugriff fehlgeschlagen...")
End Try
End Sub
Public Shared Function getSTAMMFILIALE() As String
If IsNumeric(VERAG_PROG_ALLGEMEIN.cAllgemein.STAMMFILIALE) Then
Return VERAG_PROG_ALLGEMEIN.cAllgemein.STAMMFILIALE
Else
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "VERAG"
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG
Case "SUB" : Return 4803
Case "SBG" : Return 5003
Case "WAI" : Return 5103
Case "NKD" : Return 5303
Case "NEU" : Return 4819
End Select
Case "IMEX" : Return 5501
Case "UNISPED" : Return 5601
Case "AMBAR" : Return 5701
Case "ATILLA" : Return 4801
Case "FRONTOFFICE" : Return 5801
End Select
End If
Return ""
End Function
End Class

2
VERAG_PROG_ALLGEMEIN/cErrorHandler.vb
View File

@@ -8,7 +8,7 @@ Public Class cErrorHandler
Case ERROR_OP.MAIL
sendERRORperMail(title, message, stack, mailadess, zusatz, functionName)
Case ERROR_OP.SHOW
' MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message)
'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
End Sub

3
VERAG_PROG_ALLGEMEIN/cProgramFunktions.vb
View File

@@ -205,6 +205,9 @@ Public Class cProgramFunctions
mySmtpsvr.Send(Msg)
Catch ex2 As Exception
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "UNISPED" Then ' ERST DEN SERVER EINRICHTEN!
Return False
End If
Try
mySmtpsvr.Host = "192.168.0.107"
mySmtpsvr.Port = 25

30
VERAG_PROG_ALLGEMEIN/frmScan.vb
View File

@@ -398,7 +398,7 @@ Public Class frmScan
Select Case ART
Case "DirectScan"
Dim PDF_bytes As Byte() = m_PDFCreator.SaveAsBytes(TryCast(Me, ISave))
Me.fileName = tbxSaveFileName.Text ' DS.LAST_ID
Me.fileName = addExtension(tbxSaveFileName.Text) ' DS.LAST_ID
Me.ReturnValue = PDF_bytes ' DS.LAST_ID
Me.DialogResult = Windows.Forms.DialogResult.OK
Case Else : saveToFile()
@@ -408,6 +408,34 @@ Public Class frmScan
pnl.Enabled = True
End Try
End Sub
Function addExtension(ByRef FileName As String) As String
Dim Extension As String = ""
If rdbtnJPG.Checked Then
Extension = ".jpg"
End If
If rdbtnBMP.Checked Then
Extension = ".bmp"
End If
If rdbtnPNG.Checked Then
Extension = ".png"
End If
If rdbtnTIFF.Checked Then
Extension = ".tiff"
End If
If rdbtnPDF.Checked Then
Extension = ".pdf"
End If
FileName = FileName.Trim
If Not FileName.EndsWith(Extension) Then
FileName = FileName & Extension
End If
Return FileName
End Function
Sub saveToFile()
Try