diff --git a/MailSender/MAILSender.vb b/MailSender/MAILSender.vb
index 9650278..f7b7242 100644
--- a/MailSender/MAILSender.vb
+++ b/MailSender/MAILSender.vb
@@ -57,7 +57,7 @@ Module Mail
' PARAM = "MDM_IT_Verguetung"
'PARAM = "JAHRESABRECHNUNG AG-ZS"
- 'PARAM = "ZF"
+ 'PARAM = "BRG_AUSWERTUNG_STANDARD"
'------------------------------------------------------------------------------------
diff --git a/UID/My Project/Resources.Designer.vb b/UID/My Project/Resources.Designer.vb
index 023baeb..b9d3a42 100644
--- a/UID/My Project/Resources.Designer.vb
+++ b/UID/My Project/Resources.Designer.vb
@@ -264,6 +264,15 @@ Namespace My.Resources
End Get
End Property
+ '''
+ ''' 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.
+ '''
+ Friend ReadOnly Property connStringFMZOLL_NEW() As String
+ Get
+ Return ResourceManager.GetString("connStringFMZOLL_NEW", resourceCulture)
+ End Get
+ End Property
+
'''
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''
diff --git a/UID/My Project/Resources.resx b/UID/My Project/Resources.resx
index 093ca70..e637cd8 100644
--- a/UID/My Project/Resources.resx
+++ b/UID/My Project/Resources.resx
@@ -322,4 +322,7 @@
..\Resources\MDM_IT_Verguetung.xlsx;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089
+
+ Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=VERAG;Integrated Security=false;User ID=AppUser;Password=yp/THDd?xM+pZ$;
+
\ No newline at end of file
diff --git a/UID/cSqlDb.vb b/UID/cSqlDb.vb
index 5268faa..7f007f8 100644
--- a/UID/cSqlDb.vb
+++ b/UID/cSqlDb.vb
@@ -14,8 +14,15 @@ Public Class cSqlDb
Return cn
End Function
Public Shared Function GetNewOpenConnectionFMZOLL() As SqlConnection
+
Dim cn As New SqlConnection()
- cn.ConnectionString = My.Resources.connStringFMZOLL
+
+ If VERAG_PROG_ALLGEMEIN.cAllgemein.SQLGUIDE01_USED Then
+ cn.ConnectionString = My.Resources.connStringFMZOLL_NEW
+ Else
+ cn.ConnectionString = My.Resources.connStringFMZOLL
+ End If
+
cn.Open()
Return cn
End Function
diff --git a/UID/usrctlProcedures.vb b/UID/usrctlProcedures.vb
index 2167b06..844d832 100644
--- a/UID/usrctlProcedures.vb
+++ b/UID/usrctlProcedures.vb
@@ -4043,22 +4043,22 @@ Public Class usrctlProcedures
Dim STDOF As New cStandardofferten(currentRow(0), currentRow(1), currentRow(2), currentRow(3))
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
- save = True
- STDOF.LeistungsBez_EN = isleernothing(currentRow(12))
- End If
- If isleernothing(currentRow(13)) IsNot Nothing AndAlso isleernothing(currentRow(13)) <> "NULL" Then
- save = True
- STDOF.LeistungsBez_RO = isleernothing(currentRow(13))
- End If
- If isleernothing(currentRow(14)) IsNot Nothing AndAlso isleernothing(currentRow(14)) <> "NULL" Then
- save = True
- STDOF.LeistungsBez_TR = isleernothing(currentRow(14))
- End If
+ 'If isleernothing(currentRow(12)) IsNot Nothing AndAlso isleernothing(currentRow(12)) <> "NULL" Then
+ ' save = True
+ ' STDOF.LeistungsBez_EN = isleernothing(currentRow(12))
+ 'End If
+ 'If isleernothing(currentRow(13)) IsNot Nothing AndAlso isleernothing(currentRow(13)) <> "NULL" Then
+ ' save = True
+ ' STDOF.LeistungsBez_RO = isleernothing(currentRow(13))
+ 'End If
+ 'If isleernothing(currentRow(14)) IsNot Nothing AndAlso isleernothing(currentRow(14)) <> "NULL" Then
+ ' save = True
+ ' STDOF.LeistungsBez_TR = isleernothing(currentRow(14))
+ '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
@@ -4068,6 +4068,18 @@ Public Class usrctlProcedures
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
diff --git a/initATLASAufschubkonten/cWorker_Verwahrung.vb b/initATLASAufschubkonten/cWorker_Verwahrung.vb
index 7a3fe0b..5312b1a 100644
--- a/initATLASAufschubkonten/cWorker_Verwahrung.vb
+++ b/initATLASAufschubkonten/cWorker_Verwahrung.vb
@@ -91,12 +91,10 @@ Public Class cWorker_Verwahrung
STATUS.SAVE()
- 'NOCHT NICHT!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
- If False Then
- 'LINKE SEITE BEI GESAMTSICHERHEITEN!!!!!!!!!!!!!
+ 'LINKE SEITE BEI GESAMTSICHERHEITEN!!!!!!!!!!!!!
- If saveVerwahrung Then
+ If saveVerwahrung Then
'----------------------------------------------------------------
@@ -150,98 +148,64 @@ Public Class cWorker_Verwahrung
If SND IsNot Nothing AndAlso SND.tblSnd_Abfertigungsart_ID = 44 Then
Dim existingEntry As Integer = 0
- existingEntry = CInt((New SQL).getValueTxtBySql("Select count(*) from [tblGesamtsicherheit] where [gs_ATBNr] = '" & RegistriernummerATLAS & "' order by gs_datum desc",,,, "0"))
- If existingEntry <> 0 Then GoTo Anzeige
- 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"))
- If existingEntry <> 0 Then GoTo Anzeige
+ 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
+ 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"))
+ End If
- ''sonderfälle lt. Mestan
- If SND.tblSnd_Zollsystem_Land = "DE" Then
+ If existingEntry > 0 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
+ 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()
If SND.FilialenNr > 0 Then filiale = SND.FilialenNr
If SND.AbfertigungsNr > 0 Then abfertigungsnummer = SND.AbfertigungsNr
'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
- gsId = ANSCHREIBUNG.SAVEOBJECT()
+ gsId = urspringsSicherheit.SAVEOBJECT()
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
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()
With ANSCHREIBUNG_POS
.gs_gsNr = gsId
- .gs_ATBNr = RegistriernummerATLAS
+ .gs_ATBNr = urspringsSicherheit.gs_ATBNr
+ .gs_freitext = RegistriernummerATLAS
.gs_posNr = i
.gs_datum = gestellungsdatum
- .gs_gsNr = ANSCHREIBUNG.gs_gsNr
+ .gs_gsNr = urspringsSicherheit.gs_gsNr
.gs_warenwert = 0
.gs_sicherheitsbetrag = 0
.gs_standort = Standort
.gs_art = "OPEN"
.gs_erstellungsdatum = DateTime.Now
- .gs_freitext = ""
+ .gs_MRNNr = RegistriernummerATLAS
.gs_saldo = saldo
.gs_atr = ""
- .gs_systemuser = ANSCHREIBUNG.gs_systemuser
- .gs_zollsatz = GesSichRef.brgakto_gs_zollsatz
+ .gs_systemuser = urspringsSicherheit.gs_systemuser
+ .gs_zollsatz = GesSichRef.gsr_zollsatz
.gs_avisoId = SND.tblSnd_AvisoID
- .gs_warenort = ANSCHREIBUNG.gs_warenort
+ .gs_warenort = urspringsSicherheit.gs_warenort
End With
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True
- ANSCHREIBUNG.SAVE()
+ ANSCHREIBUNG_POS.SAVE()
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
Next
@@ -249,10 +213,13 @@ Public Class cWorker_Verwahrung
End If
End If
+ End If
+
End If
+
Catch ex As Exception
@@ -267,7 +234,6 @@ Anzeige:
End If
- End If
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name)
@@ -399,123 +365,111 @@ Anzeige:
'----------------------------------------------------------------
- 'Verwahrung ABSCHREIBUNG - RECHTE Seite bei Gesamtsicherheiten
+ 'Verwahrung ABSCHREIBUNG - rechte Seite bei Gesamtsicherheiten
If saveAbschreibung Then
If posErledigung IsNot Nothing AndAlso posErledigung.Rows.Count > 0 Then
+ If regNR <> "" Then
- For Each POS As DataRow In posErledigung.Rows
+ Dim dtGesamtsicherheit = SQL.loadDgvBySql("Select * From [tblGesamtsicherheit] where [gs_MRNNr] = '" & regNR & "' or [gs_ATBNr]= '" & regNR & "'", "AVISO")
- Dim ATBNR As String = ""
- Dim existingEntryID As Integer = 0
- Dim dtGesamtsicherheit As New DataTable
+ If dtGesamtsicherheit.Rows.Count > 0 Then
- If Not IsDBNull(POS.Item("IDRegNrSumA")) AndAlso POS.Item("IDRegNrSumA") IsNot Nothing AndAlso POS.Item("IDRegNrSumA") <> "" Then
+ For Each POS As DataRow In posErledigung.Rows
- Dim POSNr = POS.Item("IDRegNrSumAPos")
-
- If ATBNR <> POS.Item("IDRegNrSumA") Then
- ATBNR = POS.Item("IDRegNrSumA")
-
- dtGesamtsicherheit = SQL.loadDgvBySql("Select * From [tblGesamtsicherheit] where [gs_ATBNr] = '" & ATBNR & "'", "AVISO")
-
- End If
+ Dim MRNNR As String = ""
+ Dim existingEntryID As Integer = 0
+ If Not IsDBNull(POS.Item("IDRegNrSumA")) AndAlso POS.Item("IDRegNrSumA") IsNot Nothing AndAlso POS.Item("IDRegNrSumA") <> "" Then
+
+ Dim POSNr As Integer = CInt(POS.Item("IDRegNrSumAPos"))
+
+ If MRNNR <> POS.Item("IDRegNrSumA") Then
+ MRNNR = POS.Item("IDRegNrSumA")
+
+ 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
+
+
+ End If
+
+ Next
End If
-
-
- Next
-
-
-
-
-
- ' 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
diff --git a/initATLASAufschubkonten/frmNachrichtenVerarbeitung_MDM_divers.Designer.vb b/initATLASAufschubkonten/frmNachrichtenVerarbeitung_MDM_divers.Designer.vb
index e3b3017..253ce2f 100644
--- a/initATLASAufschubkonten/frmNachrichtenVerarbeitung_MDM_divers.Designer.vb
+++ b/initATLASAufschubkonten/frmNachrichtenVerarbeitung_MDM_divers.Designer.vb
@@ -54,7 +54,7 @@ Partial Class frmNachrichtenVerarbeitung_MDM_divers
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.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.Name = "btn"
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.Location = New System.Drawing.Point(0, 0)
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
'
'lblFTP
@@ -102,7 +102,7 @@ Partial Class frmNachrichtenVerarbeitung_MDM_divers
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.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.Size = New System.Drawing.Size(89, 13)
Me.lblTestsystem.TabIndex = 20
@@ -113,7 +113,7 @@ Partial Class frmNachrichtenVerarbeitung_MDM_divers
'
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.Location = New System.Drawing.Point(309, 132)
+ Me.lblDatenCnt.Location = New System.Drawing.Point(387, 132)
Me.lblDatenCnt.Name = "lblDatenCnt"
Me.lblDatenCnt.Size = New System.Drawing.Size(13, 13)
Me.lblDatenCnt.TabIndex = 19
@@ -134,7 +134,7 @@ Partial Class frmNachrichtenVerarbeitung_MDM_divers
Me.dgvEinarbeitung.Location = New System.Drawing.Point(12, 164)
Me.dgvEinarbeitung.Name = "dgvEinarbeitung"
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
'
'clmnArt
@@ -153,7 +153,7 @@ Partial Class frmNachrichtenVerarbeitung_MDM_divers
'
Me.Label9.AutoSize = True
Me.Label9.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
- Me.Label9.Location = New System.Drawing.Point(306, 103)
+ Me.Label9.Location = New System.Drawing.Point(384, 103)
Me.Label9.Name = "Label9"
Me.Label9.Size = New System.Drawing.Size(44, 13)
Me.Label9.TabIndex = 17
@@ -163,7 +163,7 @@ Partial Class frmNachrichtenVerarbeitung_MDM_divers
'btnEinlesen
'
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.Size = New System.Drawing.Size(141, 50)
Me.btnEinlesen.TabIndex = 16
@@ -185,13 +185,13 @@ Partial Class frmNachrichtenVerarbeitung_MDM_divers
Me.ListBox3.FormattingEnabled = True
Me.ListBox3.Location = New System.Drawing.Point(11, 50)
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
'
'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.Location = New System.Drawing.Point(306, 240)
+ Me.Label6.Location = New System.Drawing.Point(384, 240)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(144, 37)
Me.Label6.TabIndex = 11
@@ -202,7 +202,7 @@ Partial Class frmNachrichtenVerarbeitung_MDM_divers
'
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.Location = New System.Drawing.Point(306, 217)
+ Me.Label5.Location = New System.Drawing.Point(384, 217)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(44, 13)
Me.Label5.TabIndex = 10
@@ -212,7 +212,7 @@ Partial Class frmNachrichtenVerarbeitung_MDM_divers
'btnEinarbeiten
'
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.Size = New System.Drawing.Size(141, 50)
Me.btnEinarbeiten.TabIndex = 9
@@ -222,7 +222,7 @@ Partial Class frmNachrichtenVerarbeitung_MDM_divers
'btnOK
'
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.Size = New System.Drawing.Size(141, 29)
Me.btnOK.TabIndex = 9
@@ -254,7 +254,7 @@ Partial Class frmNachrichtenVerarbeitung_MDM_divers
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
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.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)