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

gesamtsicherheiten

Browse Source
This commit is contained in:
d.breimaier
2024-02-22 15:19:26 +01:00
parent e10ecbe4eb
commit 61cdfb612a
11 changed files with 397 additions and 377 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
Aviso.sln
View File

@@ -43,8 +43,8 @@ Global
Release|x86 = Release|x86 Release|x86 = Release|x86
EndGlobalSection EndGlobalSection
GlobalSection(ProjectConfigurationPlatforms) = postSolution GlobalSection(ProjectConfigurationPlatforms) = postSolution
{7BDD8C2F-2C9E-49F1-A365-3B1DA1C84991}.Debug|Any CPU.ActiveCfg = Debug|Any CPU {7BDD8C2F-2C9E-49F1-A365-3B1DA1C84991}.Debug|Any CPU.ActiveCfg = Debug|x64
{7BDD8C2F-2C9E-49F1-A365-3B1DA1C84991}.Debug|Any CPU.Build.0 = Debug|Any CPU {7BDD8C2F-2C9E-49F1-A365-3B1DA1C84991}.Debug|Any CPU.Build.0 = Debug|x64
{7BDD8C2F-2C9E-49F1-A365-3B1DA1C84991}.Debug|Mixed Platforms.ActiveCfg = Debug|x64 {7BDD8C2F-2C9E-49F1-A365-3B1DA1C84991}.Debug|Mixed Platforms.ActiveCfg = Debug|x64
{7BDD8C2F-2C9E-49F1-A365-3B1DA1C84991}.Debug|Mixed Platforms.Build.0 = Debug|x64 {7BDD8C2F-2C9E-49F1-A365-3B1DA1C84991}.Debug|Mixed Platforms.Build.0 = Debug|x64
{7BDD8C2F-2C9E-49F1-A365-3B1DA1C84991}.Debug|x64.ActiveCfg = Debug|x64 {7BDD8C2F-2C9E-49F1-A365-3B1DA1C84991}.Debug|x64.ActiveCfg = Debug|x64

20
Aviso/Aviso.vbproj
View File

@@ -78,9 +78,7 @@
<PropertyGroup> <PropertyGroup>
<ApplicationIcon>aviso.ico</ApplicationIcon> <ApplicationIcon>aviso.ico</ApplicationIcon>
</PropertyGroup> </PropertyGroup>
<PropertyGroup> <PropertyGroup />
<ApplicationManifest>app.manifest</ApplicationManifest>
</PropertyGroup>
<PropertyGroup> <PropertyGroup>
<ManifestCertificateThumbprint>34D75D5089806BE69485715D014CE0611D10E677</ManifestCertificateThumbprint> <ManifestCertificateThumbprint>34D75D5089806BE69485715D014CE0611D10E677</ManifestCertificateThumbprint>
</PropertyGroup> </PropertyGroup>
@@ -89,7 +87,7 @@
</ManifestKeyFile> </ManifestKeyFile>
</PropertyGroup> </PropertyGroup>
<PropertyGroup> <PropertyGroup>
<GenerateManifests>false</GenerateManifests> <GenerateManifests>true</GenerateManifests>
</PropertyGroup> </PropertyGroup>
<PropertyGroup> <PropertyGroup>
<TargetZone>LocalIntranet</TargetZone> <TargetZone>LocalIntranet</TargetZone>
@@ -109,7 +107,7 @@
<Prefer32Bit>false</Prefer32Bit> <Prefer32Bit>false</Prefer32Bit>
</PropertyGroup> </PropertyGroup>
<PropertyGroup Condition="'$(Configuration)|$(Platform)' == 'Debug|AnyCPU'"> <PropertyGroup Condition="'$(Configuration)|$(Platform)' == 'Debug|AnyCPU'">
<PlatformTarget>AnyCPU</PlatformTarget> <PlatformTarget>x64</PlatformTarget>
<Prefer32Bit>false</Prefer32Bit> <Prefer32Bit>false</Prefer32Bit>
</PropertyGroup> </PropertyGroup>
<PropertyGroup> <PropertyGroup>
@@ -135,6 +133,10 @@
<SpecificVersion>False</SpecificVersion> <SpecificVersion>False</SpecificVersion>
<HintPath>..\packages\ClosedXML.0.95.4\lib\net46\ClosedXML.dll</HintPath> <HintPath>..\packages\ClosedXML.0.95.4\lib\net46\ClosedXML.dll</HintPath>
</Reference> </Reference>
<Reference Include="cNCTSPartnerWorker, Version=1.0.0.0, Culture=neutral, processorArchitecture=AMD64">
<SpecificVersion>False</SpecificVersion>
<HintPath>..\..\..\ADMIN\ADMIN\cNCTSPartnerWorker\bin\Debug\cNCTSPartnerWorker.dll</HintPath>
</Reference>
<Reference Include="com.esendex.sdk, Version=3.8.0.0, Culture=neutral, PublicKeyToken=9dceac28a20578e2, processorArchitecture=MSIL"> <Reference Include="com.esendex.sdk, Version=3.8.0.0, Culture=neutral, PublicKeyToken=9dceac28a20578e2, processorArchitecture=MSIL">
<HintPath>..\packages\esendex-dotnet-sdk.3.8.0\lib\net35\com.esendex.sdk.dll</HintPath> <HintPath>..\packages\esendex-dotnet-sdk.3.8.0\lib\net35\com.esendex.sdk.dll</HintPath>
</Reference> </Reference>
@@ -1326,7 +1328,7 @@
</EmbeddedResource> </EmbeddedResource>
<EmbeddedResource Include="My Project\licenses.licx" /> <EmbeddedResource Include="My Project\licenses.licx" />
<EmbeddedResource Include="My Project\Resources.resx"> <EmbeddedResource Include="My Project\Resources.resx">
<Generator>VbMyResourcesResXFileCodeGenerator</Generator> <Generator>PublicVbMyResourcesResXFileCodeGenerator</Generator>
<CustomToolNamespace>My.Resources</CustomToolNamespace> <CustomToolNamespace>My.Resources</CustomToolNamespace>
<SubType>Designer</SubType> <SubType>Designer</SubType>
<LastGenOutput>Resources.Designer.vb</LastGenOutput> <LastGenOutput>Resources.Designer.vb</LastGenOutput>
@@ -1402,7 +1404,6 @@
<None Include="GenerelleGestellungenVorlagen\GenerelleGestellung_DE.pdf"> <None Include="GenerelleGestellungenVorlagen\GenerelleGestellung_DE.pdf">
<CopyToOutputDirectory>Always</CopyToOutputDirectory> <CopyToOutputDirectory>Always</CopyToOutputDirectory>
</None> </None>
<None Include="My Project\app.manifest" />
<None Include="My Project\Application.myapp"> <None Include="My Project\Application.myapp">
<Generator>MyApplicationCodeGenerator</Generator> <Generator>MyApplicationCodeGenerator</Generator>
<LastGenOutput>Application.Designer.vb</LastGenOutput> <LastGenOutput>Application.Designer.vb</LastGenOutput>
@@ -1454,10 +1455,6 @@
<None Include="Resources\Versionsinfo.txt" /> <None Include="Resources\Versionsinfo.txt" />
</ItemGroup> </ItemGroup>
<ItemGroup> <ItemGroup>
<ProjectReference Include="..\..\..\ADMIN\ADMIN\cNCTSPartnerWorker\NCTSPartnerWorker.vbproj">
<Project>{2bbd7643-82a1-481f-a014-eb7fcdeed3b5}</Project>
<Name>NCTSPartnerWorker</Name>
</ProjectReference>
<ProjectReference Include="..\..\..\ADMIN\ADMIN\TELOTEK_Worker_lib\TELOTEC_Worker_lib.vbproj"> <ProjectReference Include="..\..\..\ADMIN\ADMIN\TELOTEK_Worker_lib\TELOTEC_Worker_lib.vbproj">
<Project>{5b947a66-009a-4bb6-b925-f84a01045095}</Project> <Project>{5b947a66-009a-4bb6-b925-f84a01045095}</Project>
<Name>TELOTEC_Worker_lib</Name> <Name>TELOTEC_Worker_lib</Name>
@@ -1502,6 +1499,7 @@
</ItemGroup> </ItemGroup>
<ItemGroup> <ItemGroup>
<Content Include="aviso.ico" /> <Content Include="aviso.ico" />
<None Include="bin\Debug\Resources\ambar_boarder.png" />
<Content Include="My Project\aktAlt.jpg" /> <Content Include="My Project\aktAlt.jpg" />
<None Include="Resources\ZwAbEinfuegen.png" /> <None Include="Resources\ZwAbEinfuegen.png" />
<None Include="Resources\unisped_aeo_DE.jpg" /> <None Include="Resources\unisped_aeo_DE.jpg" />

4
Aviso/My Project/AssemblyInfo.vb
View File

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben: ' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")> ' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("3.9.7.0")> <Assembly: AssemblyVersion("3.9.7.1")>
<Assembly: AssemblyFileVersion("3.9.7.0")> <Assembly: AssemblyFileVersion("3.9.7.1")>

382
Aviso/My Project/Resources.Designer.vb generated
View File

File diff suppressed because it is too large Load Diff

3
Aviso/My Project/Resources.resx
View File

@@ -667,4 +667,7 @@
<data name="wiki" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="wiki" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\wiki.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\wiki.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="ambar_boarder" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\bin\Debug\Resources\ambar_boarder.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
</root> </root>

2
Aviso/app.manifest
View File

@@ -1,6 +1,6 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<assembly manifestVersion="1.0" xmlns="urn:schemas-microsoft-com:asm.v1"> <assembly manifestVersion="1.0" xmlns="urn:schemas-microsoft-com:asm.v1">
<assemblyIdentity name="AVISO" version="3.9.7.0" language="neutral" processorArchitecture="amd64" /> <assemblyIdentity version="1.0.0.0" name="MyApplication.app" />
<trustInfo xmlns="urn:schemas-microsoft-com:asm.v2"> <trustInfo xmlns="urn:schemas-microsoft-com:asm.v2">
<security> <security>
<requestedPrivileges xmlns="urn:schemas-microsoft-com:asm.v3"> <requestedPrivileges xmlns="urn:schemas-microsoft-com:asm.v3">

12
Aviso/frmGesamtsicherheitenMenuNEU.vb
View File

@@ -11,6 +11,15 @@ Public Class frmGesamtsicherheitenMenuNEU
Public firmaId As Integer Public firmaId As Integer
Public Sub New()
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
Private Sub frmGesamtsicherheitenNEU_Menu_Load(sender As Object, e As EventArgs) Handles MyBase.Load Private Sub frmGesamtsicherheitenNEU_Menu_Load(sender As Object, e As EventArgs) Handles MyBase.Load
@@ -19,13 +28,14 @@ Public Class frmGesamtsicherheitenMenuNEU
Case "VERAG AG" : firmaId = 1 : chkOffen.Checked = False Case "VERAG AG" : firmaId = 1 : chkOffen.Checked = False
Case "IMEX" : firmaId = 20 : chkOffen.Checked = False Case "IMEX" : firmaId = 20 : chkOffen.Checked = False
Case "Verag CS" : firmaId = 11 : chkOffen.Checked = False Case "Verag CS" : firmaId = 11 : chkOffen.Checked = False
Case "Unisped GmbH" : firmaId = 21 : chkOffen.Checked = False
End Select End Select
cbxStandort.fillWithSQL("SELECT FilialenNr, cast(FilialenNr as varchar(4)) + ' ' + Grenzstelle FROM Filialen WHERE Fil_Status='A' ORDER BY FilialenNr ", True, "FMZOLL", True) cbxStandort.fillWithSQL("SELECT FilialenNr, cast(FilialenNr as varchar(4)) + ' ' + Grenzstelle FROM Filialen WHERE Fil_Status='A' ORDER BY FilialenNr ", True, "FMZOLL", True)
'cbxWarenort.fillWithSQL("SELECT [grz_Grenzstelle], [grz_Bezeichnung] FROM [tblGrenzstelle] WHERE [grz_Aktiv] ='1' AND [grz_Warenort] ='1' ORDER BY [grz_Reihenfolge] ", True, "AVISO", True)
cbxWarenort.fillWithSQL("SELECT [wo_warenort],CONCAT([wo_bezeichnung],' - ' ,[wo_knnr]) FROM [tblWarenorte] WHERE [wo_aktiv] ='1' AND [wo_firma] = '" & firmaId & "' ORDER BY [wo_reihenfolge] ", True, "AVISO", True) cbxWarenort.fillWithSQL("SELECT [wo_warenort],CONCAT([wo_bezeichnung],' - ' ,[wo_knnr]) FROM [tblWarenorte] WHERE [wo_aktiv] ='1' AND [wo_firma] = '" & firmaId & "' ORDER BY [wo_reihenfolge] ", True, "AVISO", True)
cbxWarenort.DropDownWidth = 150 cbxWarenort.DropDownWidth = 150
Me.Text = "Gesamtsicherheiten " & Standort Me.Text = "Gesamtsicherheiten " & Standort
frmHauptfenster.EnableDoubleBuffered(dgvListe) frmHauptfenster.EnableDoubleBuffered(dgvListe)

260
Aviso/frmHauptfenster.Designer.vb generated
View File

@@ -24,15 +24,15 @@ Partial Class frmHauptfenster
Private Sub InitializeComponent() Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container() Me.components = New System.ComponentModel.Container()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmHauptfenster)) Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmHauptfenster))
Dim DataGridViewCellStyle10 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle19 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle11 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle20 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle12 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle21 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle13 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle22 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle14 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle23 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle15 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle24 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle16 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle25 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle17 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle26 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle18 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle27 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Me.mnuInfo = New System.Windows.Forms.ToolStripMenuItem() Me.mnuInfo = New System.Windows.Forms.ToolStripMenuItem()
Me.conÜbernehmen = New System.Windows.Forms.ToolStripMenuItem() Me.conÜbernehmen = New System.Windows.Forms.ToolStripMenuItem()
Me.conMenuAviso = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.conMenuAviso = New System.Windows.Forms.ContextMenuStrip(Me.components)
@@ -117,10 +117,12 @@ Partial Class frmHauptfenster
Me.ToolStripMenuItem5 = New System.Windows.Forms.ToolStripMenuItem() Me.ToolStripMenuItem5 = New System.Windows.Forms.ToolStripMenuItem()
Me.BürgschaftenExcelToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.BürgschaftenExcelToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripMenuItem6 = New System.Windows.Forms.ToolStripMenuItem() Me.ToolStripMenuItem6 = New System.Windows.Forms.ToolStripMenuItem()
Me.DEGesamtsicherheitVeragGmbHToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.GesamtsicherheitenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ATGesamtsicherheitVeragAGToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.ATVeragAGToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ATGesamtsicherheitIMEXCSGmbHToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.ATImexCSToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ATGesamtsicherheitVeragCSToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.ATVeragCSToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.DEVeragGmbHToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ATUnispedGmbHToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripMenuItem10 = New System.Windows.Forms.ToolStripMenuItem() Me.ToolStripMenuItem10 = New System.Windows.Forms.ToolStripMenuItem()
Me.TICKETWaidhausToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.TICKETWaidhausToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripSeparator10 = New System.Windows.Forms.ToolStripSeparator() Me.ToolStripSeparator10 = New System.Windows.Forms.ToolStripSeparator()
@@ -863,7 +865,7 @@ Partial Class frmHauptfenster
' '
'FunktionenToolStripMenuItem 'FunktionenToolStripMenuItem
' '
Me.FunktionenToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.GenerelleGestellungenDurchsuchenToolStripMenuItem, Me.KundenVonFremdenSpeditionenToolStripMenuItem, Me.KundenverwaltungToolStripMenuItem, Me.MDMParkplatzkartenToolStripMenuItem, Me.SMSSendenToolStripMenuItem, Me.ZollprogrammeNachEORIDurchsuchenToolStripMenuItem, Me.MRNBarcodedruckToolStripMenuItem, Me.ToolStripSeparator12, Me.tool_BRGXLS, Me.ToolStripMenuItem4, Me.ToolStripMenuItem5, Me.BürgschaftenExcelToolStripMenuItem, Me.ToolStripMenuItem6, Me.DEGesamtsicherheitVeragGmbHToolStripMenuItem, Me.ATGesamtsicherheitVeragAGToolStripMenuItem, Me.ATGesamtsicherheitIMEXCSGmbHToolStripMenuItem, Me.ATGesamtsicherheitVeragCSToolStripMenuItem, Me.ToolStripMenuItem10, Me.TICKETWaidhausToolStripMenuItem, Me.ToolStripSeparator10, Me.DAKOSYToolStripMenuItem, Me.ToolStripSeparator23, Me.ToolStripMenuItem3, Me.SDLAbholaufträgeToolStripMenuItem, Me.ToolStripMenuItem13, Me.VorauskassenToolStripMenuItem, Me.ToolStripSeparator11, Me.EssensbestellungenToolStripMenuItem, Me.AdministrationEssensbestellungenToolStripMenuItem, Me.ToolStripSeparator24, Me.WarenorteToolStripMenuItem, Me.DatevBuchungsexportToolStripMenuItem, Me.APIToolStripMenuItem}) Me.FunktionenToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.GenerelleGestellungenDurchsuchenToolStripMenuItem, Me.KundenVonFremdenSpeditionenToolStripMenuItem, Me.KundenverwaltungToolStripMenuItem, Me.MDMParkplatzkartenToolStripMenuItem, Me.SMSSendenToolStripMenuItem, Me.ZollprogrammeNachEORIDurchsuchenToolStripMenuItem, Me.MRNBarcodedruckToolStripMenuItem, Me.ToolStripSeparator12, Me.tool_BRGXLS, Me.ToolStripMenuItem4, Me.ToolStripMenuItem5, Me.BürgschaftenExcelToolStripMenuItem, Me.ToolStripMenuItem6, Me.GesamtsicherheitenToolStripMenuItem, Me.ToolStripMenuItem10, Me.TICKETWaidhausToolStripMenuItem, Me.ToolStripSeparator10, Me.DAKOSYToolStripMenuItem, Me.ToolStripSeparator23, Me.ToolStripMenuItem3, Me.SDLAbholaufträgeToolStripMenuItem, Me.ToolStripMenuItem13, Me.VorauskassenToolStripMenuItem, Me.ToolStripSeparator11, Me.EssensbestellungenToolStripMenuItem, Me.AdministrationEssensbestellungenToolStripMenuItem, Me.ToolStripSeparator24, Me.WarenorteToolStripMenuItem, Me.DatevBuchungsexportToolStripMenuItem, Me.APIToolStripMenuItem})
Me.FunktionenToolStripMenuItem.Name = "FunktionenToolStripMenuItem" Me.FunktionenToolStripMenuItem.Name = "FunktionenToolStripMenuItem"
Me.FunktionenToolStripMenuItem.Size = New System.Drawing.Size(79, 21) Me.FunktionenToolStripMenuItem.Size = New System.Drawing.Size(79, 21)
Me.FunktionenToolStripMenuItem.Text = "Funktionen" Me.FunktionenToolStripMenuItem.Text = "Funktionen"
@@ -871,26 +873,26 @@ Partial Class frmHauptfenster
'GenerelleGestellungenDurchsuchenToolStripMenuItem 'GenerelleGestellungenDurchsuchenToolStripMenuItem
' '
Me.GenerelleGestellungenDurchsuchenToolStripMenuItem.Name = "GenerelleGestellungenDurchsuchenToolStripMenuItem" Me.GenerelleGestellungenDurchsuchenToolStripMenuItem.Name = "GenerelleGestellungenDurchsuchenToolStripMenuItem"
Me.GenerelleGestellungenDurchsuchenToolStripMenuItem.Size = New System.Drawing.Size(383, 22) Me.GenerelleGestellungenDurchsuchenToolStripMenuItem.Size = New System.Drawing.Size(391, 30)
Me.GenerelleGestellungenDurchsuchenToolStripMenuItem.Text = "Generelle Gestellungen durchsuchen" Me.GenerelleGestellungenDurchsuchenToolStripMenuItem.Text = "Generelle Gestellungen durchsuchen"
Me.GenerelleGestellungenDurchsuchenToolStripMenuItem.Visible = False Me.GenerelleGestellungenDurchsuchenToolStripMenuItem.Visible = False
' '
'KundenVonFremdenSpeditionenToolStripMenuItem 'KundenVonFremdenSpeditionenToolStripMenuItem
' '
Me.KundenVonFremdenSpeditionenToolStripMenuItem.Name = "KundenVonFremdenSpeditionenToolStripMenuItem" Me.KundenVonFremdenSpeditionenToolStripMenuItem.Name = "KundenVonFremdenSpeditionenToolStripMenuItem"
Me.KundenVonFremdenSpeditionenToolStripMenuItem.Size = New System.Drawing.Size(383, 22) Me.KundenVonFremdenSpeditionenToolStripMenuItem.Size = New System.Drawing.Size(391, 30)
Me.KundenVonFremdenSpeditionenToolStripMenuItem.Text = "Kunden von fremden Speditionen" Me.KundenVonFremdenSpeditionenToolStripMenuItem.Text = "Kunden von fremden Speditionen"
' '
'KundenverwaltungToolStripMenuItem 'KundenverwaltungToolStripMenuItem
' '
Me.KundenverwaltungToolStripMenuItem.Name = "KundenverwaltungToolStripMenuItem" Me.KundenverwaltungToolStripMenuItem.Name = "KundenverwaltungToolStripMenuItem"
Me.KundenverwaltungToolStripMenuItem.Size = New System.Drawing.Size(383, 22) Me.KundenverwaltungToolStripMenuItem.Size = New System.Drawing.Size(391, 30)
Me.KundenverwaltungToolStripMenuItem.Text = "Kundenverwaltung" Me.KundenverwaltungToolStripMenuItem.Text = "Kundenverwaltung"
' '
'MDMParkplatzkartenToolStripMenuItem 'MDMParkplatzkartenToolStripMenuItem
' '
Me.MDMParkplatzkartenToolStripMenuItem.Name = "MDMParkplatzkartenToolStripMenuItem" Me.MDMParkplatzkartenToolStripMenuItem.Name = "MDMParkplatzkartenToolStripMenuItem"
Me.MDMParkplatzkartenToolStripMenuItem.Size = New System.Drawing.Size(383, 22) Me.MDMParkplatzkartenToolStripMenuItem.Size = New System.Drawing.Size(391, 30)
Me.MDMParkplatzkartenToolStripMenuItem.Text = "MDM - Parkplatzkarten" Me.MDMParkplatzkartenToolStripMenuItem.Text = "MDM - Parkplatzkarten"
' '
'SMSSendenToolStripMenuItem 'SMSSendenToolStripMenuItem
@@ -898,7 +900,7 @@ Partial Class frmHauptfenster
Me.SMSSendenToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.NeueSMSSendenToolStripMenuItem, Me.GesendeteSMSToolStripMenuItem}) Me.SMSSendenToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.NeueSMSSendenToolStripMenuItem, Me.GesendeteSMSToolStripMenuItem})
Me.SMSSendenToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.handy2 Me.SMSSendenToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.handy2
Me.SMSSendenToolStripMenuItem.Name = "SMSSendenToolStripMenuItem" Me.SMSSendenToolStripMenuItem.Name = "SMSSendenToolStripMenuItem"
Me.SMSSendenToolStripMenuItem.Size = New System.Drawing.Size(383, 22) Me.SMSSendenToolStripMenuItem.Size = New System.Drawing.Size(391, 30)
Me.SMSSendenToolStripMenuItem.Text = "SMS" Me.SMSSendenToolStripMenuItem.Text = "SMS"
' '
'NeueSMSSendenToolStripMenuItem 'NeueSMSSendenToolStripMenuItem
@@ -916,104 +918,114 @@ Partial Class frmHauptfenster
'ZollprogrammeNachEORIDurchsuchenToolStripMenuItem 'ZollprogrammeNachEORIDurchsuchenToolStripMenuItem
' '
Me.ZollprogrammeNachEORIDurchsuchenToolStripMenuItem.Name = "ZollprogrammeNachEORIDurchsuchenToolStripMenuItem" Me.ZollprogrammeNachEORIDurchsuchenToolStripMenuItem.Name = "ZollprogrammeNachEORIDurchsuchenToolStripMenuItem"
Me.ZollprogrammeNachEORIDurchsuchenToolStripMenuItem.Size = New System.Drawing.Size(383, 22) Me.ZollprogrammeNachEORIDurchsuchenToolStripMenuItem.Size = New System.Drawing.Size(391, 30)
Me.ZollprogrammeNachEORIDurchsuchenToolStripMenuItem.Text = "Zollprogramme nach EORI durchsuchen" Me.ZollprogrammeNachEORIDurchsuchenToolStripMenuItem.Text = "Zollprogramme nach EORI durchsuchen"
' '
'MRNBarcodedruckToolStripMenuItem 'MRNBarcodedruckToolStripMenuItem
' '
Me.MRNBarcodedruckToolStripMenuItem.Name = "MRNBarcodedruckToolStripMenuItem" Me.MRNBarcodedruckToolStripMenuItem.Name = "MRNBarcodedruckToolStripMenuItem"
Me.MRNBarcodedruckToolStripMenuItem.Size = New System.Drawing.Size(383, 22) Me.MRNBarcodedruckToolStripMenuItem.Size = New System.Drawing.Size(391, 30)
Me.MRNBarcodedruckToolStripMenuItem.Text = "MRN Barcodedruck" Me.MRNBarcodedruckToolStripMenuItem.Text = "MRN Barcodedruck"
' '
'ToolStripSeparator12 'ToolStripSeparator12
' '
Me.ToolStripSeparator12.Name = "ToolStripSeparator12" Me.ToolStripSeparator12.Name = "ToolStripSeparator12"
Me.ToolStripSeparator12.Size = New System.Drawing.Size(380, 6) Me.ToolStripSeparator12.Size = New System.Drawing.Size(388, 6)
' '
'tool_BRGXLS 'tool_BRGXLS
' '
Me.tool_BRGXLS.Name = "tool_BRGXLS" Me.tool_BRGXLS.Name = "tool_BRGXLS"
Me.tool_BRGXLS.Size = New System.Drawing.Size(383, 22) Me.tool_BRGXLS.Size = New System.Drawing.Size(391, 30)
Me.tool_BRGXLS.Text = "Bürgschaften Excel" Me.tool_BRGXLS.Text = "Bürgschaften Excel"
' '
'ToolStripMenuItem4 'ToolStripMenuItem4
' '
Me.ToolStripMenuItem4.Name = "ToolStripMenuItem4" Me.ToolStripMenuItem4.Name = "ToolStripMenuItem4"
Me.ToolStripMenuItem4.Size = New System.Drawing.Size(383, 22) Me.ToolStripMenuItem4.Size = New System.Drawing.Size(391, 30)
Me.ToolStripMenuItem4.Text = "DE | Gesamtsicherheit VERAG GmbH - Excel" Me.ToolStripMenuItem4.Text = "DE | Gesamtsicherheit VERAG GmbH - Excel"
Me.ToolStripMenuItem4.Visible = False Me.ToolStripMenuItem4.Visible = False
' '
'ToolStripMenuItem5 'ToolStripMenuItem5
' '
Me.ToolStripMenuItem5.Name = "ToolStripMenuItem5" Me.ToolStripMenuItem5.Name = "ToolStripMenuItem5"
Me.ToolStripMenuItem5.Size = New System.Drawing.Size(383, 22) Me.ToolStripMenuItem5.Size = New System.Drawing.Size(391, 30)
Me.ToolStripMenuItem5.Text = "AT | Gesamtsicherheit VERAG AG - Excel" Me.ToolStripMenuItem5.Text = "AT | Gesamtsicherheit VERAG AG - Excel"
Me.ToolStripMenuItem5.Visible = False Me.ToolStripMenuItem5.Visible = False
' '
'BürgschaftenExcelToolStripMenuItem 'BürgschaftenExcelToolStripMenuItem
' '
Me.BürgschaftenExcelToolStripMenuItem.Name = "BürgschaftenExcelToolStripMenuItem" Me.BürgschaftenExcelToolStripMenuItem.Name = "BürgschaftenExcelToolStripMenuItem"
Me.BürgschaftenExcelToolStripMenuItem.Size = New System.Drawing.Size(383, 22) Me.BürgschaftenExcelToolStripMenuItem.Size = New System.Drawing.Size(391, 30)
Me.BürgschaftenExcelToolStripMenuItem.Text = "AT | Gesamtsicherheit VERAG Customs Service - Excel" Me.BürgschaftenExcelToolStripMenuItem.Text = "AT | Gesamtsicherheit VERAG Customs Service - Excel"
Me.BürgschaftenExcelToolStripMenuItem.Visible = False Me.BürgschaftenExcelToolStripMenuItem.Visible = False
' '
'ToolStripMenuItem6 'ToolStripMenuItem6
' '
Me.ToolStripMenuItem6.Name = "ToolStripMenuItem6" Me.ToolStripMenuItem6.Name = "ToolStripMenuItem6"
Me.ToolStripMenuItem6.Size = New System.Drawing.Size(383, 22) Me.ToolStripMenuItem6.Size = New System.Drawing.Size(391, 30)
Me.ToolStripMenuItem6.Text = "AT | Gesamtsicherheit IMEX Customs Service GmbH - Excel" Me.ToolStripMenuItem6.Text = "AT | Gesamtsicherheit IMEX Customs Service GmbH - Excel"
Me.ToolStripMenuItem6.Visible = False Me.ToolStripMenuItem6.Visible = False
' '
'DEGesamtsicherheitVeragGmbHToolStripMenuItem 'GesamtsicherheitenToolStripMenuItem
' '
Me.DEGesamtsicherheitVeragGmbHToolStripMenuItem.Name = "DEGesamtsicherheitVeragGmbHToolStripMenuItem" Me.GesamtsicherheitenToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ATVeragAGToolStripMenuItem, Me.ATImexCSToolStripMenuItem, Me.ATVeragCSToolStripMenuItem, Me.DEVeragGmbHToolStripMenuItem, Me.ATUnispedGmbHToolStripMenuItem})
Me.DEGesamtsicherheitVeragGmbHToolStripMenuItem.Size = New System.Drawing.Size(383, 22) Me.GesamtsicherheitenToolStripMenuItem.Name = "GesamtsicherheitenToolStripMenuItem"
Me.DEGesamtsicherheitVeragGmbHToolStripMenuItem.Text = "DE | Gesamtsicherheit Verag GmbH" Me.GesamtsicherheitenToolStripMenuItem.Size = New System.Drawing.Size(391, 30)
Me.DEGesamtsicherheitVeragGmbHToolStripMenuItem.Visible = False Me.GesamtsicherheitenToolStripMenuItem.Text = "Gesamtsicherheiten"
Me.GesamtsicherheitenToolStripMenuItem.Visible = False
' '
'ATGesamtsicherheitVeragAGToolStripMenuItem 'ATVeragAGToolStripMenuItem
' '
Me.ATGesamtsicherheitVeragAGToolStripMenuItem.Name = "ATGesamtsicherheitVeragAGToolStripMenuItem" Me.ATVeragAGToolStripMenuItem.Name = "ATVeragAGToolStripMenuItem"
Me.ATGesamtsicherheitVeragAGToolStripMenuItem.Size = New System.Drawing.Size(383, 22) Me.ATVeragAGToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
Me.ATGesamtsicherheitVeragAGToolStripMenuItem.Text = "AT | Gesamtsicherheit Verag AG" Me.ATVeragAGToolStripMenuItem.Text = "AT | Verag AG"
Me.ATGesamtsicherheitVeragAGToolStripMenuItem.Visible = False
' '
'ATGesamtsicherheitIMEXCSGmbHToolStripMenuItem 'ATImexCSToolStripMenuItem
' '
Me.ATGesamtsicherheitIMEXCSGmbHToolStripMenuItem.Name = "ATGesamtsicherheitIMEXCSGmbHToolStripMenuItem" Me.ATImexCSToolStripMenuItem.Name = "ATImexCSToolStripMenuItem"
Me.ATGesamtsicherheitIMEXCSGmbHToolStripMenuItem.Size = New System.Drawing.Size(383, 22) Me.ATImexCSToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
Me.ATGesamtsicherheitIMEXCSGmbHToolStripMenuItem.Text = "AT | Gesamtsicherheit IMEX CS GmbH" Me.ATImexCSToolStripMenuItem.Text = "AT | IMEX CS GmbH"
Me.ATGesamtsicherheitIMEXCSGmbHToolStripMenuItem.Visible = False
' '
'ATGesamtsicherheitVeragCSToolStripMenuItem 'ATVeragCSToolStripMenuItem
' '
Me.ATGesamtsicherheitVeragCSToolStripMenuItem.Name = "ATGesamtsicherheitVeragCSToolStripMenuItem" Me.ATVeragCSToolStripMenuItem.Name = "ATVeragCSToolStripMenuItem"
Me.ATGesamtsicherheitVeragCSToolStripMenuItem.Size = New System.Drawing.Size(383, 22) Me.ATVeragCSToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
Me.ATGesamtsicherheitVeragCSToolStripMenuItem.Text = "AT | Gesamtsicherheit Verag CS" Me.ATVeragCSToolStripMenuItem.Text = "AT | Verag CS"
Me.ATGesamtsicherheitVeragCSToolStripMenuItem.Visible = False '
'DEVeragGmbHToolStripMenuItem
'
Me.DEVeragGmbHToolStripMenuItem.Name = "DEVeragGmbHToolStripMenuItem"
Me.DEVeragGmbHToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
Me.DEVeragGmbHToolStripMenuItem.Text = "DE | Verag GmbH"
'
'ATUnispedGmbHToolStripMenuItem
'
Me.ATUnispedGmbHToolStripMenuItem.Name = "ATUnispedGmbHToolStripMenuItem"
Me.ATUnispedGmbHToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
Me.ATUnispedGmbHToolStripMenuItem.Text = "AT | Unisped GmbH"
' '
'ToolStripMenuItem10 'ToolStripMenuItem10
' '
Me.ToolStripMenuItem10.Name = "ToolStripMenuItem10" Me.ToolStripMenuItem10.Name = "ToolStripMenuItem10"
Me.ToolStripMenuItem10.Size = New System.Drawing.Size(383, 22) Me.ToolStripMenuItem10.Size = New System.Drawing.Size(391, 30)
Me.ToolStripMenuItem10.Text = "TICKET Parkplatz" Me.ToolStripMenuItem10.Text = "TICKET Parkplatz"
' '
'TICKETWaidhausToolStripMenuItem 'TICKETWaidhausToolStripMenuItem
' '
Me.TICKETWaidhausToolStripMenuItem.Name = "TICKETWaidhausToolStripMenuItem" Me.TICKETWaidhausToolStripMenuItem.Name = "TICKETWaidhausToolStripMenuItem"
Me.TICKETWaidhausToolStripMenuItem.Size = New System.Drawing.Size(383, 22) Me.TICKETWaidhausToolStripMenuItem.Size = New System.Drawing.Size(391, 30)
Me.TICKETWaidhausToolStripMenuItem.Text = "Infoschreiben Parkplatz" Me.TICKETWaidhausToolStripMenuItem.Text = "Infoschreiben Parkplatz"
' '
'ToolStripSeparator10 'ToolStripSeparator10
' '
Me.ToolStripSeparator10.Name = "ToolStripSeparator10" Me.ToolStripSeparator10.Name = "ToolStripSeparator10"
Me.ToolStripSeparator10.Size = New System.Drawing.Size(380, 6) Me.ToolStripSeparator10.Size = New System.Drawing.Size(388, 6)
' '
'DAKOSYToolStripMenuItem 'DAKOSYToolStripMenuItem
' '
Me.DAKOSYToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.StammreferenzenVerwaltenToolStripMenuItem}) Me.DAKOSYToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.StammreferenzenVerwaltenToolStripMenuItem})
Me.DAKOSYToolStripMenuItem.Name = "DAKOSYToolStripMenuItem" Me.DAKOSYToolStripMenuItem.Name = "DAKOSYToolStripMenuItem"
Me.DAKOSYToolStripMenuItem.Size = New System.Drawing.Size(383, 22) Me.DAKOSYToolStripMenuItem.Size = New System.Drawing.Size(391, 30)
Me.DAKOSYToolStripMenuItem.Text = "DAKOSY" Me.DAKOSYToolStripMenuItem.Text = "DAKOSY"
' '
'StammreferenzenVerwaltenToolStripMenuItem 'StammreferenzenVerwaltenToolStripMenuItem
@@ -1025,75 +1037,75 @@ Partial Class frmHauptfenster
'ToolStripSeparator23 'ToolStripSeparator23
' '
Me.ToolStripSeparator23.Name = "ToolStripSeparator23" Me.ToolStripSeparator23.Name = "ToolStripSeparator23"
Me.ToolStripSeparator23.Size = New System.Drawing.Size(380, 6) Me.ToolStripSeparator23.Size = New System.Drawing.Size(388, 6)
' '
'ToolStripMenuItem3 'ToolStripMenuItem3
' '
Me.ToolStripMenuItem3.Image = Global.AVISO.My.Resources.Resources.atr Me.ToolStripMenuItem3.Image = Global.AVISO.My.Resources.Resources.atr
Me.ToolStripMenuItem3.Name = "ToolStripMenuItem3" Me.ToolStripMenuItem3.Name = "ToolStripMenuItem3"
Me.ToolStripMenuItem3.Size = New System.Drawing.Size(383, 22) Me.ToolStripMenuItem3.Size = New System.Drawing.Size(391, 30)
Me.ToolStripMenuItem3.Text = "Original-ATR" Me.ToolStripMenuItem3.Text = "Original-ATR"
' '
'SDLAbholaufträgeToolStripMenuItem 'SDLAbholaufträgeToolStripMenuItem
' '
Me.SDLAbholaufträgeToolStripMenuItem.Name = "SDLAbholaufträgeToolStripMenuItem" Me.SDLAbholaufträgeToolStripMenuItem.Name = "SDLAbholaufträgeToolStripMenuItem"
Me.SDLAbholaufträgeToolStripMenuItem.Size = New System.Drawing.Size(383, 22) Me.SDLAbholaufträgeToolStripMenuItem.Size = New System.Drawing.Size(391, 30)
Me.SDLAbholaufträgeToolStripMenuItem.Text = "SDL Abholaufträge" Me.SDLAbholaufträgeToolStripMenuItem.Text = "SDL Abholaufträge"
' '
'ToolStripMenuItem13 'ToolStripMenuItem13
' '
Me.ToolStripMenuItem13.Name = "ToolStripMenuItem13" Me.ToolStripMenuItem13.Name = "ToolStripMenuItem13"
Me.ToolStripMenuItem13.Size = New System.Drawing.Size(383, 22) Me.ToolStripMenuItem13.Size = New System.Drawing.Size(391, 30)
Me.ToolStripMenuItem13.Text = "Postversand (Einschreiben)" Me.ToolStripMenuItem13.Text = "Postversand (Einschreiben)"
' '
'VorauskassenToolStripMenuItem 'VorauskassenToolStripMenuItem
' '
Me.VorauskassenToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.vorauszahlung Me.VorauskassenToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.vorauszahlung
Me.VorauskassenToolStripMenuItem.Name = "VorauskassenToolStripMenuItem" Me.VorauskassenToolStripMenuItem.Name = "VorauskassenToolStripMenuItem"
Me.VorauskassenToolStripMenuItem.Size = New System.Drawing.Size(383, 22) Me.VorauskassenToolStripMenuItem.Size = New System.Drawing.Size(391, 30)
Me.VorauskassenToolStripMenuItem.Text = "Vorauskassen" Me.VorauskassenToolStripMenuItem.Text = "Vorauskassen"
' '
'ToolStripSeparator11 'ToolStripSeparator11
' '
Me.ToolStripSeparator11.Name = "ToolStripSeparator11" Me.ToolStripSeparator11.Name = "ToolStripSeparator11"
Me.ToolStripSeparator11.Size = New System.Drawing.Size(380, 6) Me.ToolStripSeparator11.Size = New System.Drawing.Size(388, 6)
' '
'EssensbestellungenToolStripMenuItem 'EssensbestellungenToolStripMenuItem
' '
Me.EssensbestellungenToolStripMenuItem.Name = "EssensbestellungenToolStripMenuItem" Me.EssensbestellungenToolStripMenuItem.Name = "EssensbestellungenToolStripMenuItem"
Me.EssensbestellungenToolStripMenuItem.Size = New System.Drawing.Size(383, 22) Me.EssensbestellungenToolStripMenuItem.Size = New System.Drawing.Size(391, 30)
Me.EssensbestellungenToolStripMenuItem.Text = "Essensbestellungen" Me.EssensbestellungenToolStripMenuItem.Text = "Essensbestellungen"
Me.EssensbestellungenToolStripMenuItem.Visible = False Me.EssensbestellungenToolStripMenuItem.Visible = False
' '
'AdministrationEssensbestellungenToolStripMenuItem 'AdministrationEssensbestellungenToolStripMenuItem
' '
Me.AdministrationEssensbestellungenToolStripMenuItem.Name = "AdministrationEssensbestellungenToolStripMenuItem" Me.AdministrationEssensbestellungenToolStripMenuItem.Name = "AdministrationEssensbestellungenToolStripMenuItem"
Me.AdministrationEssensbestellungenToolStripMenuItem.Size = New System.Drawing.Size(383, 22) Me.AdministrationEssensbestellungenToolStripMenuItem.Size = New System.Drawing.Size(391, 30)
Me.AdministrationEssensbestellungenToolStripMenuItem.Text = "Administration Essensbestellungen" Me.AdministrationEssensbestellungenToolStripMenuItem.Text = "Administration Essensbestellungen"
Me.AdministrationEssensbestellungenToolStripMenuItem.Visible = False Me.AdministrationEssensbestellungenToolStripMenuItem.Visible = False
' '
'ToolStripSeparator24 'ToolStripSeparator24
' '
Me.ToolStripSeparator24.Name = "ToolStripSeparator24" Me.ToolStripSeparator24.Name = "ToolStripSeparator24"
Me.ToolStripSeparator24.Size = New System.Drawing.Size(380, 6) Me.ToolStripSeparator24.Size = New System.Drawing.Size(388, 6)
' '
'WarenorteToolStripMenuItem 'WarenorteToolStripMenuItem
' '
Me.WarenorteToolStripMenuItem.Name = "WarenorteToolStripMenuItem" Me.WarenorteToolStripMenuItem.Name = "WarenorteToolStripMenuItem"
Me.WarenorteToolStripMenuItem.Size = New System.Drawing.Size(383, 22) Me.WarenorteToolStripMenuItem.Size = New System.Drawing.Size(391, 30)
Me.WarenorteToolStripMenuItem.Text = "Warenorte" Me.WarenorteToolStripMenuItem.Text = "Warenorte"
' '
'DatevBuchungsexportToolStripMenuItem 'DatevBuchungsexportToolStripMenuItem
' '
Me.DatevBuchungsexportToolStripMenuItem.Name = "DatevBuchungsexportToolStripMenuItem" Me.DatevBuchungsexportToolStripMenuItem.Name = "DatevBuchungsexportToolStripMenuItem"
Me.DatevBuchungsexportToolStripMenuItem.Size = New System.Drawing.Size(383, 22) Me.DatevBuchungsexportToolStripMenuItem.Size = New System.Drawing.Size(391, 30)
Me.DatevBuchungsexportToolStripMenuItem.Text = "Datev Buchungsexport" Me.DatevBuchungsexportToolStripMenuItem.Text = "Datev Buchungsexport"
Me.DatevBuchungsexportToolStripMenuItem.Visible = False Me.DatevBuchungsexportToolStripMenuItem.Visible = False
' '
'APIToolStripMenuItem 'APIToolStripMenuItem
' '
Me.APIToolStripMenuItem.Name = "APIToolStripMenuItem" Me.APIToolStripMenuItem.Name = "APIToolStripMenuItem"
Me.APIToolStripMenuItem.Size = New System.Drawing.Size(383, 22) Me.APIToolStripMenuItem.Size = New System.Drawing.Size(391, 30)
Me.APIToolStripMenuItem.Text = "API" Me.APIToolStripMenuItem.Text = "API"
' '
'StatistikToolStripMenuItem 'StatistikToolStripMenuItem
@@ -1608,7 +1620,7 @@ Partial Class frmHauptfenster
' '
Me.VERAGWIKIToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.wiki Me.VERAGWIKIToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.wiki
Me.VERAGWIKIToolStripMenuItem.Name = "VERAGWIKIToolStripMenuItem" Me.VERAGWIKIToolStripMenuItem.Name = "VERAGWIKIToolStripMenuItem"
Me.VERAGWIKIToolStripMenuItem.Size = New System.Drawing.Size(201, 30) Me.VERAGWIKIToolStripMenuItem.Size = New System.Drawing.Size(193, 22)
Me.VERAGWIKIToolStripMenuItem.Text = "VERAG-WIKI" Me.VERAGWIKIToolStripMenuItem.Text = "VERAG-WIKI"
' '
'btnWoche 'btnWoche
@@ -2469,38 +2481,38 @@ Partial Class frmHauptfenster
Me.gridMyAviso.AllowUserToDeleteRows = False Me.gridMyAviso.AllowUserToDeleteRows = False
Me.gridMyAviso.AllowUserToOrderColumns = True Me.gridMyAviso.AllowUserToOrderColumns = True
Me.gridMyAviso.AllowUserToResizeRows = False Me.gridMyAviso.AllowUserToResizeRows = False
DataGridViewCellStyle10.BackColor = System.Drawing.Color.Azure DataGridViewCellStyle19.BackColor = System.Drawing.Color.Azure
Me.gridMyAviso.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle10 Me.gridMyAviso.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle19
Me.gridMyAviso.BackgroundColor = System.Drawing.Color.White Me.gridMyAviso.BackgroundColor = System.Drawing.Color.White
DataGridViewCellStyle11.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft DataGridViewCellStyle20.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle11.BackColor = System.Drawing.SystemColors.Control DataGridViewCellStyle20.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle11.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!) DataGridViewCellStyle20.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!)
DataGridViewCellStyle11.ForeColor = System.Drawing.SystemColors.WindowText DataGridViewCellStyle20.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle11.SelectionBackColor = System.Drawing.SystemColors.Highlight DataGridViewCellStyle20.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle11.SelectionForeColor = System.Drawing.SystemColors.HighlightText DataGridViewCellStyle20.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle11.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] DataGridViewCellStyle20.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.gridMyAviso.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle11 Me.gridMyAviso.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle20
Me.gridMyAviso.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.gridMyAviso.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
DataGridViewCellStyle12.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft DataGridViewCellStyle21.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle12.BackColor = System.Drawing.SystemColors.Window DataGridViewCellStyle21.BackColor = System.Drawing.SystemColors.Window
DataGridViewCellStyle12.Font = New System.Drawing.Font("Microsoft Sans Serif", 5.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) DataGridViewCellStyle21.Font = New System.Drawing.Font("Microsoft Sans Serif", 5.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle12.ForeColor = System.Drawing.SystemColors.ControlText DataGridViewCellStyle21.ForeColor = System.Drawing.SystemColors.ControlText
DataGridViewCellStyle12.SelectionBackColor = System.Drawing.SystemColors.Highlight DataGridViewCellStyle21.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle12.SelectionForeColor = System.Drawing.SystemColors.HighlightText DataGridViewCellStyle21.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle12.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] DataGridViewCellStyle21.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.gridMyAviso.DefaultCellStyle = DataGridViewCellStyle12 Me.gridMyAviso.DefaultCellStyle = DataGridViewCellStyle21
Me.gridMyAviso.Dock = System.Windows.Forms.DockStyle.Fill Me.gridMyAviso.Dock = System.Windows.Forms.DockStyle.Fill
Me.gridMyAviso.Location = New System.Drawing.Point(0, 21) Me.gridMyAviso.Location = New System.Drawing.Point(0, 21)
Me.gridMyAviso.Name = "gridMyAviso" Me.gridMyAviso.Name = "gridMyAviso"
Me.gridMyAviso.ReadOnly = True Me.gridMyAviso.ReadOnly = True
DataGridViewCellStyle13.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft DataGridViewCellStyle22.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle13.BackColor = System.Drawing.SystemColors.Control DataGridViewCellStyle22.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle13.Font = New System.Drawing.Font("Microsoft Sans Serif", 5.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) DataGridViewCellStyle22.Font = New System.Drawing.Font("Microsoft Sans Serif", 5.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle13.ForeColor = System.Drawing.SystemColors.WindowText DataGridViewCellStyle22.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle13.SelectionBackColor = System.Drawing.SystemColors.Highlight DataGridViewCellStyle22.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle13.SelectionForeColor = System.Drawing.SystemColors.HighlightText DataGridViewCellStyle22.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle13.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] DataGridViewCellStyle22.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.gridMyAviso.RowHeadersDefaultCellStyle = DataGridViewCellStyle13 Me.gridMyAviso.RowHeadersDefaultCellStyle = DataGridViewCellStyle22
Me.gridMyAviso.RowHeadersVisible = False Me.gridMyAviso.RowHeadersVisible = False
Me.gridMyAviso.RowHeadersWidth = 62 Me.gridMyAviso.RowHeadersWidth = 62
Me.gridMyAviso.Size = New System.Drawing.Size(488, 279) Me.gridMyAviso.Size = New System.Drawing.Size(488, 279)
@@ -2913,47 +2925,47 @@ Partial Class frmHauptfenster
Me.gridAviso.AllowUserToAddRows = False Me.gridAviso.AllowUserToAddRows = False
Me.gridAviso.AllowUserToDeleteRows = False Me.gridAviso.AllowUserToDeleteRows = False
Me.gridAviso.AllowUserToResizeRows = False Me.gridAviso.AllowUserToResizeRows = False
DataGridViewCellStyle14.BackColor = System.Drawing.Color.Azure DataGridViewCellStyle23.BackColor = System.Drawing.Color.Azure
DataGridViewCellStyle14.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] DataGridViewCellStyle23.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.gridAviso.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle14 Me.gridAviso.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle23
Me.gridAviso.BackgroundColor = System.Drawing.Color.DarkGray Me.gridAviso.BackgroundColor = System.Drawing.Color.DarkGray
Me.gridAviso.ClipboardCopyMode = System.Windows.Forms.DataGridViewClipboardCopyMode.Disable Me.gridAviso.ClipboardCopyMode = System.Windows.Forms.DataGridViewClipboardCopyMode.Disable
DataGridViewCellStyle15.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft DataGridViewCellStyle24.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle15.BackColor = System.Drawing.Color.LightBlue DataGridViewCellStyle24.BackColor = System.Drawing.Color.LightBlue
DataGridViewCellStyle15.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) DataGridViewCellStyle24.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle15.ForeColor = System.Drawing.SystemColors.WindowText DataGridViewCellStyle24.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle15.SelectionBackColor = System.Drawing.SystemColors.Highlight DataGridViewCellStyle24.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle15.SelectionForeColor = System.Drawing.SystemColors.HighlightText DataGridViewCellStyle24.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle15.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] DataGridViewCellStyle24.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.gridAviso.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle15 Me.gridAviso.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle24
Me.gridAviso.ColumnHeadersHeight = 25 Me.gridAviso.ColumnHeadersHeight = 25
Me.gridAviso.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.DisableResizing Me.gridAviso.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.DisableResizing
DataGridViewCellStyle16.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft DataGridViewCellStyle25.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle16.BackColor = System.Drawing.SystemColors.Window DataGridViewCellStyle25.BackColor = System.Drawing.SystemColors.Window
DataGridViewCellStyle16.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) DataGridViewCellStyle25.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle16.ForeColor = System.Drawing.SystemColors.ControlText DataGridViewCellStyle25.ForeColor = System.Drawing.SystemColors.ControlText
DataGridViewCellStyle16.SelectionBackColor = System.Drawing.SystemColors.Highlight DataGridViewCellStyle25.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle16.SelectionForeColor = System.Drawing.SystemColors.HighlightText DataGridViewCellStyle25.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle16.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] DataGridViewCellStyle25.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.gridAviso.DefaultCellStyle = DataGridViewCellStyle16 Me.gridAviso.DefaultCellStyle = DataGridViewCellStyle25
Me.gridAviso.Dock = System.Windows.Forms.DockStyle.Fill Me.gridAviso.Dock = System.Windows.Forms.DockStyle.Fill
Me.gridAviso.Location = New System.Drawing.Point(0, 248) Me.gridAviso.Location = New System.Drawing.Point(0, 248)
Me.gridAviso.MultiSelect = False Me.gridAviso.MultiSelect = False
Me.gridAviso.Name = "gridAviso" Me.gridAviso.Name = "gridAviso"
Me.gridAviso.ReadOnly = True Me.gridAviso.ReadOnly = True
DataGridViewCellStyle17.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft DataGridViewCellStyle26.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle17.BackColor = System.Drawing.SystemColors.Control DataGridViewCellStyle26.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle17.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) DataGridViewCellStyle26.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle17.ForeColor = System.Drawing.SystemColors.WindowText DataGridViewCellStyle26.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle17.SelectionBackColor = System.Drawing.SystemColors.Highlight DataGridViewCellStyle26.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle17.SelectionForeColor = System.Drawing.SystemColors.HighlightText DataGridViewCellStyle26.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle17.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] DataGridViewCellStyle26.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.gridAviso.RowHeadersDefaultCellStyle = DataGridViewCellStyle17 Me.gridAviso.RowHeadersDefaultCellStyle = DataGridViewCellStyle26
Me.gridAviso.RowHeadersVisible = False Me.gridAviso.RowHeadersVisible = False
Me.gridAviso.RowHeadersWidth = 62 Me.gridAviso.RowHeadersWidth = 62
Me.gridAviso.RowHeadersWidthSizeMode = System.Windows.Forms.DataGridViewRowHeadersWidthSizeMode.DisableResizing Me.gridAviso.RowHeadersWidthSizeMode = System.Windows.Forms.DataGridViewRowHeadersWidthSizeMode.DisableResizing
DataGridViewCellStyle18.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] DataGridViewCellStyle27.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.gridAviso.RowsDefaultCellStyle = DataGridViewCellStyle18 Me.gridAviso.RowsDefaultCellStyle = DataGridViewCellStyle27
Me.gridAviso.RowTemplate.ReadOnly = True Me.gridAviso.RowTemplate.ReadOnly = True
Me.gridAviso.RowTemplate.Resizable = System.Windows.Forms.DataGridViewTriState.[False] Me.gridAviso.RowTemplate.Resizable = System.Windows.Forms.DataGridViewTriState.[False]
Me.gridAviso.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect Me.gridAviso.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
@@ -4085,10 +4097,6 @@ Partial Class frmHauptfenster
Friend WithEvents ToolStripSeparator19 As ToolStripSeparator Friend WithEvents ToolStripSeparator19 As ToolStripSeparator
Friend WithEvents PBNIrelandFähreToolStripMenuItem As ToolStripMenuItem Friend WithEvents PBNIrelandFähreToolStripMenuItem As ToolStripMenuItem
Friend WithEvents ToolStripSeparator20 As ToolStripSeparator Friend WithEvents ToolStripSeparator20 As ToolStripSeparator
Friend WithEvents ATGesamtsicherheitVeragAGToolStripMenuItem As ToolStripMenuItem
Friend WithEvents DEGesamtsicherheitVeragGmbHToolStripMenuItem As ToolStripMenuItem
Friend WithEvents ATGesamtsicherheitIMEXCSGmbHToolStripMenuItem As ToolStripMenuItem
Friend WithEvents ATGesamtsicherheitVeragCSToolStripMenuItem As ToolStripMenuItem
Friend WithEvents VerfahrenshandbücherToolStripMenuItem As ToolStripMenuItem Friend WithEvents VerfahrenshandbücherToolStripMenuItem As ToolStripMenuItem
Friend WithEvents VerfahrenshandbuchVERAGGmbHZollWOToolStripMenuItem As ToolStripMenuItem Friend WithEvents VerfahrenshandbuchVERAGGmbHZollWOToolStripMenuItem As ToolStripMenuItem
Friend WithEvents ChecklistenToolStripMenuItem As ToolStripMenuItem Friend WithEvents ChecklistenToolStripMenuItem As ToolStripMenuItem
@@ -4154,4 +4162,10 @@ Partial Class frmHauptfenster
Friend WithEvents ToolStripMenuItem3 As ToolStripMenuItem Friend WithEvents ToolStripMenuItem3 As ToolStripMenuItem
Friend WithEvents ToolStripSeparator24 As ToolStripSeparator Friend WithEvents ToolStripSeparator24 As ToolStripSeparator
Friend WithEvents VERAGWIKIToolStripMenuItem As ToolStripMenuItem Friend WithEvents VERAGWIKIToolStripMenuItem As ToolStripMenuItem
Friend WithEvents GesamtsicherheitenToolStripMenuItem As ToolStripMenuItem
Friend WithEvents ATVeragAGToolStripMenuItem As ToolStripMenuItem
Friend WithEvents ATImexCSToolStripMenuItem As ToolStripMenuItem
Friend WithEvents ATVeragCSToolStripMenuItem As ToolStripMenuItem
Friend WithEvents DEVeragGmbHToolStripMenuItem As ToolStripMenuItem
Friend WithEvents ATUnispedGmbHToolStripMenuItem As ToolStripMenuItem
End Class End Class

71
Aviso/frmHauptfenster.vb
View File

@@ -308,13 +308,7 @@ Public Class frmHauptfenster
End If End If
End If End If
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("GESAMTSICHERHEIT", "AVISO") Then If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("GESAMTSICHERHEIT", "AVISO") Then GesamtsicherheitenToolStripMenuItem.Visible = True
DEGesamtsicherheitVeragGmbHToolStripMenuItem.Visible = True
ATGesamtsicherheitVeragAGToolStripMenuItem.Visible = True
ATGesamtsicherheitIMEXCSGmbHToolStripMenuItem.Visible = True
ATGesamtsicherheitVeragCSToolStripMenuItem.Visible = True
End If
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "ATILLA" ' Case "VERAG", "IMEX" Case "ATILLA" ' Case "VERAG", "IMEX"
@@ -1335,15 +1329,11 @@ Public Class frmHauptfenster
' End Select ' End Select
'End If 'End If
'''sqlStr &= " AND (Grenzstelle ='???' OR Status NOT IN (1)) " ' "Freigabe" nur bei Fremde Grenze anzeigen! 'sqlStr &= " AND (Grenzstelle ='???' OR Status NOT IN (1)) " ' "Freigabe" nur bei Fremde Grenze anzeigen!
''' Funktioniert nciht, wg. WO ' Funktioniert nciht, wg. WO
sqlStr &= " ORDER BY case " & " when [Status] =3 then 0 " & " when [Status] =1 then 5 " & " else 1 " & " END, VoraussichtlichesEintreffen, Grenzstelle,Ankunft " & If(cbx_My_LKW.Checked, "", ",tblSnd_SendungID")
sqlStr &= " ORDER BY case " &
" when [Status] =3 then 0 " &
" when [Status] =1 then 5 " &
" else 1 " &
" END, VoraussichtlichesEintreffen, Grenzstelle,Ankunft " & If(cbx_My_LKW.Checked, "", ",tblSnd_SendungID")
End If End If
' MsgBox(sqlStr) ' MsgBox(sqlStr)
'Dim sqlStr As String = " SELECT AvisoID, [Status],CASE WHEN LetzterMitarbeiterId=@maId then '0' ELSE '1' END as [statVorb], LKW_Nr, Dauer, Datum, AvisoEingang, Ankunft, Grenzstelle, Freigabe, LetzterMitarbeiterId AS maId, CASE WHEN LetzterMitarbeiterId=@maId then '0' ELSE '1' END as Vorbereitung,LetzterMitarbeiter,CASE WHEN [LKW_fertig] = 1 THEN 'OK' ELSE '' END AS [LKW_fertig],AvisoTVHinweis " & 'Dim sqlStr As String = " SELECT AvisoID, [Status],CASE WHEN LetzterMitarbeiterId=@maId then '0' ELSE '1' END as [statVorb], LKW_Nr, Dauer, Datum, AvisoEingang, Ankunft, Grenzstelle, Freigabe, LetzterMitarbeiterId AS maId, CASE WHEN LetzterMitarbeiterId=@maId then '0' ELSE '1' END as Vorbereitung,LetzterMitarbeiter,CASE WHEN [LKW_fertig] = 1 THEN 'OK' ELSE '' END AS [LKW_fertig],AvisoTVHinweis " &
@@ -2751,30 +2741,30 @@ Public Class frmHauptfenster
' Label4.Visible = False '- -> NICHT MEHR ' Label4.Visible = False '- -> NICHT MEHR
' cboGrenzstelle.Visible = Falsee '- -> NICHT MEHR ' cboGrenzstelle.Visible = Falsee '- -> NICHT MEHR
'BürgschaftenExcelToolStripMenuItem.Visible = True 'BürgschaftenExcelToolStripMenuItem.Visible = True
ATGesamtsicherheitVeragCSToolStripMenuItem.Visible = True ATVeragCSToolStripMenuItem.Visible = True
'ToolStripMenuItem4.Visible = True 'ToolStripMenuItem4.Visible = True
DEGesamtsicherheitVeragGmbHToolStripMenuItem.Visible = True DEVeragGmbHToolStripMenuItem.Visible = True
'ToolStripMenuItem5.Visible = True 'ToolStripMenuItem5.Visible = True
ATGesamtsicherheitVeragAGToolStripMenuItem.Visible = True ATVeragAGToolStripMenuItem.Visible = True
ElseIf VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERIMEX" Then ElseIf VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERIMEX" Then
'nix 'nix
ElseIf VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "IMEX" Then ElseIf VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "IMEX" Then
'btnGenerelleGestellungen.Visible = False 'btnGenerelleGestellungen.Visible = False
'ToolStripMenuItem4.Visible = True 'ToolStripMenuItem4.Visible = True
DEGesamtsicherheitVeragGmbHToolStripMenuItem.Visible = True DEVeragGmbHToolStripMenuItem.Visible = True
'ToolStripMenuItem5.Visible = True 'ToolStripMenuItem5.Visible = True
ATGesamtsicherheitVeragAGToolStripMenuItem.Visible = True ATVeragAGToolStripMenuItem.Visible = True
'ToolStripMenuItem6.Visible = True 'ToolStripMenuItem6.Visible = True
ATGesamtsicherheitIMEXCSGmbHToolStripMenuItem.Visible = True ATImexCSToolStripMenuItem.Visible = True
Else 'VERAG Else 'VERAG
'BürgschaftenExcelToolStripMenuItem.Visible = True 'BürgschaftenExcelToolStripMenuItem.Visible = True
ATGesamtsicherheitVeragCSToolStripMenuItem.Visible = True ATVeragCSToolStripMenuItem.Visible = True
'ToolStripMenuItem4.Visible = True 'ToolStripMenuItem4.Visible = True
DEGesamtsicherheitVeragGmbHToolStripMenuItem.Visible = True DEVeragGmbHToolStripMenuItem.Visible = True
'ToolStripMenuItem5.Visible = True 'ToolStripMenuItem5.Visible = True
ATGesamtsicherheitVeragAGToolStripMenuItem.Visible = True ATVeragAGToolStripMenuItem.Visible = True
'ToolStripMenuItem6.Visible = True 'ToolStripMenuItem6.Visible = True
ATGesamtsicherheitIMEXCSGmbHToolStripMenuItem.Visible = True ATImexCSToolStripMenuItem.Visible = True
If VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG = "WAI" Then If VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG = "WAI" Then
Button5.Visible = True Button5.Visible = True
End If End If
@@ -4290,29 +4280,22 @@ Public Class frmHauptfenster
Process.Start("https://www.ros.ie/customs-roro-control-web/ros/pbn/create") Process.Start("https://www.ros.ie/customs-roro-control-web/ros/pbn/create")
End Sub End Sub
Private Sub ATGesamtsicherheitVeragAGToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ATGesamtsicherheitVeragAGToolStripMenuItem.Click Private Sub ATGesamtsicherheitVeragAGToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ATVeragAGToolStripMenuItem.Click, DEVeragGmbHToolStripMenuItem.Click, ATImexCSToolStripMenuItem.Click, ATVeragCSToolStripMenuItem.Click, ATUnispedGmbHToolStripMenuItem.Click
Dim frm As New frmGesamtsicherheitenMenuNEU
frm.Standort = "VERAG AG" Dim frm As New frmGesamtsicherheitenMenuNEU()
Select Case sender.name
Case "ATVeragAGToolStripMenuItem" : frm.Standort = "VERAG AG"
Case "DEVeragGmbHToolStripMenuItem" : frm.Standort = "Verag GmbH"
Case "ATImexCSToolStripMenuItem" : frm.Standort = "IMEX"
Case "ATVeragCSToolStripMenuItem" : frm.Standort = "Verag CS"
Case "ATUnispedGmbHToolStripMenuItem" : frm.Standort = "Unisped GmbH"
End Select
frm.Show() frm.Show()
End Sub End Sub
Private Sub DEGesamtsicherheitVeragGmbHToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DEGesamtsicherheitVeragGmbHToolStripMenuItem.Click
Dim frm As New frmGesamtsicherheitenMenuNEU
frm.Standort = "Verag GmbH"
frm.Show()
End Sub
Private Sub ATGesamtsicherheitIMEXCSGmbHToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ATGesamtsicherheitIMEXCSGmbHToolStripMenuItem.Click
Dim frm As New frmGesamtsicherheitenMenuNEU
frm.Standort = "IMEX"
frm.Show()
End Sub
Private Sub ATGesamtsicherheitVeragCSToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ATGesamtsicherheitVeragCSToolStripMenuItem.Click
Dim frm As New frmGesamtsicherheitenMenuNEU
frm.Standort = "Verag CS"
frm.Show()
End Sub
Private Sub gridAviso_CellPainting(sender As Object, e As DataGridViewCellPaintingEventArgs) Handles gridAviso.CellPainting Private Sub gridAviso_CellPainting(sender As Object, e As DataGridViewCellPaintingEventArgs) Handles gridAviso.CellPainting
If e.RowIndex <> -1 AndAlso gridAviso.Columns(e.ColumnIndex).Name = "Status" Then If e.RowIndex <> -1 AndAlso gridAviso.Columns(e.ColumnIndex).Name = "Status" Then
@@ -4556,6 +4539,8 @@ Public Class frmHauptfenster
Private Sub VERAGWIKIToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles VERAGWIKIToolStripMenuItem.Click Private Sub VERAGWIKIToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles VERAGWIKIToolStripMenuItem.Click
End Sub End Sub
End Class End Class
Public Class AvisoStatusFunctions Public Class AvisoStatusFunctions

2
Aviso/frmSendungsdetailsNEU.vb
View File

@@ -4112,7 +4112,7 @@ Public Class frmSendungsdetailsNEU
AvisoStatusFunctions.insertSendungsVermerk(SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID, AvisoId, "An Fremdspediteur avisiert (Warenort)", 98) AvisoStatusFunctions.insertSendungsVermerk(SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID, AvisoId, "An Fremdspediteur avisiert (Warenort)", 98)
Mail.HTMLBody = "<div style=""font-family:Calibri, Arial;font-size:15px;"">" & TextHTML & SDL.cFakturierung.getSignature("DE") & "</div>" Mail.HTMLBody = "<div style=""font-family:Calibri, Arial;font-size:15px;"">" & TextHTML & SDL.cFakturierung.getSignature("DE",,,,,, False) & "</div>"
End If End If

14
Gemeinsames/Gemeinsames.vbproj
View File

@@ -96,6 +96,10 @@
</PropertyGroup> </PropertyGroup>
<ItemGroup> <ItemGroup>
<Reference Include="Accessibility" /> <Reference Include="Accessibility" />
<Reference Include="DAKOSY_Worker, Version=1.0.0.0, Culture=neutral, processorArchitecture=AMD64">
<SpecificVersion>False</SpecificVersion>
<HintPath>..\..\..\ADMIN\ADMIN\DAKOSY_Worker\bin\Debug\DAKOSY_Worker.dll</HintPath>
</Reference>
<Reference Include="GrapeCity.ActiveReports"> <Reference Include="GrapeCity.ActiveReports">
<HintPath>C:\Program Files (x86)\GrapeCity\ActiveReports 15\Tools\GrapeCity.ActiveReports.dll</HintPath> <HintPath>C:\Program Files (x86)\GrapeCity\ActiveReports 15\Tools\GrapeCity.ActiveReports.dll</HintPath>
</Reference> </Reference>
@@ -129,10 +133,6 @@
<Reference Include="System.Core" /> <Reference Include="System.Core" />
<Reference Include="System.Xml.Linq" /> <Reference Include="System.Xml.Linq" />
<Reference Include="System.Data.DataSetExtensions" /> <Reference Include="System.Data.DataSetExtensions" />
<Reference Include="VERAG_PROG_ALLGEMEIN, Version=1.0.0.0, Culture=neutral, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>..\..\..\VERAG_PROG_ALLGEMEIN\bin\Debug\VERAG_PROG_ALLGEMEIN.dll</HintPath>
</Reference>
</ItemGroup> </ItemGroup>
<ItemGroup> <ItemGroup>
<Import Include="Microsoft.VisualBasic" /> <Import Include="Microsoft.VisualBasic" />
@@ -310,9 +310,9 @@
</Content> </Content>
</ItemGroup> </ItemGroup>
<ItemGroup> <ItemGroup>
<ProjectReference Include="..\..\..\ADMIN\ADMIN\DAKOSY_Worker\DAKOSY_Worker_lib.vbproj"> <ProjectReference Include="..\..\..\SDL\SDL\VERAG_PROG_ALLGEMEIN\VERAG_PROG_ALLGEMEIN.vbproj">
<Project>{50e8e49b-4fd9-4dd4-b159-bdc2b7d0e94f}</Project> <Project>{a3b497bd-842c-4a2b-b398-ed1976849df1}</Project>
<Name>DAKOSY_Worker_lib</Name> <Name>VERAG_PROG_ALLGEMEIN</Name>
</ProjectReference> </ProjectReference>
</ItemGroup> </ItemGroup>
<Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" /> <Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />