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

Mailsender, cWorker (für Gesamtsicherheiten).

Browse Source
This commit is contained in:
d.breimaier
2026-03-05 08:43:01 +01:00
parent aed3851cbd
commit 1eac4a3e50
7 changed files with 178 additions and 193 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
MailSender/MAILSender.vb
View File

@@ -57,7 +57,7 @@ Module Mail
' PARAM = "MDM_IT_Verguetung" ' PARAM = "MDM_IT_Verguetung"
'PARAM = "JAHRESABRECHNUNG AG-ZS" 'PARAM = "JAHRESABRECHNUNG AG-ZS"
'PARAM = "ZF" 'PARAM = "BRG_AUSWERTUNG_STANDARD"
'------------------------------------------------------------------------------------ '------------------------------------------------------------------------------------

9
UID/My Project/Resources.Designer.vb generated
View File

@@ -264,6 +264,15 @@ Namespace My.Resources
End Get End Get
End Property End Property
'''<summary>
''' Sucht eine lokalisierte Zeichenfolge, die Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=VERAG;Integrated Security=false;User ID=AppUser;Password=yp/THDd?xM+pZ$; ähnelt.
'''</summary>
Friend ReadOnly Property connStringFMZOLL_NEW() As String
Get
Return ResourceManager.GetString("connStringFMZOLL_NEW", resourceCulture)
End Get
End Property
'''<summary> '''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary> '''</summary>

3
UID/My Project/Resources.resx
View File

@@ -322,4 +322,7 @@
<data name="MDM_IT_Verguetung" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="MDM_IT_Verguetung" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\MDM_IT_Verguetung.xlsx;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value> <value>..\Resources\MDM_IT_Verguetung.xlsx;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data> </data>
<data name="connStringFMZOLL_NEW" xml:space="preserve">
<value>Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=VERAG;Integrated Security=false;User ID=AppUser;Password=yp/THDd?xM+pZ$;</value>
</data>
</root> </root>

7
UID/cSqlDb.vb
View File

@@ -14,8 +14,15 @@ Public Class cSqlDb
Return cn Return cn
End Function End Function
Public Shared Function GetNewOpenConnectionFMZOLL() As SqlConnection Public Shared Function GetNewOpenConnectionFMZOLL() As SqlConnection
Dim cn As New SqlConnection() Dim cn As New SqlConnection()
If VERAG_PROG_ALLGEMEIN.cAllgemein.SQLGUIDE01_USED Then
cn.ConnectionString = My.Resources.connStringFMZOLL_NEW
Else
cn.ConnectionString = My.Resources.connStringFMZOLL cn.ConnectionString = My.Resources.connStringFMZOLL
End If
cn.Open() cn.Open()
Return cn Return cn
End Function End Function

40
UID/usrctlProcedures.vb
View File

@@ -4043,22 +4043,22 @@ Public Class usrctlProcedures
Dim STDOF As New cStandardofferten(currentRow(0), currentRow(1), currentRow(2), currentRow(3)) Dim STDOF As New cStandardofferten(currentRow(0), currentRow(1), currentRow(2), currentRow(3))
If STDOF.hasEntry Then If STDOF.hasEntry Then
Dim save As Boolean = False 'Dim save As Boolean = False
If isleernothing(currentRow(12)) IsNot Nothing AndAlso isleernothing(currentRow(12)) <> "NULL" Then 'If isleernothing(currentRow(12)) IsNot Nothing AndAlso isleernothing(currentRow(12)) <> "NULL" Then
save = True ' save = True
STDOF.LeistungsBez_EN = isleernothing(currentRow(12)) ' STDOF.LeistungsBez_EN = isleernothing(currentRow(12))
End If 'End If
If isleernothing(currentRow(13)) IsNot Nothing AndAlso isleernothing(currentRow(13)) <> "NULL" Then 'If isleernothing(currentRow(13)) IsNot Nothing AndAlso isleernothing(currentRow(13)) <> "NULL" Then
save = True ' save = True
STDOF.LeistungsBez_RO = isleernothing(currentRow(13)) ' STDOF.LeistungsBez_RO = isleernothing(currentRow(13))
End If 'End If
If isleernothing(currentRow(14)) IsNot Nothing AndAlso isleernothing(currentRow(14)) <> "NULL" Then 'If isleernothing(currentRow(14)) IsNot Nothing AndAlso isleernothing(currentRow(14)) <> "NULL" Then
save = True ' save = True
STDOF.LeistungsBez_TR = isleernothing(currentRow(14)) ' STDOF.LeistungsBez_TR = isleernothing(currentRow(14))
End If 'End If
If save Then STDOF.SAVE() 'If save Then STDOF.SAVE()
ElseIf currentRow(2) = 117 Or currentRow(2) = 118 Or currentRow(2) = 119 Then ElseIf currentRow(2) = 117 Or currentRow(2) = 118 Or currentRow(2) = 119 Then
@@ -4068,6 +4068,18 @@ Public Class usrctlProcedures
End If End If
If (isleernothing(currentRow(1)) IsNot Nothing AndAlso isleernothing(currentRow(1)) <> "NULL") AndAlso (isleernothing(currentRow(2)) IsNot Nothing AndAlso isleernothing(currentRow(2)) <> "NULL") AndAlso (isleernothing(currentRow(3)) IsNot Nothing AndAlso isleernothing(currentRow(3)) <> "NULL") Then
Dim temp As cStandardofferten
'update ohne OffertenNr!
temp.updateBezeichnung_MULTILINGUAL(isleernothing(currentRow(1)), isleernothing(currentRow(2)), isleernothing(currentRow(3)), isleernothing(currentRow(12)), isleernothing(currentRow(13)), isleernothing(currentRow(14)))
End If
End If End If

254
initATLASAufschubkonten/cWorker_Verwahrung.vb
View File

@@ -91,8 +91,6 @@ Public Class cWorker_Verwahrung
STATUS.SAVE() STATUS.SAVE()
'NOCHT NICHT!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
If False Then
'LINKE SEITE BEI GESAMTSICHERHEITEN!!!!!!!!!!!!! 'LINKE SEITE BEI GESAMTSICHERHEITEN!!!!!!!!!!!!!
@@ -150,98 +148,64 @@ Public Class cWorker_Verwahrung
If SND IsNot Nothing AndAlso SND.tblSnd_Abfertigungsart_ID = 44 Then If SND IsNot Nothing AndAlso SND.tblSnd_Abfertigungsart_ID = 44 Then
Dim existingEntry As Integer = 0 Dim existingEntry As Integer = 0
existingEntry = CInt((New SQL).getValueTxtBySql("Select count(*) from [tblGesamtsicherheit] where [gs_ATBNr] = '" & RegistriernummerATLAS & "' order by gs_datum desc",,,, "0")) existingEntry = CInt((New SQL).getValueTxtBySql("Select gs_gsnr from [tblGesamtsicherheit] where [gs_ATBNr] = '" & Vorpapiernummer & "' order by gs_datum desc", "AVISO",,,, "0"))
If existingEntry <> 0 Then GoTo Anzeige If existingEntry = 0 Then
existingEntry = CInt((New SQL).getValueTxtBySql("Select count(*) from [tblGesamtsicherheit] where ([gs_filialenNr] = '" & SND.FilialenNr & "' and [gs_abfertigungsNr] = " & SND.AbfertigungsNr & " ) or gs_avisoId = '" & SND.tblSnd_AvisoID & "' order by gs_datum desc",,,, "0")) existingEntry = CInt((New SQL).getValueTxtBySql("Select gs_gsnr from [tblGesamtsicherheit] where ([gs_filialenNr] = '" & SND.FilialenNr & "' and [gs_abfertigungsNr] = " & SND.AbfertigungsNr & ") or (gs_avisoId = " & SND.tblSnd_AvisoID & ") order by gs_datum desc", "AVISO",,, "0"))
If existingEntry <> 0 Then GoTo Anzeige
''sonderfälle lt. Mestan
If SND.tblSnd_Zollsystem_Land = "DE" Then
Select Case SND.FilialenNr
Case 5501, 4803, 4809, 5103
Standort = "VERAG GmbH"
End Select
ElseIf SND.tblSnd_Zollsystem_Land = "AT" Then
If SND.tblSnd_Abfertigungsart_ID = 1 Then 'ZA
Standort = "VERAG CS"
ElseIf SND.tblSnd_Abfertigungsart_ID = 38 Then 'EV-Verz
Select Case SND.FilialenNr
Case 4803, 5303, 4809, 5103
Standort = "VERAG CS"
End Select
End If End If
End If If existingEntry > 0 Then
Dim urspringsSicherheit As New cSicherheiten(existingEntry)
Dim GesSichRef = New VERAG_PROG_ALLGEMEIN.cAufschubKonten(Standort) Dim GesSichRef = New VERAG_PROG_ALLGEMEIN.cGesamtsicherheitsReferenz(urspringsSicherheit.gs_standort)
Dim saldo = GesSichRef.CalcSaldo() Dim saldo = GesSichRef.CalcSaldo()
If SND.FilialenNr > 0 Then filiale = SND.FilialenNr If SND.FilialenNr > 0 Then filiale = SND.FilialenNr
If SND.AbfertigungsNr > 0 Then abfertigungsnummer = SND.AbfertigungsNr If SND.AbfertigungsNr > 0 Then abfertigungsnummer = SND.AbfertigungsNr
'Verwahrung ANSCHREIBUNG 'Verwahrung ANSCHREIBUNG
Dim ANSCHREIBUNG As New cSicherheiten()
Dim gsId As Integer
With ANSCHREIBUNG
.gs_ATBNr = RegistriernummerATLAS
.gs_posNr = 1
.gs_datum = gestellungsdatum
.gs_warenwert = IIf(SND.tblSnd_Warenwert IsNot Nothing AndAlso IsNumeric(SND.tblSnd_Warenwert), CDbl(SND.tblSnd_Warenwert), 0)
.gs_sicherheitsbetrag = IIf(SND.tblSnd_Warenwert IsNot Nothing AndAlso IsNumeric(SND.tblSnd_Warenwert), CDbl(SND.tblSnd_Warenwert) * (GesSichRef.brgakto_gs_zollsatz / 100), 0)
.gs_standort = Standort
.gs_art = "OPEN"
.gs_gsNr = AddNewGesamtSichNr()
.gs_erstellungsdatum = Now()
.gs_freitext = ""
.gs_saldo = saldo
.gs_atr = ""
.gs_filialenNr = filiale
.gs_abfertigungsnr = abfertigungsnummer
.gs_LKWKZ = SND.tblSnd_AvisoID
.gs_warenort = warenort
'.grenzstelle = AVISO.Grenzstelle.ToString.Replace("WO_", "")
.gs_systemuser = "DAKOSY-AUTO"
.gs_zollsatz = GesSichRef.brgakto_gs_zollsatz
.gs_avisoId = SND.tblSnd_AvisoID
End With Dim gsId As Integer
urspringsSicherheit.gs_systemuser = "DAKOSY-AUTO"
urspringsSicherheit.gs_posNr = CInt(posGestellung.Rows(0).Item("PosNr"))
urspringsSicherheit.gs_freitext = RegistriernummerATLAS
urspringsSicherheit.gs_MRNNr = RegistriernummerATLAS
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True
gsId = ANSCHREIBUNG.SAVEOBJECT() gsId = urspringsSicherheit.SAVEOBJECT()
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
If posGestellung.Rows.Count > 1 Then If posGestellung.Rows.Count > 1 Then
For i As Integer = 2 To posGestellung.Rows.Count For i As Integer = 2 To posGestellung.Rows.Count - 1
Dim ANSCHREIBUNG_POS As New cSicherheiten() Dim ANSCHREIBUNG_POS As New cSicherheiten()
With ANSCHREIBUNG_POS With ANSCHREIBUNG_POS
.gs_gsNr = gsId .gs_gsNr = gsId
.gs_ATBNr = RegistriernummerATLAS .gs_ATBNr = urspringsSicherheit.gs_ATBNr
.gs_freitext = RegistriernummerATLAS
.gs_posNr = i .gs_posNr = i
.gs_datum = gestellungsdatum .gs_datum = gestellungsdatum
.gs_gsNr = ANSCHREIBUNG.gs_gsNr .gs_gsNr = urspringsSicherheit.gs_gsNr
.gs_warenwert = 0 .gs_warenwert = 0
.gs_sicherheitsbetrag = 0 .gs_sicherheitsbetrag = 0
.gs_standort = Standort .gs_standort = Standort
.gs_art = "OPEN" .gs_art = "OPEN"
.gs_erstellungsdatum = DateTime.Now .gs_erstellungsdatum = DateTime.Now
.gs_freitext = "" .gs_MRNNr = RegistriernummerATLAS
.gs_saldo = saldo .gs_saldo = saldo
.gs_atr = "" .gs_atr = ""
.gs_systemuser = ANSCHREIBUNG.gs_systemuser .gs_systemuser = urspringsSicherheit.gs_systemuser
.gs_zollsatz = GesSichRef.brgakto_gs_zollsatz .gs_zollsatz = GesSichRef.gsr_zollsatz
.gs_avisoId = SND.tblSnd_AvisoID .gs_avisoId = SND.tblSnd_AvisoID
.gs_warenort = ANSCHREIBUNG.gs_warenort .gs_warenort = urspringsSicherheit.gs_warenort
End With End With
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True
ANSCHREIBUNG.SAVE() ANSCHREIBUNG_POS.SAVE()
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
Next Next
@@ -251,6 +215,9 @@ Public Class cWorker_Verwahrung
End If End If
End If End If
End If
Catch ex As Exception Catch ex As Exception
@@ -267,7 +234,6 @@ Anzeige:
End If End If
End If
Catch ex As Exception Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name) VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name)
@@ -399,29 +365,95 @@ Anzeige:
'---------------------------------------------------------------- '----------------------------------------------------------------
'Verwahrung ABSCHREIBUNG - RECHTE Seite bei Gesamtsicherheiten 'Verwahrung ABSCHREIBUNG - rechte Seite bei Gesamtsicherheiten
If saveAbschreibung Then If saveAbschreibung Then
If posErledigung IsNot Nothing AndAlso posErledigung.Rows.Count > 0 Then If posErledigung IsNot Nothing AndAlso posErledigung.Rows.Count > 0 Then
If regNR <> "" Then
Dim dtGesamtsicherheit = SQL.loadDgvBySql("Select * From [tblGesamtsicherheit] where [gs_MRNNr] = '" & regNR & "' or [gs_ATBNr]= '" & regNR & "'", "AVISO")
If dtGesamtsicherheit.Rows.Count > 0 Then
For Each POS As DataRow In posErledigung.Rows For Each POS As DataRow In posErledigung.Rows
Dim ATBNR As String = "" Dim MRNNR As String = ""
Dim existingEntryID As Integer = 0 Dim existingEntryID As Integer = 0
Dim dtGesamtsicherheit As New DataTable
If Not IsDBNull(POS.Item("IDRegNrSumA")) AndAlso POS.Item("IDRegNrSumA") IsNot Nothing AndAlso POS.Item("IDRegNrSumA") <> "" Then If Not IsDBNull(POS.Item("IDRegNrSumA")) AndAlso POS.Item("IDRegNrSumA") IsNot Nothing AndAlso POS.Item("IDRegNrSumA") <> "" Then
Dim POSNr = POS.Item("IDRegNrSumAPos") Dim POSNr As Integer = CInt(POS.Item("IDRegNrSumAPos"))
If ATBNR <> POS.Item("IDRegNrSumA") Then If MRNNR <> POS.Item("IDRegNrSumA") Then
ATBNR = POS.Item("IDRegNrSumA") MRNNR = POS.Item("IDRegNrSumA")
dtGesamtsicherheit = SQL.loadDgvBySql("Select * From [tblGesamtsicherheit] where [gs_ATBNr] = '" & ATBNR & "'", "AVISO") Dim firmaID = -1
'Select Case dtGesamtsicherheit.Rows(0).Item("gs_standort")
' Case "VERAG GmbH"
' firmaID = 23
' Case "Verag AG"
' firmaId = 1
' Case "Unisped GmbH"
' firmaId = 21
' Case "AMBAR GmbH"
' firmaId = 24
' Case "Verag CS"
' firmaId = 11
' Case "IMEX"
' firmaId = 20
'End Select
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True
Dim GesSichRef = New VERAG_PROG_ALLGEMEIN.cGesamtsicherheitsReferenz(dtGesamtsicherheit.Rows(0).Item("gs_standort"))
Dim saldo As Double = GesSichRef.CalcSaldo()
Try
'innerhalb der gs_gsnr muss mithilfe der gs_gsid die richtige PosNr ermittelt werden!
Dim Warenwert As Double = 0
Dim dtSendungen = SQL.loadDgvBySql("SELECT")
Dim SicherheitsPos As New cGesamtsicherheitsPositionen()
With SicherheitsPos
.gsp_gsId = dtGesamtsicherheit.Rows(0).Item("gs_gsId")
'.gsp_gspPosId = CInt(POSNr)
.gsp_gspPosId = dtGesamtsicherheit.Rows(0).Item("gs_posNr")
.gsp_warenwert = 0
.gsp_sicherheitsbetrag = 0
.gsp_freitext = "DASKOY-IMPORT"
.gsp_filialenNr = dtGesamtsicherheit.Rows(0).Item("gs_filialenNr")
.gsp_art = "CLOSE"
.gsp_gsNr = dtGesamtsicherheit.Rows(0).Item("gs_gsnr")
.gsp_abfertigungsNr = dtGesamtsicherheit.Rows(0).Item("gs_abfertigungsnr")
.gsp_datum = DateTime.Now
.gsp_erstellungsdatum = DateTime.Now
.gsp_ust = dtGesamtsicherheit.Rows(0).Item("gs_ust")
.gsp_ATCNr = POS.Item("IDRegNrSumA")
.gsp_avisoId = dtGesamtsicherheit.Rows(0).Item("gs_avisoID")
.gsp_systemuser = "DAKOSY-AUTO"
End With
SicherheitsPos.SAVE()
GesSichRef.CalcSaldo()
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name)
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
End Try
End If
@@ -429,93 +461,15 @@ Anzeige:
End If End If
End If
Next Next
End If
End If
' If existingEntryID > 0 Then GoTo Anzeige
' existingEntryID = CInt((New SQL).getValueTxtBySql("Select count(*) From [tblGesamtsicherheitsPositionen] inner join [tblGesamtsicherheit] on gs_gsId = gsp_gsId where ([gs_filialenNr] = '" & SND.FilialenNr & "' and [gs_abfertigungsNr] = " & SND.AbfertigungsNr & " ) or gs_avisoId = '" & SND.tblSnd_AvisoID & "' order by gs_datum desc"))
' If existingEntryID > 0 Then GoTo Anzeige
' Dim gsNr As Integer = 0
' gsNr = CInt((New SQL).getValueTxtBySql("Select gsNr From [tblGesamtsicherheit] where [gs_ATBNr] = '" & RegistriernummerATLAS & "' order by gs_datum desc"))
' If gsNr > 0 Then GoTo Insert
' gsNr = CInt((New SQL).getValueTxtBySql("Select gsNr From [tblGesamtsicherheit] where ([gs_filialenNr] = '" & SND.FilialenNr & "' and [gs_abfertigungsNr] = " & SND.AbfertigungsNr & " ) or gs_avisoId = '" & SND.tblSnd_AvisoID & "' order by gs_datum desc"))
' If gsNr > 0 Then
' GoTo Insert
' Else
' GoTo Anzeige
' End If
' ''sonderfälle lt. Mestan
' If SND.tblSnd_Zollsystem_Land = "DE" Then
' Select Case SND.FilialenNr
' Case 5501, 4803, 4809, 5103
' Standort = "VERAG GmbH"
' End Select
' ElseIf SND.tblSnd_Zollsystem_Land = "AT" Then
' If SND.tblSnd_Abfertigungsart_ID = 1 Then 'ZA
' Standort = "VERAG CS"
' ElseIf SND.tblSnd_Abfertigungsart_ID = 38 Then 'EV-Verz
' Select Case SND.FilialenNr
' Case 4803, 5303, 4809, 5103
' Standort = "VERAG CS"
' End Select
' End If
' End If
'Insert:
' Dim GesSichRef = New VERAG_PROG_ALLGEMEIN.cAufschubKonten(Standort)
' Dim saldo = GesSichRef.CalcSaldo()
' Try
' Dim SicherheitsPos As New cGesamtsicherheitsPositionen()
' With SicherheitsPos
' '.gsp_gsId = gs_gsId
' ''.gsp_gspPosId = Me.getLatestPosNr(currentSicherheit.gs_gsNr, ) + 1
' '.gsp_gspPosId = OPEN.gs_posNr
' '.gsp_warenwert = Double.Parse(txtPosWarenwert.Text)
' '.gsp_sicherheitsbetrag = Double.Parse(txtPosSicherheitsbetrag.Text)
' '.gsp_freitext = txtPosFreitext.Text
' '.gsp_filialenNr = currentSicherheit.gs_filialenNr
' '.gsp_art = "CLOSE"
' .gsp_gsNr = gsNr
' '.gsp_abfertigungsNr = currentSicherheit.gs_abfertigungsnr
' .gsp_datum = 'DateTimeString2DateTimeKonvertinator(txtPosDat.Text, txtPosTime.Text)
' .gsp_erstellungsdatum = DateTime.Now
' .gsp_ust = 'currentSicherheit.gs_ust
' .gsp_ATCNr = 'txtPositionenCRN.Text
' .gsp_avisoId = 'Me.avisoID'
' .gsp_systemuser = "DAKOSY-AUTO"
' End With
' 'VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True
' SicherheitsPos.SAVE()
' 'VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
' Catch ex As Exception
' End Try
' End If
' End If
End If End If

26
initATLASAufschubkonten/frmNachrichtenVerarbeitung_MDM_divers.Designer.vb generated
View File

@@ -54,7 +54,7 @@ Partial Class frmNachrichtenVerarbeitung_MDM_divers
Me.btn.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.btn.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.btn.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btn.ForeColor = System.Drawing.Color.White Me.btn.ForeColor = System.Drawing.Color.White
Me.btn.Location = New System.Drawing.Point(379, -1) Me.btn.Location = New System.Drawing.Point(464, -1)
Me.btn.Margin = New System.Windows.Forms.Padding(0) Me.btn.Margin = New System.Windows.Forms.Padding(0)
Me.btn.Name = "btn" Me.btn.Name = "btn"
Me.btn.Size = New System.Drawing.Size(75, 22) Me.btn.Size = New System.Drawing.Size(75, 22)
@@ -84,7 +84,7 @@ Partial Class frmNachrichtenVerarbeitung_MDM_divers
Me.pnl.Dock = System.Windows.Forms.DockStyle.Fill Me.pnl.Dock = System.Windows.Forms.DockStyle.Fill
Me.pnl.Location = New System.Drawing.Point(0, 0) Me.pnl.Location = New System.Drawing.Point(0, 0)
Me.pnl.Name = "pnl" Me.pnl.Name = "pnl"
Me.pnl.Size = New System.Drawing.Size(456, 319) Me.pnl.Size = New System.Drawing.Size(541, 319)
Me.pnl.TabIndex = 1 Me.pnl.TabIndex = 1
' '
'lblFTP 'lblFTP
@@ -102,7 +102,7 @@ Partial Class frmNachrichtenVerarbeitung_MDM_divers
Me.lblTestsystem.AutoSize = True Me.lblTestsystem.AutoSize = True
Me.lblTestsystem.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.lblTestsystem.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblTestsystem.ForeColor = System.Drawing.Color.Red Me.lblTestsystem.ForeColor = System.Drawing.Color.Red
Me.lblTestsystem.Location = New System.Drawing.Point(274, 8) Me.lblTestsystem.Location = New System.Drawing.Point(323, 4)
Me.lblTestsystem.Name = "lblTestsystem" Me.lblTestsystem.Name = "lblTestsystem"
Me.lblTestsystem.Size = New System.Drawing.Size(89, 13) Me.lblTestsystem.Size = New System.Drawing.Size(89, 13)
Me.lblTestsystem.TabIndex = 20 Me.lblTestsystem.TabIndex = 20
@@ -113,7 +113,7 @@ Partial Class frmNachrichtenVerarbeitung_MDM_divers
' '
Me.lblDatenCnt.AutoSize = True Me.lblDatenCnt.AutoSize = True
Me.lblDatenCnt.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.lblDatenCnt.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblDatenCnt.Location = New System.Drawing.Point(309, 132) Me.lblDatenCnt.Location = New System.Drawing.Point(387, 132)
Me.lblDatenCnt.Name = "lblDatenCnt" Me.lblDatenCnt.Name = "lblDatenCnt"
Me.lblDatenCnt.Size = New System.Drawing.Size(13, 13) Me.lblDatenCnt.Size = New System.Drawing.Size(13, 13)
Me.lblDatenCnt.TabIndex = 19 Me.lblDatenCnt.TabIndex = 19
@@ -134,7 +134,7 @@ Partial Class frmNachrichtenVerarbeitung_MDM_divers
Me.dgvEinarbeitung.Location = New System.Drawing.Point(12, 164) Me.dgvEinarbeitung.Location = New System.Drawing.Point(12, 164)
Me.dgvEinarbeitung.Name = "dgvEinarbeitung" Me.dgvEinarbeitung.Name = "dgvEinarbeitung"
Me.dgvEinarbeitung.RowHeadersVisible = False Me.dgvEinarbeitung.RowHeadersVisible = False
Me.dgvEinarbeitung.Size = New System.Drawing.Size(291, 145) Me.dgvEinarbeitung.Size = New System.Drawing.Size(351, 145)
Me.dgvEinarbeitung.TabIndex = 18 Me.dgvEinarbeitung.TabIndex = 18
' '
'clmnArt 'clmnArt
@@ -153,7 +153,7 @@ Partial Class frmNachrichtenVerarbeitung_MDM_divers
' '
Me.Label9.AutoSize = True Me.Label9.AutoSize = True
Me.Label9.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label9.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label9.Location = New System.Drawing.Point(306, 103) Me.Label9.Location = New System.Drawing.Point(384, 103)
Me.Label9.Name = "Label9" Me.Label9.Name = "Label9"
Me.Label9.Size = New System.Drawing.Size(44, 13) Me.Label9.Size = New System.Drawing.Size(44, 13)
Me.Label9.TabIndex = 17 Me.Label9.TabIndex = 17
@@ -163,7 +163,7 @@ Partial Class frmNachrichtenVerarbeitung_MDM_divers
'btnEinlesen 'btnEinlesen
' '
Me.btnEinlesen.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.btnEinlesen.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnEinlesen.Location = New System.Drawing.Point(309, 50) Me.btnEinlesen.Location = New System.Drawing.Point(387, 50)
Me.btnEinlesen.Name = "btnEinlesen" Me.btnEinlesen.Name = "btnEinlesen"
Me.btnEinlesen.Size = New System.Drawing.Size(141, 50) Me.btnEinlesen.Size = New System.Drawing.Size(141, 50)
Me.btnEinlesen.TabIndex = 16 Me.btnEinlesen.TabIndex = 16
@@ -185,13 +185,13 @@ Partial Class frmNachrichtenVerarbeitung_MDM_divers
Me.ListBox3.FormattingEnabled = True Me.ListBox3.FormattingEnabled = True
Me.ListBox3.Location = New System.Drawing.Point(11, 50) Me.ListBox3.Location = New System.Drawing.Point(11, 50)
Me.ListBox3.Name = "ListBox3" Me.ListBox3.Name = "ListBox3"
Me.ListBox3.Size = New System.Drawing.Size(292, 95) Me.ListBox3.Size = New System.Drawing.Size(352, 95)
Me.ListBox3.TabIndex = 12 Me.ListBox3.TabIndex = 12
' '
'Label6 'Label6
' '
Me.Label6.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label6.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label6.Location = New System.Drawing.Point(306, 240) Me.Label6.Location = New System.Drawing.Point(384, 240)
Me.Label6.Name = "Label6" Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(144, 37) Me.Label6.Size = New System.Drawing.Size(144, 37)
Me.Label6.TabIndex = 11 Me.Label6.TabIndex = 11
@@ -202,7 +202,7 @@ Partial Class frmNachrichtenVerarbeitung_MDM_divers
' '
Me.Label5.AutoSize = True Me.Label5.AutoSize = True
Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label5.Location = New System.Drawing.Point(306, 217) Me.Label5.Location = New System.Drawing.Point(384, 217)
Me.Label5.Name = "Label5" Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(44, 13) Me.Label5.Size = New System.Drawing.Size(44, 13)
Me.Label5.TabIndex = 10 Me.Label5.TabIndex = 10
@@ -212,7 +212,7 @@ Partial Class frmNachrichtenVerarbeitung_MDM_divers
'btnEinarbeiten 'btnEinarbeiten
' '
Me.btnEinarbeiten.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.btnEinarbeiten.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnEinarbeiten.Location = New System.Drawing.Point(309, 164) Me.btnEinarbeiten.Location = New System.Drawing.Point(387, 164)
Me.btnEinarbeiten.Name = "btnEinarbeiten" Me.btnEinarbeiten.Name = "btnEinarbeiten"
Me.btnEinarbeiten.Size = New System.Drawing.Size(141, 50) Me.btnEinarbeiten.Size = New System.Drawing.Size(141, 50)
Me.btnEinarbeiten.TabIndex = 9 Me.btnEinarbeiten.TabIndex = 9
@@ -222,7 +222,7 @@ Partial Class frmNachrichtenVerarbeitung_MDM_divers
'btnOK 'btnOK
' '
Me.btnOK.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.btnOK.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnOK.Location = New System.Drawing.Point(309, 280) Me.btnOK.Location = New System.Drawing.Point(387, 280)
Me.btnOK.Name = "btnOK" Me.btnOK.Name = "btnOK"
Me.btnOK.Size = New System.Drawing.Size(141, 29) Me.btnOK.Size = New System.Drawing.Size(141, 29)
Me.btnOK.TabIndex = 9 Me.btnOK.TabIndex = 9
@@ -254,7 +254,7 @@ Partial Class frmNachrichtenVerarbeitung_MDM_divers
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(456, 319) Me.ClientSize = New System.Drawing.Size(541, 319)
Me.Controls.Add(Me.pnl) Me.Controls.Add(Me.pnl)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)