From e9c95c8fdf32e9eb5868838ba7870f6671c4bfa9 Mon Sep 17 00:00:00 2001 From: Andreas Luxbauer Date: Fri, 11 Aug 2023 09:28:15 +0200 Subject: [PATCH] Grenzstelle, ATILLA NEUHAUS --- Aviso/Classes/cSendungsoptions.vb | 3 +- Aviso/My Project/AssemblyInfo.vb | 4 +- Aviso/frmEintragAviso.vb | 28 +- Aviso/frmHauptfenster.vb | 14 +- Aviso/frmLogin.vb | 5 +- Aviso/frmSendungsdetailsNEU.vb | 25 +- Aviso/usrcntlAktDetails.vb | 16 +- Aviso/usrcntlAktDetailsATILLANeu.Designer.vb | 396 ++++++++++--------- Aviso/usrcntlAktDetailsATILLANeu.resx | 86 ++-- Aviso/usrcntlAktDetailsATILLANeu.vb | 6 +- 10 files changed, 322 insertions(+), 261 deletions(-) diff --git a/Aviso/Classes/cSendungsoptions.vb b/Aviso/Classes/cSendungsoptions.vb index 37f1c41..d9b1203 100644 --- a/Aviso/Classes/cSendungsoptions.vb +++ b/Aviso/Classes/cSendungsoptions.vb @@ -431,8 +431,9 @@ Public Class SendungOptions End Select End If + Dim ZOLLANMELDUNG As New DAKOSY_Worker.cZollsysteme_Aktenbeschriftung - If Not ZOLLANMELDUNG.getDataByBezugsnummer(SENDUNG.FilialenNr & "/" & SENDUNG.AbfertigungsNr, SENDUNG.tblSnd_Abfertigungsart_ID.ToString, SENDUNG.tblSnd_DakosyRef) Then + If Not ZOLLANMELDUNG.getDataByBezugsnummer(SENDUNG.FilialenNr & "/" & SENDUNG.AbfertigungsNr, SENDUNG.tblSnd_Abfertigungsart_ID.ToString, SENDUNG.tblSnd_DakosyRef, AVISO.Grenzstelle) Then ZOLLANMELDUNG = Nothing End If diff --git a/Aviso/My Project/AssemblyInfo.vb b/Aviso/My Project/AssemblyInfo.vb index 3da0cf4..66dd162 100644 --- a/Aviso/My Project/AssemblyInfo.vb +++ b/Aviso/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - - + + diff --git a/Aviso/frmEintragAviso.vb b/Aviso/frmEintragAviso.vb index 17d9d8f..8d580d2 100644 --- a/Aviso/frmEintragAviso.vb +++ b/Aviso/frmEintragAviso.vb @@ -687,14 +687,14 @@ Public Class frmEintragAviso End If - If FIRMA_TMP <> "ATILLA" Then - If cboGrenzstelle._value.Trim = "" Then + ' If FIRMA_TMP <> "ATILLA" Then + If cboGrenzstelle._value.Trim = "" Then ' MsgBox("Bitte die Grenzstelle eingegeben.", vbInformation) lblErr_Grenzstelle.Visible = True cboGrenzstelle.Focus() Exit Sub End If - End If + ' End If @@ -882,12 +882,12 @@ Public Class frmEintragAviso myAviso.letzterMitarbeiter = cGlobal.AktiverMitarbeiter.Mitarbeiter myAviso.TeamId = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId End If - If FIRMA_TMP = "ATILLA" Then - myAviso.Grenzstelle = "SUB" - Else - myAviso.Grenzstelle = cboGrenzstelle._value - ' MsgBox(myAviso.Grenzstelle) - End If + 'If FIRMA_TMP = "ATILLA" Then + ' myAviso.Grenzstelle = "SUB" + 'Else + myAviso.Grenzstelle = cboGrenzstelle._value + ' MsgBox(myAviso.Grenzstelle) + ' End If myAviso.Transportmittelart = cboTransportmittelart._value @@ -1075,9 +1075,11 @@ Public Class frmEintragAviso If Neuanlage Then If ATILLA_NEUERAKTENDECKEL Then Dim abfnr_tmp As Object = DBNull.Value - getFilialeAndAbfertNrATILLA(1, abfnr_tmp) ' FilialeNr u AbfNr werden geladen Dim sndId = -1 - If AvisoDAL.insertSendungEmpty(tmpId, 1, 4801, abfnr_tmp, 0, Nothing, , , , sndId) Then ' INSERT + Dim filiale_tmp As Integer = 4801 'VERAG_PROG_ALLGEMEIN.cAllgemein.STAMMFILIALE + If cboGrenzstelle._value = "NEU" Then filiale_tmp = 4802 + getFilialeAndAbfertNrATILLA(1, abfnr_tmp, filiale_tmp) ' FilialeNr u AbfNr werden geladen + If AvisoDAL.insertSendungEmpty(tmpId, 1, filiale_tmp, abfnr_tmp, 0, Nothing, , , , sndId) Then ' INSERT TMP_SND_Atilla = New VERAG_PROG_ALLGEMEIN.cSendungen(sndId) loadInSND(TMP_SND_Atilla) End If @@ -1299,8 +1301,8 @@ Public Class frmEintragAviso End If If cbxPosNr.Checked Then abfertigungsNr = VERAG_PROG_ALLGEMEIN.cAllgemein.getMaxPosNrIncrement(filialeNr, Now.Year) End Sub - Sub getFilialeAndAbfertNrATILLA(ByVal cnt, ByRef abfertigungsNr) - Dim filialeNr = 4801 + Sub getFilialeAndAbfertNrATILLA(ByVal cnt, ByRef abfertigungsNr, filialeNr) + If cbxPosNr.Checked Then abfertigungsNr = VERAG_PROG_ALLGEMEIN.cAllgemein.getMaxPosNrIncrement(filialeNr, Now.Year) End Sub diff --git a/Aviso/frmHauptfenster.vb b/Aviso/frmHauptfenster.vb index fc9e673..e0c987f 100644 --- a/Aviso/frmHauptfenster.vb +++ b/Aviso/frmHauptfenster.vb @@ -930,7 +930,7 @@ Public Class frmHauptfenster If cboGrenzstelle._value = "ALLE_WO" Then - hSQL += " AND Grenzstelle IN (SELECT [grz_Grenzstelle] FROM [tblGrenzstelle] where (grz_Warenort=1 AND grz_Firma ='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' OR grz_Cluster='" & VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER & "' ) ) " + hSQL += " AND Grenzstelle IN (SELECT [grz_Grenzstelle] FROM [tblGrenzstelle] where (grz_Warenort=1 AND (grz_Firma ='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' OR grz_Cluster='" & VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER & "' )) ) " Else ' If SucheStandort <> "" Then hSQL += " AND Grenzstelle = '" & SucheStandort & "'" @@ -1245,7 +1245,7 @@ Public Class frmHauptfenster 'If cboMy_Grenzstelle._value.Replace("ALLE_BACK", "") <> "" Then sqlStr &= " AND Grenzstelle = '" & cboMy_Grenzstelle._value & "'" If cboMy_Grenzstelle._value = "ALLE_WO" Then - sqlStr += " AND Grenzstelle IN (SELECT [grz_Grenzstelle] FROM [tblGrenzstelle] where (grz_Warenort=1 AND grz_Firma ='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' OR grz_Cluster='" & VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER & "' ) ) " + sqlStr += " AND Grenzstelle IN (SELECT [grz_Grenzstelle] FROM [tblGrenzstelle] where (grz_Warenort=1 AND (grz_Firma ='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' OR grz_Cluster='" & VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER & "' )) ) " ElseIf cboMy_Grenzstelle._value.Replace("ALLE_BACK", "") <> "" Then sqlStr &= " AND Grenzstelle = '" & cboMy_Grenzstelle._value & "'" @@ -1299,7 +1299,7 @@ Public Class frmHauptfenster ' Case CheckState.Indeterminate : sqlStr &= " AND tblSnd_Vorbereitet is not null " End Select If cboMy_Grenzstelle._value = "ALLE_WO" Then - sqlStr += " AND Grenzstelle IN (SELECT [grz_Grenzstelle] FROM [tblGrenzstelle] where (grz_Warenort=1 AND grz_Firma ='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' OR grz_Cluster='" & VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER & "' ) ) " + sqlStr += " AND Grenzstelle IN (SELECT [grz_Grenzstelle] FROM [tblGrenzstelle] where (grz_Warenort=1 AND (grz_Firma ='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' OR grz_Cluster='" & VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER & "' )) ) " Else If cboMy_Grenzstelle._value.Replace("ALLE_BACK", "") <> "" Then sqlStr &= " AND Grenzstelle = '" & cboMy_Grenzstelle._value & "'" @@ -2740,8 +2740,8 @@ Public Class frmHauptfenster btnWichtigeStandort.Visible = False Panel2.Visible = False - Label4.Visible = False - cboGrenzstelle.Visible = False + ' Label4.Visible = False '- -> NICHT MEHR + ' cboGrenzstelle.Visible = Falsee '- -> NICHT MEHR 'BürgschaftenExcelToolStripMenuItem.Visible = True ATGesamtsicherheitVeragCSToolStripMenuItem.Visible = True 'ToolStripMenuItem4.Visible = True @@ -6540,6 +6540,8 @@ Public Class AvisoStatusFunctions Case 5, 6, 18, 24, 32, 33, 34, 37, 40 'Versand gestellungsadresse = "" & s.getNCTSAdress(True, True, False) & "" + + getDataFronDY_NCTS(s.tblSnd_SendungID, AtcMrn, frist, DsId, s.FilialenNr, s.AbfertigungsNr, s.tblSnd_Abfertigungsart_ID, s.tblSnd_DakosyRef) If KUNDE_ERW.EmailFreigabe_VBDPDF And IsNumeric(DsId) Then 'VBD anhängen Try @@ -6746,7 +6748,7 @@ Public Class AvisoStatusFunctions 'Wenn nichts gefunden: Dim ZOLLANMELDUNG As New DAKOSY_Worker.cZollsysteme_Aktenbeschriftung - ZOLLANMELDUNG.getDataByBezugsnummer(FilialenNr & "/" & AbfertigungsNr, tblSnd_Abfertigungsart_ID.ToString, tblSnd_DakosyRef) ' Die weiteren Daten werden hier geladen + ZOLLANMELDUNG.getDataByBezugsnummer(FilialenNr & "/" & AbfertigungsNr, tblSnd_Abfertigungsart_ID.ToString, tblSnd_DakosyRef, False) ' Die weiteren Daten werden hier geladen If ZOLLANMELDUNG IsNot Nothing Then AtcMrn = ZOLLANMELDUNG.ATCMRN 'dsId = dt.Rows(0)("DsId") diff --git a/Aviso/frmLogin.vb b/Aviso/frmLogin.vb index 6b18c8e..865da56 100644 --- a/Aviso/frmLogin.vb +++ b/Aviso/frmLogin.vb @@ -90,7 +90,6 @@ Public Class frmLogin If firma = "NEU" Then firma = "VERAG" If firma = "SUB" Then firma = "VERAG" - Else ' FIRMA VON AD HOLEN, wenn keine StandortTxt Try @@ -341,6 +340,8 @@ Public Class frmLogin VERAG_PROG_ALLGEMEIN.cAllgemein.PRINTER_STANDARD = (li.Replace("PRINTER:", "")).Trim End If + If li.ToUpper.StartsWith("NIEDERLASSUNG:") Then VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG = (li.Replace("NIEDERLASSUNG:", "")).Trim + If li.ToUpper.StartsWith("NL:") Then VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG = (li.Replace("NL:", "")).Trim Next End If End If @@ -356,6 +357,8 @@ Public Class frmLogin If li.StartsWith("PRINTER:") Then VERAG_PROG_ALLGEMEIN.cAllgemein.PRINTER_STANDARD = (li.Replace("PRINTER:", "")).Trim End If + If li.ToUpper.StartsWith("NIEDERLASSUNG:") Then VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG = (li.Replace("NIEDERLASSUNG:", "")).Trim + If li.ToUpper.StartsWith("NL:") Then VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG = (li.Replace("NL:", "")).Trim Next End If End If diff --git a/Aviso/frmSendungsdetailsNEU.vb b/Aviso/frmSendungsdetailsNEU.vb index 106f892..ec67670 100644 --- a/Aviso/frmSendungsdetailsNEU.vb +++ b/Aviso/frmSendungsdetailsNEU.vb @@ -302,7 +302,6 @@ Public Class frmSendungsdetailsNEU Else - Dim GRZ As New VERAG_PROG_ALLGEMEIN.cGrenzstelle(AVISO.Grenzstelle) If GRZ IsNot Nothing AndAlso GRZ.hasEntry Then @@ -408,6 +407,10 @@ Public Class frmSendungsdetailsNEU ' ToolStripMenuItem13.Enabled = True End If + If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMIN", Me) Then + Button19.Visible = True + End If + cboFiliale._allowFreiText = Nothing Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER @@ -6264,6 +6267,26 @@ Public Class frmSendungsdetailsNEU Private Sub Button19_Click(sender As Object, e As EventArgs) Handles Button19.Click + Try + + + If SENDUNG_LIST IsNot Nothing AndAlso SENDUNG_LIST.Count > 0 Then + Dim SND As VERAG_PROG_ALLGEMEIN.cSendungen = SENDUNG_LIST(CURRENT_INDEX) + + Dim frmAttilaATEZNCTS = New frmATEZ_NCTS(AVISO, SND, Now.ToString("yy")) + frmAttilaATEZNCTS.Show(Me) + + End If + + Catch ex As Exception + MsgBox(ex.Message & ex.StackTrace) + End Try + Me.Cursor = Cursors.Default + + + + + MsgBox("Funktion noch nicht implementiert!") Exit Sub diff --git a/Aviso/usrcntlAktDetails.vb b/Aviso/usrcntlAktDetails.vb index 6f882e3..6e866de 100644 --- a/Aviso/usrcntlAktDetails.vb +++ b/Aviso/usrcntlAktDetails.vb @@ -3227,7 +3227,11 @@ Public Class usrcntlAktDetails For Each s In SENDUNG_LIST If checkcbxAlleFirmen(s.FilialenNr) Then - If Not s.tblSnd_Fremdspedition Then If CInt(s.AbfertigungsNr) < 100000 Then MsgBox("Es wurden nicht alle Abfertigungsnummern vergeben!") : Exit Sub + If Not s.tblSnd_Fremdspedition Then + If CInt(s.AbfertigungsNr) < 100000 Then + If MsgBox("Es wurden nicht alle Abfertigungsnummern vergeben!" & vbNewLine & "Druck trotzdem fortfahren?", MsgBoxStyle.YesNoCancel) <> vbYes Then Exit Sub + End If + End If End If Next @@ -3239,7 +3243,7 @@ Public Class usrcntlAktDetails Debug.WriteLine("LKW_Nr: " & AVISO_Tmp.LKW_Nr) If checkcbxAlleFirmen(s.FilialenNr) Then - If Not s.tblSnd_Fremdspedition Then SendungOptions.PrintSendung("PRINT", s, AVISO_Tmp, Printername,, SENDUNG_LIST.Count) + If Not s.tblSnd_Fremdspedition AndAlso CInt(s.AbfertigungsNr) > 100000 Then SendungOptions.PrintSendung("PRINT", s, AVISO_Tmp, Printername,, SENDUNG_LIST.Count) End If Next End Sub) @@ -3258,7 +3262,11 @@ Public Class usrcntlAktDetails For Each s In SENDUNG_LIST If checkcbxAlleFirmen(s.FilialenNr) Then - If Not s.tblSnd_Fremdspedition Then If CInt(s.AbfertigungsNr) < 100000 Then MsgBox("Es wurden nicht alle Abfertigungsnummern vergeben!") : Exit Sub + If Not s.tblSnd_Fremdspedition Then + If CInt(s.AbfertigungsNr) < 100000 Then + If MsgBox("Es wurden nicht alle Abfertigungsnummern vergeben!" & vbNewLine & "Druck trotzdem fortfahren?", MsgBoxStyle.YesNoCancel) <> vbYes Then Exit Sub + End If + End If End If Next @@ -3272,7 +3280,7 @@ Public Class usrcntlAktDetails 'Dim trd = New Threading.Thread(Sub() For Each s In SENDUNG_LIST If checkcbxAlleFirmen(s.FilialenNr) Then - If Not s.tblSnd_Fremdspedition Then SendungOptions.PrintSendung("PRINT", s, AVISO, Printername,, SENDUNG_LIST.Count) + If Not s.tblSnd_Fremdspedition AndAlso CInt(s.AbfertigungsNr) > 100000 Then SendungOptions.PrintSendung("PRINT", s, AVISO, Printername,, SENDUNG_LIST.Count) End If Next ' End Sub) diff --git a/Aviso/usrcntlAktDetailsATILLANeu.Designer.vb b/Aviso/usrcntlAktDetailsATILLANeu.Designer.vb index f9d1af4..4057aa1 100644 --- a/Aviso/usrcntlAktDetailsATILLANeu.Designer.vb +++ b/Aviso/usrcntlAktDetailsATILLANeu.Designer.vb @@ -23,37 +23,38 @@ Partial Class usrcntlAktDetailsATILLANeu _ Private Sub InitializeComponent() Me.components = New System.ComponentModel.Container() - 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 DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle31 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle32 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle33 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle34 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle35 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(usrcntlAktDetailsATILLANeu)) - Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle7 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle8 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle9 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle10 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle11 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle12 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle13 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle14 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle15 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle16 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle17 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle18 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle19 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle20 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle21 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle22 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle23 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle24 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle25 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle36 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle37 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle38 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle39 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle40 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle41 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle42 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle43 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle44 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle45 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle46 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle47 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle48 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle49 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle50 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle26 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle27 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle28 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle29 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle30 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Me.pnlDetailsRechts = New System.Windows.Forms.Panel() Me.Panel3 = New System.Windows.Forms.Panel() Me.SplitContainer = New System.Windows.Forms.SplitContainer() Me.tbcntr = New System.Windows.Forms.TabControl() Me.tbVermerke = New System.Windows.Forms.TabPage() + Me.UsrCntlVermerkeATilla1 = New AVISO.usrCntlVermerkeATilla() Me.tbZollanmeldungen = New System.Windows.Forms.TabPage() Me.Panel1 = New System.Windows.Forms.Panel() Me.dgvZollAnmeldungen = New System.Windows.Forms.DataGridView() @@ -155,7 +156,7 @@ Partial Class usrcntlAktDetailsATILLANeu Me.UmbenennenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.LöschenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.AusZwischenablageEinfügenPasteToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() - Me.UsrCntlVermerkeATilla1 = New AVISO.usrCntlVermerkeATilla() + Me.Button12 = New System.Windows.Forms.Button() Me.pnlDetailsRechts.SuspendLayout() Me.Panel3.SuspendLayout() CType(Me.SplitContainer, System.ComponentModel.ISupportInitialize).BeginInit() @@ -275,6 +276,17 @@ Partial Class usrcntlAktDetailsATILLANeu Me.tbVermerke.Text = "Vermerk eintragen" Me.tbVermerke.UseVisualStyleBackColor = True ' + 'UsrCntlVermerkeATilla1 + ' + Me.UsrCntlVermerkeATilla1.AutoScroll = True + Me.UsrCntlVermerkeATilla1.BackColor = System.Drawing.SystemColors.Control + Me.UsrCntlVermerkeATilla1.Dock = System.Windows.Forms.DockStyle.Fill + Me.UsrCntlVermerkeATilla1.Location = New System.Drawing.Point(3, 3) + Me.UsrCntlVermerkeATilla1.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.UsrCntlVermerkeATilla1.Name = "UsrCntlVermerkeATilla1" + Me.UsrCntlVermerkeATilla1.Size = New System.Drawing.Size(561, 151) + Me.UsrCntlVermerkeATilla1.TabIndex = 0 + ' 'tbZollanmeldungen ' Me.tbZollanmeldungen.Controls.Add(Me.Panel1) @@ -301,44 +313,44 @@ Partial Class usrcntlAktDetailsATILLANeu Me.dgvZollAnmeldungen.AllowUserToAddRows = False Me.dgvZollAnmeldungen.AllowUserToDeleteRows = False Me.dgvZollAnmeldungen.AllowUserToResizeRows = False - DataGridViewCellStyle1.BackColor = System.Drawing.Color.Azure - DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.dgvZollAnmeldungen.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1 + DataGridViewCellStyle31.BackColor = System.Drawing.Color.Azure + DataGridViewCellStyle31.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvZollAnmeldungen.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle31 Me.dgvZollAnmeldungen.BackgroundColor = System.Drawing.Color.White - DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle2.BackColor = System.Drawing.Color.LightBlue - DataGridViewCellStyle2.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle2.ForeColor = System.Drawing.SystemColors.WindowText - DataGridViewCellStyle2.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle2.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.dgvZollAnmeldungen.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle2 + DataGridViewCellStyle32.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle32.BackColor = System.Drawing.Color.LightBlue + DataGridViewCellStyle32.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle32.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle32.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle32.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle32.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvZollAnmeldungen.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle32 Me.dgvZollAnmeldungen.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.DisableResizing - DataGridViewCellStyle3.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle3.BackColor = System.Drawing.SystemColors.Window - 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.ControlText - DataGridViewCellStyle3.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle3.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle3.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] - Me.dgvZollAnmeldungen.DefaultCellStyle = DataGridViewCellStyle3 + DataGridViewCellStyle33.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle33.BackColor = System.Drawing.SystemColors.Window + DataGridViewCellStyle33.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle33.ForeColor = System.Drawing.SystemColors.ControlText + DataGridViewCellStyle33.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle33.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle33.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] + Me.dgvZollAnmeldungen.DefaultCellStyle = DataGridViewCellStyle33 Me.dgvZollAnmeldungen.Dock = System.Windows.Forms.DockStyle.Fill Me.dgvZollAnmeldungen.Location = New System.Drawing.Point(0, 31) Me.dgvZollAnmeldungen.MultiSelect = False Me.dgvZollAnmeldungen.Name = "dgvZollAnmeldungen" Me.dgvZollAnmeldungen.ReadOnly = True - DataGridViewCellStyle4.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle4.BackColor = System.Drawing.SystemColors.Control - DataGridViewCellStyle4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle4.ForeColor = System.Drawing.SystemColors.WindowText - DataGridViewCellStyle4.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle4.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.dgvZollAnmeldungen.RowHeadersDefaultCellStyle = DataGridViewCellStyle4 + DataGridViewCellStyle34.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle34.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle34.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle34.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle34.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle34.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle34.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvZollAnmeldungen.RowHeadersDefaultCellStyle = DataGridViewCellStyle34 Me.dgvZollAnmeldungen.RowHeadersVisible = False Me.dgvZollAnmeldungen.RowHeadersWidthSizeMode = System.Windows.Forms.DataGridViewRowHeadersWidthSizeMode.DisableResizing - DataGridViewCellStyle5.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.dgvZollAnmeldungen.RowsDefaultCellStyle = DataGridViewCellStyle5 + DataGridViewCellStyle35.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvZollAnmeldungen.RowsDefaultCellStyle = DataGridViewCellStyle35 Me.dgvZollAnmeldungen.RowTemplate.Height = 20 Me.dgvZollAnmeldungen.RowTemplate.ReadOnly = True Me.dgvZollAnmeldungen.RowTemplate.Resizable = System.Windows.Forms.DataGridViewTriState.[False] @@ -400,44 +412,44 @@ Partial Class usrcntlAktDetailsATILLANeu Me.dgvSpeditionsbuch.AllowUserToAddRows = False Me.dgvSpeditionsbuch.AllowUserToDeleteRows = False Me.dgvSpeditionsbuch.AllowUserToResizeRows = False - DataGridViewCellStyle6.BackColor = System.Drawing.Color.Azure - DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.dgvSpeditionsbuch.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle6 + DataGridViewCellStyle36.BackColor = System.Drawing.Color.Azure + DataGridViewCellStyle36.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvSpeditionsbuch.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle36 Me.dgvSpeditionsbuch.BackgroundColor = System.Drawing.Color.White - DataGridViewCellStyle7.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle7.BackColor = System.Drawing.Color.LightBlue - DataGridViewCellStyle7.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle7.ForeColor = System.Drawing.SystemColors.WindowText - DataGridViewCellStyle7.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle7.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle7.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.dgvSpeditionsbuch.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle7 + DataGridViewCellStyle37.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle37.BackColor = System.Drawing.Color.LightBlue + DataGridViewCellStyle37.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle37.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle37.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle37.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle37.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvSpeditionsbuch.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle37 Me.dgvSpeditionsbuch.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.DisableResizing - DataGridViewCellStyle8.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle8.BackColor = System.Drawing.SystemColors.Window - DataGridViewCellStyle8.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle8.ForeColor = System.Drawing.SystemColors.ControlText - DataGridViewCellStyle8.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle8.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle8.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] - Me.dgvSpeditionsbuch.DefaultCellStyle = DataGridViewCellStyle8 + DataGridViewCellStyle38.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle38.BackColor = System.Drawing.SystemColors.Window + DataGridViewCellStyle38.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle38.ForeColor = System.Drawing.SystemColors.ControlText + DataGridViewCellStyle38.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle38.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle38.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] + Me.dgvSpeditionsbuch.DefaultCellStyle = DataGridViewCellStyle38 Me.dgvSpeditionsbuch.Dock = System.Windows.Forms.DockStyle.Fill Me.dgvSpeditionsbuch.Location = New System.Drawing.Point(3, 34) Me.dgvSpeditionsbuch.MultiSelect = False Me.dgvSpeditionsbuch.Name = "dgvSpeditionsbuch" Me.dgvSpeditionsbuch.ReadOnly = True - DataGridViewCellStyle9.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle9.BackColor = System.Drawing.SystemColors.Control - DataGridViewCellStyle9.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle9.ForeColor = System.Drawing.SystemColors.WindowText - DataGridViewCellStyle9.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle9.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle9.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.dgvSpeditionsbuch.RowHeadersDefaultCellStyle = DataGridViewCellStyle9 + DataGridViewCellStyle39.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle39.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle39.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle39.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle39.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle39.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle39.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvSpeditionsbuch.RowHeadersDefaultCellStyle = DataGridViewCellStyle39 Me.dgvSpeditionsbuch.RowHeadersVisible = False Me.dgvSpeditionsbuch.RowHeadersWidthSizeMode = System.Windows.Forms.DataGridViewRowHeadersWidthSizeMode.DisableResizing - DataGridViewCellStyle10.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.dgvSpeditionsbuch.RowsDefaultCellStyle = DataGridViewCellStyle10 + DataGridViewCellStyle40.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvSpeditionsbuch.RowsDefaultCellStyle = DataGridViewCellStyle40 Me.dgvSpeditionsbuch.RowTemplate.Height = 20 Me.dgvSpeditionsbuch.RowTemplate.ReadOnly = True Me.dgvSpeditionsbuch.RowTemplate.Resizable = System.Windows.Forms.DataGridViewTriState.[False] @@ -499,43 +511,43 @@ Partial Class usrcntlAktDetailsATILLANeu Me.dgvanhaenge.AllowUserToAddRows = False Me.dgvanhaenge.AllowUserToDeleteRows = False Me.dgvanhaenge.AllowUserToResizeRows = False - DataGridViewCellStyle11.BackColor = System.Drawing.Color.Azure - DataGridViewCellStyle11.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.dgvanhaenge.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle11 + DataGridViewCellStyle41.BackColor = System.Drawing.Color.Azure + DataGridViewCellStyle41.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvanhaenge.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle41 Me.dgvanhaenge.BackgroundColor = System.Drawing.Color.White - DataGridViewCellStyle12.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle12.BackColor = System.Drawing.Color.LightBlue - DataGridViewCellStyle12.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle12.ForeColor = System.Drawing.SystemColors.WindowText - DataGridViewCellStyle12.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle12.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle12.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.dgvanhaenge.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle12 + DataGridViewCellStyle42.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle42.BackColor = System.Drawing.Color.LightBlue + DataGridViewCellStyle42.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle42.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle42.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle42.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle42.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvanhaenge.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle42 Me.dgvanhaenge.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.DisableResizing - DataGridViewCellStyle13.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle13.BackColor = System.Drawing.SystemColors.Window - DataGridViewCellStyle13.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle13.ForeColor = System.Drawing.SystemColors.ControlText - DataGridViewCellStyle13.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle13.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle13.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] - Me.dgvanhaenge.DefaultCellStyle = DataGridViewCellStyle13 + DataGridViewCellStyle43.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle43.BackColor = System.Drawing.SystemColors.Window + DataGridViewCellStyle43.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle43.ForeColor = System.Drawing.SystemColors.ControlText + DataGridViewCellStyle43.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle43.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle43.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] + Me.dgvanhaenge.DefaultCellStyle = DataGridViewCellStyle43 Me.dgvanhaenge.Dock = System.Windows.Forms.DockStyle.Fill Me.dgvanhaenge.Location = New System.Drawing.Point(3, 3) Me.dgvanhaenge.Name = "dgvanhaenge" Me.dgvanhaenge.ReadOnly = True - DataGridViewCellStyle14.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle14.BackColor = System.Drawing.SystemColors.Control - DataGridViewCellStyle14.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle14.ForeColor = System.Drawing.SystemColors.WindowText - DataGridViewCellStyle14.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle14.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle14.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.dgvanhaenge.RowHeadersDefaultCellStyle = DataGridViewCellStyle14 + DataGridViewCellStyle44.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle44.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle44.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle44.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle44.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle44.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle44.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvanhaenge.RowHeadersDefaultCellStyle = DataGridViewCellStyle44 Me.dgvanhaenge.RowHeadersVisible = False Me.dgvanhaenge.RowHeadersWidthSizeMode = System.Windows.Forms.DataGridViewRowHeadersWidthSizeMode.DisableResizing - DataGridViewCellStyle15.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.dgvanhaenge.RowsDefaultCellStyle = DataGridViewCellStyle15 + DataGridViewCellStyle45.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvanhaenge.RowsDefaultCellStyle = DataGridViewCellStyle45 Me.dgvanhaenge.RowTemplate.Height = 30 Me.dgvanhaenge.RowTemplate.ReadOnly = True Me.dgvanhaenge.RowTemplate.Resizable = System.Windows.Forms.DataGridViewTriState.[False] @@ -630,44 +642,44 @@ Partial Class usrcntlAktDetailsATILLANeu Me.dgvATEZNCTS.AllowUserToAddRows = False Me.dgvATEZNCTS.AllowUserToDeleteRows = False Me.dgvATEZNCTS.AllowUserToResizeRows = False - DataGridViewCellStyle16.BackColor = System.Drawing.Color.Azure - DataGridViewCellStyle16.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.dgvATEZNCTS.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle16 + DataGridViewCellStyle46.BackColor = System.Drawing.Color.Azure + DataGridViewCellStyle46.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvATEZNCTS.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle46 Me.dgvATEZNCTS.BackgroundColor = System.Drawing.Color.White - DataGridViewCellStyle17.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle17.BackColor = System.Drawing.Color.LightBlue - DataGridViewCellStyle17.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle17.ForeColor = System.Drawing.SystemColors.WindowText - DataGridViewCellStyle17.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle17.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle17.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.dgvATEZNCTS.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle17 + DataGridViewCellStyle47.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle47.BackColor = System.Drawing.Color.LightBlue + DataGridViewCellStyle47.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle47.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle47.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle47.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle47.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvATEZNCTS.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle47 Me.dgvATEZNCTS.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.DisableResizing - DataGridViewCellStyle18.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle18.BackColor = System.Drawing.SystemColors.Window - DataGridViewCellStyle18.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle18.ForeColor = System.Drawing.SystemColors.ControlText - DataGridViewCellStyle18.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle18.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle18.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] - Me.dgvATEZNCTS.DefaultCellStyle = DataGridViewCellStyle18 + DataGridViewCellStyle48.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle48.BackColor = System.Drawing.SystemColors.Window + DataGridViewCellStyle48.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle48.ForeColor = System.Drawing.SystemColors.ControlText + DataGridViewCellStyle48.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle48.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle48.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] + Me.dgvATEZNCTS.DefaultCellStyle = DataGridViewCellStyle48 Me.dgvATEZNCTS.Dock = System.Windows.Forms.DockStyle.Fill Me.dgvATEZNCTS.Location = New System.Drawing.Point(0, 31) Me.dgvATEZNCTS.MultiSelect = False Me.dgvATEZNCTS.Name = "dgvATEZNCTS" Me.dgvATEZNCTS.ReadOnly = True - DataGridViewCellStyle19.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle19.BackColor = System.Drawing.SystemColors.Control - DataGridViewCellStyle19.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle19.ForeColor = System.Drawing.SystemColors.WindowText - DataGridViewCellStyle19.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle19.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle19.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.dgvATEZNCTS.RowHeadersDefaultCellStyle = DataGridViewCellStyle19 + DataGridViewCellStyle49.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle49.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle49.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle49.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle49.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle49.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle49.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvATEZNCTS.RowHeadersDefaultCellStyle = DataGridViewCellStyle49 Me.dgvATEZNCTS.RowHeadersVisible = False Me.dgvATEZNCTS.RowHeadersWidthSizeMode = System.Windows.Forms.DataGridViewRowHeadersWidthSizeMode.DisableResizing - DataGridViewCellStyle20.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.dgvATEZNCTS.RowsDefaultCellStyle = DataGridViewCellStyle20 + DataGridViewCellStyle50.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvATEZNCTS.RowsDefaultCellStyle = DataGridViewCellStyle50 Me.dgvATEZNCTS.RowTemplate.Height = 20 Me.dgvATEZNCTS.RowTemplate.ReadOnly = True Me.dgvATEZNCTS.RowTemplate.Resizable = System.Windows.Forms.DataGridViewTriState.[False] @@ -714,44 +726,44 @@ Partial Class usrcntlAktDetailsATILLANeu Me.gridVermerke.AllowUserToAddRows = False Me.gridVermerke.AllowUserToDeleteRows = False Me.gridVermerke.AllowUserToResizeRows = False - DataGridViewCellStyle21.BackColor = System.Drawing.Color.Azure - DataGridViewCellStyle21.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.gridVermerke.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle21 + DataGridViewCellStyle26.BackColor = System.Drawing.Color.Azure + DataGridViewCellStyle26.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.gridVermerke.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle26 Me.gridVermerke.BackgroundColor = System.Drawing.Color.White - DataGridViewCellStyle22.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle22.BackColor = System.Drawing.Color.LightBlue - DataGridViewCellStyle22.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle22.ForeColor = System.Drawing.SystemColors.WindowText - DataGridViewCellStyle22.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle22.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle22.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.gridVermerke.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle22 + DataGridViewCellStyle27.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle27.BackColor = System.Drawing.Color.LightBlue + DataGridViewCellStyle27.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle27.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle27.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle27.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle27.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.gridVermerke.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle27 Me.gridVermerke.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.DisableResizing - DataGridViewCellStyle23.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle23.BackColor = System.Drawing.SystemColors.Window - DataGridViewCellStyle23.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle23.ForeColor = System.Drawing.SystemColors.ControlText - DataGridViewCellStyle23.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle23.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle23.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] - Me.gridVermerke.DefaultCellStyle = DataGridViewCellStyle23 + DataGridViewCellStyle28.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle28.BackColor = System.Drawing.SystemColors.Window + DataGridViewCellStyle28.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle28.ForeColor = System.Drawing.SystemColors.ControlText + DataGridViewCellStyle28.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle28.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle28.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] + Me.gridVermerke.DefaultCellStyle = DataGridViewCellStyle28 Me.gridVermerke.Dock = System.Windows.Forms.DockStyle.Fill Me.gridVermerke.Location = New System.Drawing.Point(0, 29) Me.gridVermerke.MultiSelect = False Me.gridVermerke.Name = "gridVermerke" Me.gridVermerke.ReadOnly = True - DataGridViewCellStyle24.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle24.BackColor = System.Drawing.SystemColors.Control - DataGridViewCellStyle24.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle24.ForeColor = System.Drawing.SystemColors.WindowText - DataGridViewCellStyle24.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle24.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle24.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.gridVermerke.RowHeadersDefaultCellStyle = DataGridViewCellStyle24 + DataGridViewCellStyle29.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle29.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle29.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle29.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle29.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle29.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle29.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.gridVermerke.RowHeadersDefaultCellStyle = DataGridViewCellStyle29 Me.gridVermerke.RowHeadersVisible = False Me.gridVermerke.RowHeadersWidthSizeMode = System.Windows.Forms.DataGridViewRowHeadersWidthSizeMode.DisableResizing - DataGridViewCellStyle25.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.gridVermerke.RowsDefaultCellStyle = DataGridViewCellStyle25 + DataGridViewCellStyle30.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.gridVermerke.RowsDefaultCellStyle = DataGridViewCellStyle30 Me.gridVermerke.RowTemplate.Height = 20 Me.gridVermerke.RowTemplate.ReadOnly = True Me.gridVermerke.RowTemplate.Resizable = System.Windows.Forms.DataGridViewTriState.[False] @@ -819,8 +831,8 @@ Partial Class usrcntlAktDetailsATILLANeu 'Panel8 ' Me.Panel8.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.Panel8.Controls.Add(Me.Button12) Me.Panel8.Controls.Add(Me.Button8) - Me.Panel8.Controls.Add(Me.TextBox1) Me.Panel8.Controls.Add(Me.TextBox2) Me.Panel8.Controls.Add(Me.Button6) Me.Panel8.Controls.Add(Me.Label5) @@ -841,6 +853,7 @@ Partial Class usrcntlAktDetailsATILLANeu Me.Panel8.Controls.Add(Me.txtAktMA) Me.Panel8.Controls.Add(Me.txtFrächter) Me.Panel8.Controls.Add(Me.txtAuftraggeber) + Me.Panel8.Controls.Add(Me.TextBox1) Me.Panel8.Dock = System.Windows.Forms.DockStyle.Top Me.Panel8.Location = New System.Drawing.Point(0, 0) Me.Panel8.Name = "Panel8" @@ -867,16 +880,16 @@ Partial Class usrcntlAktDetailsATILLANeu ' Me.TextBox1.BackColor = System.Drawing.Color.WhiteSmoke Me.TextBox1.BorderStyle = System.Windows.Forms.BorderStyle.None - Me.TextBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 20.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.TextBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 19.0!, System.Drawing.FontStyle.Bold) Me.TextBox1.ForeColor = System.Drawing.Color.Black - Me.TextBox1.Location = New System.Drawing.Point(76, 0) + Me.TextBox1.Location = New System.Drawing.Point(56, 6) Me.TextBox1.MaxLength = 0 Me.TextBox1.Name = "TextBox1" Me.TextBox1.ReadOnly = True - Me.TextBox1.Size = New System.Drawing.Size(151, 31) + Me.TextBox1.Size = New System.Drawing.Size(204, 29) Me.TextBox1.TabIndex = 116 Me.TextBox1.TabStop = False - Me.TextBox1.Text = "17000000" + Me.TextBox1.Text = "4802/17000000" ' 'TextBox2 ' @@ -884,7 +897,7 @@ Partial Class usrcntlAktDetailsATILLANeu Me.TextBox2.BorderStyle = System.Windows.Forms.BorderStyle.None Me.TextBox2.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.TextBox2.ForeColor = System.Drawing.Color.Black - Me.TextBox2.Location = New System.Drawing.Point(6, 13) + Me.TextBox2.Location = New System.Drawing.Point(3, 13) Me.TextBox2.MaxLength = 0 Me.TextBox2.Name = "TextBox2" Me.TextBox2.ReadOnly = True @@ -923,7 +936,7 @@ Partial Class usrcntlAktDetailsATILLANeu Me.Label3.AutoSize = True Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label3.ForeColor = System.Drawing.Color.Black - Me.Label3.Location = New System.Drawing.Point(226, 12) + Me.Label3.Location = New System.Drawing.Point(254, 12) Me.Label3.Name = "Label3" Me.Label3.Size = New System.Drawing.Size(58, 17) Me.Label3.TabIndex = 113 @@ -973,7 +986,7 @@ Partial Class usrcntlAktDetailsATILLANeu Me.txtLKWID.BorderStyle = System.Windows.Forms.BorderStyle.None Me.txtLKWID.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.txtLKWID.ForeColor = System.Drawing.Color.Black - Me.txtLKWID.Location = New System.Drawing.Point(299, 13) + Me.txtLKWID.Location = New System.Drawing.Point(316, 13) Me.txtLKWID.MaxLength = 0 Me.txtLKWID.Name = "txtLKWID" Me.txtLKWID.ReadOnly = True @@ -1061,7 +1074,7 @@ Partial Class usrcntlAktDetailsATILLANeu Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.Button1.Image = Global.AVISO.My.Resources.Resources.belegEUR1 Me.Button1.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.Button1.Location = New System.Drawing.Point(219, 54) + Me.Button1.Location = New System.Drawing.Point(257, 54) Me.Button1.Name = "Button1" Me.Button1.Size = New System.Drawing.Size(78, 35) Me.Button1.TabIndex = 104 @@ -1715,16 +1728,20 @@ Partial Class usrcntlAktDetailsATILLANeu Me.AusZwischenablageEinfügenPasteToolStripMenuItem.Size = New System.Drawing.Size(279, 30) Me.AusZwischenablageEinfügenPasteToolStripMenuItem.Text = "Aus Zwischenablage einfügen (Paste)" ' - 'UsrCntlVermerkeATilla1 + 'Button12 ' - Me.UsrCntlVermerkeATilla1.AutoScroll = True - Me.UsrCntlVermerkeATilla1.BackColor = System.Drawing.SystemColors.Control - Me.UsrCntlVermerkeATilla1.Dock = System.Windows.Forms.DockStyle.Fill - Me.UsrCntlVermerkeATilla1.Location = New System.Drawing.Point(3, 3) - Me.UsrCntlVermerkeATilla1.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) - Me.UsrCntlVermerkeATilla1.Name = "UsrCntlVermerkeATilla1" - Me.UsrCntlVermerkeATilla1.Size = New System.Drawing.Size(561, 151) - Me.UsrCntlVermerkeATilla1.TabIndex = 0 + Me.Button12.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.Button12.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button12.Image = Global.AVISO.My.Resources.Resources.stift1 + Me.Button12.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button12.Location = New System.Drawing.Point(337, 36) + Me.Button12.Name = "Button12" + Me.Button12.Size = New System.Drawing.Size(68, 40) + Me.Button12.TabIndex = 119 + Me.Button12.Text = "SND" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "bearb." + Me.Button12.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.Button12.UseVisualStyleBackColor = True + Me.Button12.Visible = False ' 'usrcntlAktDetailsATILLANeu ' @@ -1903,4 +1920,5 @@ Partial Class usrcntlAktDetailsATILLANeu Friend WithEvents dgvATEZNCTS As DataGridView Friend WithEvents Panel10 As Panel Friend WithEvents Label12 As Label + Friend WithEvents Button12 As Button End Class diff --git a/Aviso/usrcntlAktDetailsATILLANeu.resx b/Aviso/usrcntlAktDetailsATILLANeu.resx index e555ba4..8c2044e 100644 --- a/Aviso/usrcntlAktDetailsATILLANeu.resx +++ b/Aviso/usrcntlAktDetailsATILLANeu.resx @@ -118,6 +118,49 @@ System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + iVBORw0KGgoAAAANSUhEUgAAABQAAAAUCAYAAACNiR0NAAAABGdBTUEAALGPC/xhBQAAAZ1JREFUOE+l + kTlLA0EYhvMTtLIyjbHzwsKI2rgeSSF4gUVEPIIgqIiCQSxsRJSYgC6mCBaKF4IW7tqYJsEjaFBEC0nU + WGoniKlMxNfMhFmS7BjdtXiGnW+/9+Fd1gBAN/GuCRDeO0Zv2Uy19FeIKDG/irf2EUSt/Tit60yOdQpD + oWtF9mDpw3FtB3bLGyGazF/cQC6ILBKJIhAI4r65F4GaNuyUCVg2mTFnrOCHfoLKwimZfOjD1vY+tksF + LBVVUZkmYUxuQDj8CL//DJJ8hI2tPTjdHjimZxUZ2eOGsyGy91MHntercSClZAuuFSpjsF1VOBsqO5mk + sidPJe6cJZh3ilwZISOcTXozJruaKcbJhJErI2Rc0onJgqrZJZGNG+EbLIBky0+uqXOqAYH3mbQZk3Xz + ZQTVQGm2pq0ZI+Pya7NfZATl4b/NGPTQ+wN40OPzwhtXNyvULCOkHoJevGwMJ/7TjGHA4dTX684Yzhd7 + sDlu/WDNDmx5yff8UC4MTZYW3IgD2HW0wm0X4LLXJ/Q0Y1AhQRyySLwFbcDwDUJWbE0CgQrjAAAAAElF + TkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABkAAAAZCAYAAADE6YVjAAAABGdBTUEAALGPC/xhBQAAAkdJREFUSEu9 + lc9qGlEUxochO3UhZURfwLZQ8hIp3fgASRcz9SEK7cIMbko2ycIncIx/6N6VdtGl2ILS7rIqCdgQ6KYp + JDGR3n5HvHLmzJlg/9DFD73nfud8zrlnro4xZiOm0+kTx3G+AwMuJpPJI02noQY1VsU5XzSdhhqs1+uv + ut3uQx4TBkv4fq/X20PeCx6zJAJBEEQocFsoFD50Op3nq9hraUDYHDKA/hyxb77vRzZuiS1QrOm67sIW + yWazl6VSaYbYlY1xaI/I5XL2rAzlS6P1FzzqPkQ/rfhvqFQqfdUEZ7C7euRE0m9yA5MD1YSgM6AWKYkm + DMM6B7r3mi6TyXxFnTyvGzMhqMci8S6KokDqBoNBGXFfaE2xWPwotbEFDv4IBzfnSc1m018sFi7XWSgu + jWByJnX0Jm9zEYfaIhMkw+FwJ63FxGw2K+FT3yQ2MSEwmaGWT/xXkxMe5GxiMh6Pt8rl8hstn1ia4DZ9 + jIXaU/T6GFP0QCtu6ff7O9D+kLlEo9EI5vO5m0iSI0zTkzZdGBoPmmOux3SdSF1sQSjviWm1Wj6m6CnM + lhq0yMMTPMPeW6mFyaGsGVvQbYoWrS87Dt7ky1qtFtIh4wzaiKmXJo0zrqg9Xjdm8I/urvQLEr/wJQQ3 + MuFPSDUh6H/A/p/g8zqfz39Cj9+BU1mIQPwzoBavp9PzvGm73d7idWMmBIxa9Euq1er+aDRax20Rjt2j + M6AcAgaJSYwt7kMaEFKThhrUkAba9Z+GGtSg64GT9oImMc4v59Pq02CFvIoAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABkAAAAZCAYAAADE6YVjAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAIRSURBVEhLtZQty2pBFIVPEcS/YBSTySAigsEgZosm + /4AfxWYw+BFEQQTFaBCDyaAWixgMGqwWQQQRMQiKRVD2OzOXOXfPzH65xRseOLP2Wus4xznHAoD/Dil+ + G1KkmM1mEA6HweFwQCgUgslkwmTaq0OKOsVikTktg3w+z8Z0BkOKmOVyaZRj5vM5s9FZCSliEomEUYyJ + x+PMRmclpIjxeDxGMcbtdjMbnZWQIiYSiRjFmEAgwGx0VkKKmGazaRRjqtUqs9FZCSliTqeTUYzhcz2j + Q4o63W7XKOfwXepeClKk4C8ivkEsFmMy7dUhRclgMBCFi8WCLcFqt9vibZc72Gw2Yt7v98X6N0jx8/mA + 3+8XBRyXywWHw4GN/nqOx6P4xEiPz+eD9/uteCSGwCkUCnYYI3e0Wq3IeSaTEXMdQ9jv90ZY4nQ6IZVK + iZ1Rc85ut2M1aqey4NTrdSOow1/A+/0Ow+HQmNVqNVajdioLTi6XM4L8+9TpdMS11+tlNrDW67X4D/gj + xN5sNivmGGXBmU6nSiidTjP5z+x8PgM/FL1eT8yCwaCY4UMyHo9tv0RZSCqVih3iv1auH48HjEYje9Zq + teB6vdqnrFQqsbjZZwiS5/MJt9uNXYLFHxcvwUe2XC6L2eVyge12C6/XS6wpSJEimUzaN2g0GkyifRSk + +BvRaBT4wdD1f0GK34YUvwtYP5AYOT1J5BIQAAAAAElFTkSuQmCC + + iVBORw0KGgoAAAANSUhEUgAAABQAAAAUCAYAAACNiR0NAAAABGdBTUEAALGPC/xhBQAAAIdJREFUOE/V @@ -241,19 +284,6 @@ kEEKgCAQRfVKeaaOEXSL6hbRNrC9dQ3PUd/IxagLGcZFA48PjjyYrzCd1vqWAC7TTog8wFiBTUUR7Igw fK6ZIRVFsGsolKCtEFl7cmneGpBEuIGeyZoJJSBCpAcXE18Sindow4LJngklIELk8j1wmEpC8Q5PMDNx mVCCPwiVeQBaqAV4Jfq5XQAAAABJRU5ErkJggg== - - - - - iVBORw0KGgoAAAANSUhEUgAAABQAAAAUCAYAAACNiR0NAAAABGdBTUEAALGPC/xhBQAAAZ1JREFUOE+l - kTlLA0EYhvMTtLIyjbHzwsKI2rgeSSF4gUVEPIIgqIiCQSxsRJSYgC6mCBaKF4IW7tqYJsEjaFBEC0nU - WGoniKlMxNfMhFmS7BjdtXiGnW+/9+Fd1gBAN/GuCRDeO0Zv2Uy19FeIKDG/irf2EUSt/Tit60yOdQpD - oWtF9mDpw3FtB3bLGyGazF/cQC6ILBKJIhAI4r65F4GaNuyUCVg2mTFnrOCHfoLKwimZfOjD1vY+tksF - LBVVUZkmYUxuQDj8CL//DJJ8hI2tPTjdHjimZxUZ2eOGsyGy91MHntercSClZAuuFSpjsF1VOBsqO5mk - sidPJe6cJZh3ilwZISOcTXozJruaKcbJhJErI2Rc0onJgqrZJZGNG+EbLIBky0+uqXOqAYH3mbQZk3Xz - ZQTVQGm2pq0ZI+Pya7NfZATl4b/NGPTQ+wN40OPzwhtXNyvULCOkHoJevGwMJ/7TjGHA4dTX684Yzhd7 - sDlu/WDNDmx5yff8UC4MTZYW3IgD2HW0wm0X4LLXJ/Q0Y1AhQRyySLwFbcDwDUJWbE0CgQrjAAAAAElF - TkSuQmCC @@ -291,36 +321,6 @@ XtCa+QwzqiorIIXXC/cHwB04130R4z9mwyRPxq0i8ZJAkxGEh11XskhBfxB9LpOpJ2rz0ft1Oq6fSMSV nL1QSp+H5jC3BzdrDpFC/iLaFxvHfpJ2gG0uSkZlTiwuSCJRLnkd941Nwh6QQv4iio6JY9+Lf/uB5tvj u+dczi2zC3gZJoAU8B+I/gUOvurcp1KwhwAAAABJRU5ErkJggg== - - - - - iVBORw0KGgoAAAANSUhEUgAAABkAAAAZCAYAAADE6YVjAAAABGdBTUEAALGPC/xhBQAAAkdJREFUSEu9 - lc9qGlEUxochO3UhZURfwLZQ8hIp3fgASRcz9SEK7cIMbko2ycIncIx/6N6VdtGl2ILS7rIqCdgQ6KYp - JDGR3n5HvHLmzJlg/9DFD73nfud8zrlnro4xZiOm0+kTx3G+AwMuJpPJI02noQY1VsU5XzSdhhqs1+uv - ut3uQx4TBkv4fq/X20PeCx6zJAJBEEQocFsoFD50Op3nq9hraUDYHDKA/hyxb77vRzZuiS1QrOm67sIW - yWazl6VSaYbYlY1xaI/I5XL2rAzlS6P1FzzqPkQ/rfhvqFQqfdUEZ7C7euRE0m9yA5MD1YSgM6AWKYkm - DMM6B7r3mi6TyXxFnTyvGzMhqMci8S6KokDqBoNBGXFfaE2xWPwotbEFDv4IBzfnSc1m018sFi7XWSgu - jWByJnX0Jm9zEYfaIhMkw+FwJ63FxGw2K+FT3yQ2MSEwmaGWT/xXkxMe5GxiMh6Pt8rl8hstn1ia4DZ9 - jIXaU/T6GFP0QCtu6ff7O9D+kLlEo9EI5vO5m0iSI0zTkzZdGBoPmmOux3SdSF1sQSjviWm1Wj6m6CnM - lhq0yMMTPMPeW6mFyaGsGVvQbYoWrS87Dt7ky1qtFtIh4wzaiKmXJo0zrqg9Xjdm8I/urvQLEr/wJQQ3 - MuFPSDUh6H/A/p/g8zqfz39Cj9+BU1mIQPwzoBavp9PzvGm73d7idWMmBIxa9Euq1er+aDRax20Rjt2j - M6AcAgaJSYwt7kMaEFKThhrUkAba9Z+GGtSg64GT9oImMc4v59Pq02CFvIoAAAAASUVORK5CYII= - - - - - iVBORw0KGgoAAAANSUhEUgAAABkAAAAZCAYAAADE6YVjAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m - dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAIRSURBVEhLtZQty2pBFIVPEcS/YBSTySAigsEgZosm - /4AfxWYw+BFEQQTFaBCDyaAWixgMGqwWQQQRMQiKRVD2OzOXOXfPzH65xRseOLP2Wus4xznHAoD/Dil+ - G1KkmM1mEA6HweFwQCgUgslkwmTaq0OKOsVikTktg3w+z8Z0BkOKmOVyaZRj5vM5s9FZCSliEomEUYyJ - x+PMRmclpIjxeDxGMcbtdjMbnZWQIiYSiRjFmEAgwGx0VkKKmGazaRRjqtUqs9FZCSliTqeTUYzhcz2j - Q4o63W7XKOfwXepeClKk4C8ivkEsFmMy7dUhRclgMBCFi8WCLcFqt9vibZc72Gw2Yt7v98X6N0jx8/mA - 3+8XBRyXywWHw4GN/nqOx6P4xEiPz+eD9/uteCSGwCkUCnYYI3e0Wq3IeSaTEXMdQ9jv90ZY4nQ6IZVK - iZ1Rc85ut2M1aqey4NTrdSOow1/A+/0Ow+HQmNVqNVajdioLTi6XM4L8+9TpdMS11+tlNrDW67X4D/gj - xN5sNivmGGXBmU6nSiidTjP5z+x8PgM/FL1eT8yCwaCY4UMyHo9tv0RZSCqVih3iv1auH48HjEYje9Zq - teB6vdqnrFQqsbjZZwiS5/MJt9uNXYLFHxcvwUe2XC6L2eVyge12C6/XS6wpSJEimUzaN2g0GkyifRSk - +BvRaBT4wdD1f0GK34YUvwtYP5AYOT1J5BIQAAAAAElFTkSuQmCC diff --git a/Aviso/usrcntlAktDetailsATILLANeu.vb b/Aviso/usrcntlAktDetailsATILLANeu.vb index 1ead34b..c67fc10 100644 --- a/Aviso/usrcntlAktDetailsATILLANeu.vb +++ b/Aviso/usrcntlAktDetailsATILLANeu.vb @@ -64,7 +64,7 @@ Public Class usrcntlAktDetailsATILLANeu TextBox1.Text = "" If SENDUNG_LIST IsNot Nothing AndAlso SENDUNG_LIST.Count > 0 Then - TextBox1.Text = SENDUNG_LIST(0).AbfertigungsNr + TextBox1.Text = SENDUNG_LIST(0).FilialenNr & "/" & SENDUNG_LIST(0).AbfertigungsNr End If Dim SENDUNG = Nothing If SENDUNG_LIST IsNot Nothing AndAlso SENDUNG_LIST.Count > 0 Then @@ -256,6 +256,7 @@ Public Class usrcntlAktDetailsATILLANeu Private Sub usrcntlAktDetails_Load(sender As Object, e As EventArgs) Handles Me.Load If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMIN", Me.FindForm) Then SGSNCTSToolStripMenuItem.Visible = True + Button12.Visible = True End If If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ATEZ_NCTS", Me.FindForm) Then @@ -1666,5 +1667,8 @@ Public Class usrcntlAktDetailsATILLANeu End Sub + Private Sub Button12_Click_1(sender As Object, e As EventArgs) Handles Button12.Click + FUNC.openSnd(SENDUNG_LIST(0).tblSnd_SendungID, AvisoID) + End Sub End Class