From 1eac4a3e50a39e6a1cbd9e83cbe183ed6be08cc6 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Thu, 5 Mar 2026 08:43:01 +0100 Subject: [PATCH] =?UTF-8?q?Mailsender,=20cWorker=20(f=C3=BCr=20Gesamtsiche?= =?UTF-8?q?rheiten).?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- MailSender/MAILSender.vb | 2 +- UID/My Project/Resources.Designer.vb | 9 + UID/My Project/Resources.resx | 3 + UID/cSqlDb.vb | 9 +- UID/usrctlProcedures.vb | 40 ++- initATLASAufschubkonten/cWorker_Verwahrung.vb | 282 ++++++++---------- ...richtenVerarbeitung_MDM_divers.Designer.vb | 26 +- 7 files changed, 178 insertions(+), 193 deletions(-) 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)