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

Merge branch 'master' of https://verag.visualstudio.com/DISPO/_git/DISPO

Browse Source
This commit is contained in:
Andreas Luxbauer
2024-03-19 08:43:14 +01:00
parent 51ab6082dd bfa0d5aa84
commit eddf551256
33 changed files with 1181 additions and 210 deletions
Download Patch File Download Diff File Expand all files Collapse all files

106
UID/DISPO.vbproj
View File

@@ -32,7 +32,7 @@
<BootstrapperEnabled>false</BootstrapperEnabled>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
<PlatformTarget>AnyCPU</PlatformTarget>
<PlatformTarget>x64</PlatformTarget>
<DebugSymbols>true</DebugSymbols>
<DebugType>full</DebugType>
<DefineDebug>true</DefineDebug>
@@ -57,7 +57,7 @@
<OptionExplicit>On</OptionExplicit>
</PropertyGroup>
<PropertyGroup>
<OptionCompare>Binary</OptionCompare>
<OptionCompare>Text</OptionCompare>
</PropertyGroup>
<PropertyGroup>
<OptionStrict>Off</OptionStrict>
@@ -72,10 +72,10 @@
<ApplicationManifest>My Project\app.manifest</ApplicationManifest>
</PropertyGroup>
<PropertyGroup>
<AutoGenerateBindingRedirects>true</AutoGenerateBindingRedirects>
<AutoGenerateBindingRedirects>false</AutoGenerateBindingRedirects>
</PropertyGroup>
<PropertyGroup>
<ManifestCertificateThumbprint>443CA3745EE904EED98572A89099259301BA06D1</ManifestCertificateThumbprint>
<ManifestCertificateThumbprint>4BDC042C7E79547CFC124EDDCBA8A805E84C6BDB</ManifestCertificateThumbprint>
</PropertyGroup>
<PropertyGroup>
<ManifestKeyFile>
@@ -92,48 +92,81 @@
</PropertyGroup>
<ItemGroup>
<Reference Include="Accessibility" />
<Reference Include="Dynamsoft.Forms.Viewer, Version=7.0.0.320, Culture=neutral, PublicKeyToken=298ad97013b423eb" />
<Reference Include="Dynamsoft.ImageCore, Version=7.0.0.3020, Culture=neutral, PublicKeyToken=298ad97013b423eb" />
<Reference Include="Dynamsoft.PDF, Version=7.0.0.320, Culture=neutral, PublicKeyToken=298ad97013b423eb" />
<Reference Include="Dynamsoft.Twain, Version=7.0.0.320, Culture=neutral, PublicKeyToken=298ad97013b423eb" />
<Reference Include="Ghostscript.NET, Version=1.2.1.0, Culture=neutral, PublicKeyToken=f85051de34525b59" />
<Reference Include="GrapeCity.ActiveReports.ArsClient.v12, Version=12.2.13986.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff" />
<Reference Include="GrapeCity.ActiveReports.Chart.v12, Version=12.2.13986.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff" />
<Reference Include="GrapeCity.ActiveReports.Design.Win.v12, Version=12.2.13986.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL" />
<Reference Include="GrapeCity.ActiveReports.Diagnostics.v12, Version=12.2.13986.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff" />
<Reference Include="GrapeCity.ActiveReports.Document.v12, Version=12.2.13986.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff" />
<Reference Include="GrapeCity.ActiveReports.Export.Document.v12, Version=12.2.13986.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL" />
<Reference Include="GrapeCity.ActiveReports.Export.Pdf.v12, Version=12.2.13986.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL" />
<Reference Include="GrapeCity.ActiveReports.Extensibility.v12, Version=12.2.13986.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff" />
<Reference Include="GrapeCity.ActiveReports.v12, Version=12.2.13986.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff" />
<Reference Include="GrapeCity.ActiveReports.Viewer.Win.v12, Version=12.2.13986.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL" />
<Reference Include="itextsharp, Version=5.5.5.0, Culture=neutral, PublicKeyToken=8354ae6d2174ddca" />
<Reference Include="Dynamsoft.Forms.Viewer">
<HintPath>..\..\SDL\SDL\SDL\bin\Debug\Dynamsoft.Forms.Viewer.dll</HintPath>
</Reference>
<Reference Include="Dynamsoft.ImageCore">
<HintPath>..\..\SDL\SDL\VERAG_PROG_ALLGEMEIN\bin\Debug\Dynamsoft.ImageCore.dll</HintPath>
</Reference>
<Reference Include="Dynamsoft.PDF, Version=7.0.0.320, Culture=neutral, PublicKeyToken=298ad97013b423eb">
<HintPath>..\..\dll\Dynamsoft\8.0.0\Dynamsoft.PDF.dll</HintPath>
</Reference>
<Reference Include="Dynamsoft.Twain">
<HintPath>..\..\SDL\SDL\SDL\bin\Debug\Dynamsoft.Twain.dll</HintPath>
</Reference>
<Reference Include="Gemeinsames, Version=1.0.0.0, Culture=neutral, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>..\..\AVISO\AVISO\Gemeinsames\bin\Debug\Gemeinsames.dll</HintPath>
</Reference>
<Reference Include="Ghostscript.NET, Version=1.2.1.0, Culture=neutral, PublicKeyToken=f85051de34525b59">
<HintPath>F:\PROGRAMMIERUNG\dll\Ghostscript.NET.dll</HintPath>
</Reference>
<Reference Include="GrapeCity.ActiveReports">
<HintPath>..\..\SDL\SDL\SDL\bin\Debug\GrapeCity.ActiveReports.dll</HintPath>
</Reference>
<Reference Include="GrapeCity.ActiveReports.ArsClient.v12, Version=12.2.13986.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff">
<HintPath>..\..\dll\GrapeCity.ActiveReports.ArsClient.v12.dll</HintPath>
</Reference>
<Reference Include="GrapeCity.ActiveReports.Chart">
<HintPath>..\..\SDL\SDL\SDL\bin\Debug\GrapeCity.ActiveReports.Chart.dll</HintPath>
</Reference>
<Reference Include="GrapeCity.ActiveReports.Core.Document">
<HintPath>..\..\SDL\SDL\SDL\bin\Debug\GrapeCity.ActiveReports.Core.Document.dll</HintPath>
</Reference>
<Reference Include="GrapeCity.ActiveReports.Design.Win">
<HintPath>..\..\SDL\SDL\SDL\bin\Debug\GrapeCity.ActiveReports.Design.Win.dll</HintPath>
</Reference>
<Reference Include="GrapeCity.ActiveReports.Document">
<HintPath>..\..\SDL\SDL\SDL\bin\Debug\GrapeCity.ActiveReports.Document.dll</HintPath>
</Reference>
<Reference Include="GrapeCity.ActiveReports.Export.Pdf">
<HintPath>..\..\SDL\SDL\SDL\bin\Debug\GrapeCity.ActiveReports.Export.Pdf.dll</HintPath>
</Reference>
<Reference Include="GrapeCity.ActiveReports.Viewer.Common">
<HintPath>..\..\SDL\SDL\SDL\bin\Debug\GrapeCity.ActiveReports.Viewer.Common.dll</HintPath>
</Reference>
<Reference Include="GrapeCity.ActiveReports.Viewer.Win">
<HintPath>..\..\SDL\SDL\SDL\bin\Debug\GrapeCity.ActiveReports.Viewer.Win.dll</HintPath>
</Reference>
<Reference Include="itextsharp, Version=5.5.5.0, Culture=neutral, PublicKeyToken=8354ae6d2174ddca">
<HintPath>..\..\dll\itextsharp.dll</HintPath>
</Reference>
<Reference Include="Microsoft.ReportViewer.Common, Version=12.0.0.0, Culture=neutral, PublicKeyToken=89845dcd8080cc91, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>..\packages\Microsoft.ReportingServices.ReportViewerControl.WebForms.150.900.148\lib\net40\Microsoft.ReportViewer.Common.dll</HintPath>
<HintPath>..\..\dll\Report\Microsoft.ReportViewer.Common.dll</HintPath>
</Reference>
<Reference Include="Microsoft.ReportViewer.DataVisualization, Version=12.0.0.0, Culture=neutral, PublicKeyToken=89845dcd8080cc91, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>..\packages\Microsoft.ReportingServices.ReportViewerControl.WebForms.150.900.148\lib\net40\Microsoft.ReportViewer.DataVisualization.dll</HintPath>
<HintPath>..\..\dll\Microsoft.ReportViewer.DataVisualization.dll</HintPath>
</Reference>
<Reference Include="Microsoft.ReportViewer.Design, Version=12.0.0.0, Culture=neutral, PublicKeyToken=89845dcd8080cc91, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>..\packages\Microsoft.ReportingServices.ReportViewerControl.WebForms.150.900.148\lib\net40\Microsoft.ReportViewer.Design.dll</HintPath>
<HintPath>..\..\dll\Microsoft.ReportViewer.Design.dll</HintPath>
</Reference>
<Reference Include="Microsoft.ReportViewer.WebDesign, Version=12.0.0.0, Culture=neutral, PublicKeyToken=89845dcd8080cc91, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>..\packages\Microsoft.ReportingServices.ReportViewerControl.WebForms.150.900.148\lib\net40\Microsoft.ReportViewer.WebDesign.dll</HintPath>
<HintPath>..\..\dll\Microsoft.ReportViewer.WebDesign.dll</HintPath>
</Reference>
<Reference Include="Microsoft.ReportViewer.WebForms, Version=12.0.0.0, Culture=neutral, PublicKeyToken=89845dcd8080cc91, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>..\packages\Microsoft.ReportingServices.ReportViewerControl.WebForms.150.900.148\lib\net40\Microsoft.ReportViewer.WebForms.dll</HintPath>
<HintPath>..\..\dll\Microsoft.ReportViewer.WebForms.dll</HintPath>
</Reference>
<Reference Include="Microsoft.ReportViewer.WinForms, Version=12.0.0.0, Culture=neutral, PublicKeyToken=89845dcd8080cc91, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>..\packages\Microsoft.ReportingServices.ReportViewerControl.WebForms.150.900.148\lib\net40\Microsoft.ReportViewer.WinForms.dll</HintPath>
<HintPath>..\..\dll\Microsoft.ReportViewer.WinForms.dll</HintPath>
</Reference>
<Reference Include="PdfSharp.resources">
<HintPath>..\..\..\dll\PdfSharp.resources.dll</HintPath>
<HintPath>..\..\dll\PdfSharp.resources.dll</HintPath>
</Reference>
<Reference Include="System" />
<Reference Include="System.Configuration" />
@@ -154,9 +187,6 @@
<Reference Include="System.Core" />
<Reference Include="System.Xml.Linq" />
<Reference Include="System.Data.DataSetExtensions" />
<Reference Include="WinSCPnet">
<HintPath>..\..\..\dll\WinSCPnet.dll</HintPath>
</Reference>
</ItemGroup>
<ItemGroup>
<Import Include="Microsoft.VisualBasic" />
@@ -183,9 +213,11 @@
<Compile Include="cDispoAuftraege.vb" />
<Compile Include="cMeineFunktionen.vb" />
<Compile Include="cProgramFunctions.vb" />
<Compile Include="cSQL.vb" />
<Compile Include="cSqlDb.vb" />
<Compile Include="cTripOLD.vb" />
<Compile Include="cTrips.vb" />
<Compile Include="cUsersettings.vb" />
<Compile Include="DataSet1.Designer.vb">
<AutoGen>True</AutoGen>
<DesignTime>True</DesignTime>
@@ -248,6 +280,12 @@
<Compile Include="frmLeer\usrcntlTrips.vb">
<SubType>UserControl</SubType>
</Compile>
<Compile Include="frmNotify.Designer.vb">
<DependentUpon>frmNotify.vb</DependentUpon>
</Compile>
<Compile Include="frmNotify.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="My Project\Resources.Designer.vb">
<AutoGen>True</AutoGen>
<DesignTime>True</DesignTime>
@@ -499,6 +537,9 @@
<EmbeddedResource Include="frmLeer\usrcntlTrips.resx">
<DependentUpon>usrcntlTrips.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmNotify.resx">
<DependentUpon>frmNotify.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Reports\Auswertung\frmAuswertung.resx">
<DependentUpon>frmAuswertung.vb</DependentUpon>
</EmbeddedResource>
@@ -742,6 +783,7 @@
<None Include="Resources\Auftrag30.png" />
<None Include="Resources\Firmen30_2.png" />
<None Include="Resources\Auftrag_30.png" />
<None Include="Resources\aviso_messenger.png" />
<Content Include="Resources\Info.txt" />
<None Include="Resources\lorry_motion.jpg" />
<None Include="Resources\lorry_motion.png" />
@@ -1558,7 +1600,9 @@
<FileType>Satellite</FileType>
</PublishFile>
</ItemGroup>
<ItemGroup />
<ItemGroup>
<WCFMetadata Include="Connected Services\" />
</ItemGroup>
<Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
<!-- To modify your build process, add your task inside one of the targets below and uncomment it.
Other similar extension points exist, see Microsoft.Common.targets.

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

@@ -22,7 +22,7 @@ Namespace My.Resources
'''<summary>
''' Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw.
'''</summary>
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "16.0.0.0"), _
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "17.0.0.0"), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
Global.Microsoft.VisualBasic.HideModuleNameAttribute()> _
@@ -61,11 +61,11 @@ Namespace My.Resources
End Property
'''<summary>
''' Sucht eine lokalisierte Zeichenfolge, die ähnelt.
''' Sucht eine lokalisierte Zeichenfolge, die 4444 ähnelt.
'''</summary>
Friend ReadOnly Property adasdasdd44() As String
Friend ReadOnly Property _87978() As String
Get
Return ResourceManager.GetString("adasdasdd44", resourceCulture)
Return ResourceManager.GetString("87978", resourceCulture)
End Get
End Property
@@ -79,6 +79,16 @@ Namespace My.Resources
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property aviso_messenger() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("aviso_messenger", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
@@ -130,7 +140,16 @@ Namespace My.Resources
End Property
'''<summary>
''' Sucht eine lokalisierte Zeichenfolge, die Data Source=192.168.0.94\SQLEXPRESS;Initial Catalog=DISPO;Integrated Security=false;User ID=sa;Password=BmWr501956; ähnelt.
''' Sucht eine lokalisierte Zeichenfolge, die [sqlguide01.verag.ost.dmn].DISPO.dbo.tblAuftraege ähnelt.
'''</summary>
Friend ReadOnly Property Conn_DBO_Aufträge() As String
Get
Return ResourceManager.GetString("Conn_DBO_Aufträge", resourceCulture)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Zeichenfolge, die Data Source=sqlguide01.verag.ost.dmn;Initial Catalog=DISPO;Integrated Security=false;User ID=sa;Password=BmWr501956; ähnelt.
'''</summary>
Friend ReadOnly Property connStringDISPO() As String
Get
@@ -148,7 +167,7 @@ Namespace My.Resources
End Property
'''<summary>
''' Sucht eine lokalisierte Zeichenfolge, die Data Source=192.168.0.94\SQLEXPRESS;Initial Catalog=ADMIN;Integrated Security=false;User ID=sa;Password=BmWr501956; ähnelt.
''' Sucht eine lokalisierte Zeichenfolge, die Data Source=sqlguide01.verag.ost.dmn;Initial Catalog=ADMIN;Integrated Security=false;User ID=sa;Password=BmWr501956; ähnelt.
'''</summary>
Friend ReadOnly Property connStringDispoAdmin() As String
Get
@@ -415,7 +434,7 @@ Namespace My.Resources
End Property
'''<summary>
''' Sucht eine lokalisierte Zeichenfolge, die 1.0.9.3 ähnelt.
''' Sucht eine lokalisierte Zeichenfolge, die 1.0.10.8 ähnelt.
'''</summary>
Friend ReadOnly Property Version() As String
Get

18
UID/My Project/Resources.resx
View File

@@ -148,14 +148,14 @@
<data name="sanduhr" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\sanduhr.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="adasdasdd44" xml:space="preserve">
<value />
<data name="87978" xml:space="preserve">
<value>4444</value>
</data>
<data name="uid" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\uid.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Version" xml:space="preserve">
<value>1.0.9.3</value>
<value>1.0.10.8</value>
</data>
<data name="del" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\del.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -188,7 +188,8 @@
<value>..\Resources\dispo.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="connStringDispoAdmin" xml:space="preserve">
<value>Data Source=192.168.0.94\SQLEXPRESS;Initial Catalog=ADMIN;Integrated Security=false;User ID=sa;Password=BmWr501956;</value>
<value>Data Source=sqlguide01.verag.ost.dmn;Initial Catalog=ADMIN;Integrated Security=false;User ID=sa;Password=BmWr501956;</value>
<comment>Data Source=sqlguide01.verag.ost.dmn;Initial Catalog=ADMIN;Integrated Security=false;User ID=sa;Password=BmWr501956;</comment>
</data>
<data name="bericht_buchhaltung" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\bericht_buchhaltung.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -206,7 +207,8 @@
<value>..\Resources\links20.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="connStringDISPO" xml:space="preserve">
<value>Data Source=192.168.0.94\SQLEXPRESS;Initial Catalog=DISPO;Integrated Security=false;User ID=sa;Password=BmWr501956;</value>
<value>Data Source=sqlguide01.verag.ost.dmn;Initial Catalog=DISPO;Integrated Security=false;User ID=sa;Password=BmWr501956;</value>
<comment>Data Source=sqlguide01.verag.ost.dmn;Initial Catalog=DISPO;Integrated Security=false;User ID=sa;Password=BmWr501956;</comment>
</data>
<data name="uhr_notime" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\uhr_notime.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -223,4 +225,10 @@
<data name="Print20x20" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Print20x20.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Conn_DBO_Aufträge" xml:space="preserve">
<value>[sqlguide01.verag.ost.dmn].DISPO.dbo.tblAuftraege</value>
</data>
<data name="aviso_messenger" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\aviso_messenger.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
</root>

7
UID/My Project/licenses.licx
View File

@@ -1,5 +1,2 @@
GrapeCity.ActiveReports.SectionReport, GrapeCity.ActiveReports.v12, Version=12.2.13986.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff
GrapeCity.ActiveReports.SectionReport, GrapeCity.ActiveReports.v9, Version=9.1.2302.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff
GrapeCity.ActiveReports.Viewer.Win.Viewer, GrapeCity.ActiveReports.Viewer.Win.v12, Version=12.2.13986.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff
GrapeCity.ActiveReports.Viewer.Win.Viewer, GrapeCity.ActiveReports.Viewer.Win.v9, Version=9.1.2302.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff
GrapeCity.ActiveReports.Export.Pdf.Section.PdfExport, GrapeCity.ActiveReports.Export.Pdf.v12, Version=12.2.13986.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff
GrapeCity.ActiveReports.Viewer.Win.Viewer, GrapeCity.ActiveReports.Viewer.Win, Version=15.2.3.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff
GrapeCity.ActiveReports.SectionReport, GrapeCity.ActiveReports, Version=15.2.3.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff

11
UID/Reports/Auswertung/cAbfragen.vb
View File

@@ -18,7 +18,8 @@ GROUP BY DATEADD(MONTH, DateDiff(Year, 0, Abfertigungsdatum), 0),DATEADD(MONTH,
,vork.preis as vorkosten
,Rechnungsausgang.Abfertigungsdatum as Datum
from dbo.Vorkosten as vork
right join dbo.Rechnungsausgang on Rechnungsausgang.AbfertigungsNr = vork.AbfertigungsNr where Rechnungsausgang.FilialenNr = '{0}' AND Abfertigungsdatum >= '{1}' and Abfertigungsdatum <= '{2}'
right join dbo.Rechnungsausgang on Rechnungsausgang.AbfertigungsNr = vork.AbfertigungsNr --AND vork.filialenNr = atr_filialennr
where Rechnungsausgang.FilialenNr = '{0}' AND Abfertigungsdatum >= '{1}' and Abfertigungsdatum <= '{2}'
) as meh
GROUP BY DATEADD(MONTH, DateDiff(Year, 0, Datum), 0),DATEADD(MONTH, DATEDIFF(MONTH, 0, Datum ), 0)"
@@ -56,7 +57,7 @@ case
else sum (SteuerfreierGesamtbetrag + SteuerpflichtigerGesamtbetrag - Vorkosten)
end as Marge
from dbo.Rechnungsausgang as RechAus
left join [BUCHHALTUNG\SQLExpress].DISPO.dbo.tblAuftraege on rechaus.AbfertigungsNr = atr_frachtpos
left join [sqlguide01.verag.ost.dmn].DISPO.dbo.tblAuftraege on rechaus.AbfertigungsNr = atr_frachtpos AND rechaus.filialenNr = atr_filialennr
where rechaus.FilialenNr = '{0}'
AND atr_datum between '{1}' and '{2}' AND (atr_auftragsart = 'Transport' OR atr_auftragsart = 'Handling')
-- AND abfertigungsnr = @AbfertigungsNr
@@ -70,7 +71,7 @@ max(DATENAME(YEAR, (atr_datum))) As Jahr,
sum(Vorkosten) as Vorkosten FROM (
SELECT Vorkosten, atr_datum, ROW_NUMBER() OVER(PARTITION BY AbfertigungsNr ORDER BY AbfertigungsNr DESC) as rn
from dbo.Rechnungsausgang as RechAus
left join [BUCHHALTUNG\SQLExpress].DISPO.dbo.tblAuftraege on rechaus.AbfertigungsNr = atr_frachtpos
left join [sqlguide01.verag.ost.dmn].DISPO.dbo.tblAuftraege on rechaus.AbfertigungsNr = atr_frachtpos AND rechaus.filialenNr = atr_filialennr
where rechaus.FilialenNr = '{0}'
AND atr_datum between '{1}' and '{2}' AND (atr_auftragsart = 'Transport' OR atr_auftragsart = 'Handling')
) a
@@ -86,7 +87,7 @@ sum (vorkosten) as Vorkosten,
sum (Rechnungsausgang.SteuerfreierGesamtbetrag + Rechnungsausgang.SteuerpflichtigerGesamtbetrag - Vorkosten) as Marge
FROM ((VERAG.dbo.Speditionsbuch --as SpedBuch
inner join [BUCHHALTUNG\SQLEXPRESS].DISPO.dbo.tblAuftraege as dispoauftraege on atr_speditionsbuchNr = Speditionsbuch.FilialenNr AND atr_frachtpos = Speditionsbuch.AbfertigungsNr)
inner join [sqlguide01.verag.ost.dmn].DISPO.dbo.tblAuftraege as dispoauftraege on atr_speditionsbuchNr = Speditionsbuch.FilialenNr AND atr_frachtpos = Speditionsbuch.AbfertigungsNr)
inner join VERAG.dbo.Rechnungsausgang on atr_speditionsbuchNr = Rechnungsausgang.FilialenNr AND atr_frachtpos = Rechnungsausgang.AbfertigungsNr)
where atr_datum between '{1}' and '{2}'
@@ -105,7 +106,7 @@ sum (SteuerfreierGesamtbetrag + SteuerpflichtigerGesamtbetrag) as Rechnungen,
sum (SteuerfreierGesamtbetrag + SteuerpflichtigerGesamtbetrag - Vorkosten) as Marge
from dbo.Rechnungsausgang as RechAus
left join [BUCHHALTUNG\SQLExpress].DISPO.dbo.tblAuftraege on rechaus.AbfertigungsNr = atr_frachtpos
left join [sqlguide01.verag.ost.dmn].DISPO.dbo.tblAuftraege on rechaus.AbfertigungsNr = atr_frachtpos AND rechaus.filialenNr = atr_filialennr
where rechaus.FilialenNr = '{0}' AND atr_datum between '{1}' and '{2}' AND (atr_auftragsart = 'Transport' OR atr_auftragsart = 'Handling')
GROUP BY DATEADD(MONTH, DateDiff(Year, 0, atr_datum), 0),DATEADD(MONTH, DATEDIFF(MONTH, 0, atr_datum ), 0)

21
UID/Reports/Auswertung/frmAuswertung.vb
View File

@@ -250,6 +250,7 @@ Public Class frmAuswertung
Dim vpasql As New VERAG_PROG_ALLGEMEIN.SQL
dt = vpasql.loadDgvBySql(sql, database)
'dt = RemoveDuplicateRows(dt, "atr_frachtpos")
printauswertung.von = von
printauswertung.bis = bis
@@ -270,4 +271,24 @@ Public Class frmAuswertung
Return filialnr
End Function
Public Function RemoveDuplicateRows(ByVal dTable As DataTable, ByVal colName As String) As DataTable
Dim hTable As Hashtable = New Hashtable()
Dim duplicateList As ArrayList = New ArrayList()
For Each drow As DataRow In dTable.Rows
If hTable.Contains(drow(colName)) Then
duplicateList.Add(drow)
Else
hTable.Add(drow(colName), String.Empty)
End If
Next
For Each dRow As DataRow In duplicateList
dTable.Rows.Remove(dRow)
Next
Return dTable
End Function
End Class

6
UID/Reports/TransportAuftrag/rptTransportauftrag.vb
View File

@@ -33,8 +33,9 @@ Public Class rptTransportauftrag
txtDatum.Text = Date.Now.Day & "." & Date.Now.Month & "." & Date.Now.Year
txtSachbearbeiter.Text = "Sachbearbeiter: " & VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME
Dim FilialNr = ""
If Standort = "4807" Or Standort = "VERAG AG" Then
FilialNr = "4807"
txtVerag.Text = "VERAG Spedition AG"
txtVeragAnschrift.Text = "AT 4975 - Suben 100" & vbCrLf &
"Tel. +43 77 11 / 27 77 - 31" & vbCrLf &
@@ -44,6 +45,7 @@ Public Class rptTransportauftrag
"FN:  216714y" & vbCrLf &
"UID : ATU 53187000"
ElseIf Standort = "4819" Or Standort = "VERAG GmbH" Then
FilialNr = "4819"
txtVerag.Text = "VERAG Spedition GmbH"
txtVeragAnschrift.Text = "Hartham 6" & vbCrLf &
"D 94152 Neuhaus am Inn" & vbCrLf &
@@ -56,7 +58,7 @@ Public Class rptTransportauftrag
"A-4975 Suben, Nr. 100"
End If
txtFrachtposition.Text = FrachtPostHeader.Substring(1)
txtFrachtposition.Text = FilialNr & "/" & FrachtPostHeader.Substring(1)
If auftraglist(0).atr_TransportauftragArt = "NACH" Then
txtAnFirma.Text = auftraglist(0).atr_frachtfAb_firma
txtAnFirmaStrasse.Text = auftraglist(0).atr_frachtfAb_str & " " & auftraglist(0).atr_frachtfAb_strnr

34
UID/Reports/TransportAuftrag/subrptTrip.vb
View File

@@ -13,6 +13,8 @@ Public Class subrptTrip
End Sub
Private Sub Detail_Format(sender As Object, e As EventArgs) Handles Detail.Format
' txtBemTitel.Visible = True : txtVerzollTitel.Visible = True : txtFrachtkoTitel.Visible = True
Line3.Visible = True
Shape1.Height = 0
@@ -36,33 +38,16 @@ Public Class subrptTrip
txtFrachtkosten.Text = auftraglist(i).atr_frachtkosten
'If auftraglist(i).atr_frachtkosten = "" Then txtFrachtkoTitel.Visible = False
If Not txtBemerkung.Text = "" Then
txtBemTitel.Visible = True
Else
txtBemTitel.Visible = False
End If
If Not txtVerzollungsadresse.Text = "" Then
txtVerzollTitel.Visible = True
Else
txtVerzollTitel.Visible = False
End If
If Not txtFrachtkosten.Text = "" Then
txtFrachtkoTitel.Visible = True
Else
txtFrachtkoTitel.Visible = False
End If
'If txtVerzollTitel.Visible = False And txtBemTitel.Visible = False Then
' Line3.Visible = False
'Else
' Line3.Visible = True
'End If
If auftraglist(i).atr_bemerkung.ToString.Length = 0 Then txtBemerkung.Text = "---"
If auftraglist(i).atr_verzollungsadresse.ToString.Length = 0 Then txtVerzollungsadresse.Text = "---"
If auftraglist(i).atr_frachtkosten.ToString.Length = 0 Then txtFrachtkosten.Text = "---"
i = i + 1
End Sub
Private Sub Detail_BeforePrint(sender As Object, e As EventArgs) Handles Detail.BeforePrint
Dim dh As Integer = Detail.Height
'Shape1.Height = Detail.Height - 0.2
If Not txtBemerkung.Text = "" Or Not txtVerzollungsadresse.Text = "" Or Not txtFrachtkosten.Text = "" Then
@@ -74,13 +59,6 @@ Public Class subrptTrip
End If
'If Line3.Visible = False Then
' Shape1.Height = subrptTransportauftragLadung.Location.Y + subrptTransportauftragLadung.Height - 0.15
'Else
' 'Shape1.Height = txtEnd.Location.Y 'dh' - 0.1
' Shape1.Height = Detail.Height - 0.2
End Sub
Private Sub Detail_AfterPrint(sender As Object, e As EventArgs) Handles Detail.AfterPrint

8
UID/Reports/frmPrintActiveReports.vb
View File

@@ -73,9 +73,13 @@ Public Class frmPrintActiveReports
savefiledialog.ShowDialog()
Dim p As New GrapeCity.ActiveReports.Export.Pdf.Section.PdfExport
If savefiledialog.FileName <> "" Then p.Export(Viewer1.Document, savefiledialog.FileName)
Try
If savefiledialog.FileName <> "" Then p.Export(Viewer1.Document, savefiledialog.FileName)
If System.IO.File.Exists(savefiledialog.FileName) = True Then Process.Start(savefiledialog.FileName)
If System.IO.File.Exists(savefiledialog.FileName) = True Then Process.Start(savefiledialog.FileName)
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub

BIN
UID/Resources/aviso_messenger.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 16 KiB

10
UID/app.config
View File

@@ -20,4 +20,14 @@
<!--<add name="EventLog" type="System.Diagnostics.EventLogTraceListener" initializeData="APPLICATION_NAME"/> -->
</sharedListeners>
</system.diagnostics>
<system.serviceModel>
<bindings>
<basicHttpBinding>
<binding name="BasicHttpBinding_IRKSVWcf" />
</basicHttpBinding>
</bindings>
<client>
<endpoint address="http://localhost:8733/Design_Time_Addresses/RKSVCompleteServer/Service1/" binding="basicHttpBinding" bindingConfiguration="BasicHttpBinding_IRKSVWcf" contract="RKSVServer.IRKSVWcf" name="BasicHttpBinding_IRKSVWcf" />
</client>
</system.serviceModel>
<startup><supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.7"/></startup></configuration>

2
UID/cBinding.vb
View File

@@ -87,7 +87,7 @@ Public Class cBinding
Dim builder As New SqlCommandBuilder(bindingDataAdapter)
If Not modrows = bindingDataAdapter.Update(bindingdataSet, tablename) Then
' MsgBox(tablename & ": Es ist ein SQL-Fehler beim Updaten der Daten aufgetreten!")
'MsgBox(tablename & ": Es ist ein SQL-Fehler beim Updaten der Daten aufgetreten!")
End If
Return True

8
UID/cDispoAuftraege.vb
View File

@@ -504,13 +504,13 @@ Public Class cDispoAuftraege
cmd.Parameters.AddWithValue("@atr_id", atr_id)
Dim dr = cmd.ExecuteReader()
If dr.Read Then
For Each l In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
For Each i In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(i.Scalarvariable)
If dr.Item(l.Text) Is DBNull.Value Then
If dr.Item(i.Text) Is DBNull.Value Then
propInfo.SetValue(Me, Nothing)
Else
propInfo.SetValue(Me, dr.Item(l.Text))
propInfo.SetValue(Me, dr.Item(i.Text))
End If
Next

128
UID/cSQL.vb Normal file
View File

@@ -0,0 +1,128 @@
Imports System.Data.SqlClient
Public Class cSQL
Public Shared Sub SQL2DS(ByRef selector As String, ByRef ds As DataSet, Optional ByRef DBConnect As String = "")
If DBConnect = "" Then DBConnect = My.Resources.connStringDISPO
Dim con As New SqlConnection
Dim cmd As New SqlCommand
con.ConnectionString = DBConnect 'My.Resources.connStringDISPO
cmd.Connection = con
Dim dataadapter As New SqlDataAdapter(selector, con)
con.Open()
dataadapter.Fill(ds)
con.Close()
End Sub
Public Shared Sub UpdateSQL(ByRef table As String, ByRef values As String, ByRef where As String, Optional ByRef DBConnect As String = "")
If DBConnect = "" Then DBConnect = My.Resources.connStringDISPO
Dim con As New SqlConnection
Dim cmd As New SqlCommand
con.ConnectionString = DBConnect ' My.Resources.connStringDISPO
cmd.Connection = con
con.Open()
cmd.CommandText = "UPDATE " & table & " SET " & values & " WHERE " & where & ""
cmd.ExecuteNonQuery()
con.Close()
End Sub
Public Shared Sub InsertSQL(ByRef table As String, ByRef insert As String, Optional ByRef DBConnect As String = "")
If DBConnect = "" Then DBConnect = My.Resources.connStringDISPO
Dim con As New SqlConnection
Dim cmd As New SqlCommand
con.ConnectionString = DBConnect ' My.Resources.connStringDISPO
cmd.Connection = con
con.Open()
cmd.CommandText = "INSERT INTO " & table & " " & insert & ""
cmd.ExecuteNonQuery()
con.Close()
End Sub
Public Shared Sub DeleteSQL(ByRef table As String, ByRef where As String, Optional ByRef DBConnect As String = "")
If DBConnect = "" Then DBConnect = My.Resources.connStringDISPO
Dim con As New SqlConnection
Dim cmd As New SqlCommand
con.ConnectionString = DBConnect ' My.Resources.connStringDISPO
cmd.Connection = con
con.Open()
cmd.CommandText = "DELETE FROM " & table & " WHERE " & where & ""
cmd.ExecuteNonQuery()
con.Close()
End Sub
Public Shared Sub SQLCommand(command As String, Optional ByRef DBConnect As String = "")
If DBConnect = "" Then DBConnect = My.Resources.connStringDISPO
Dim con As New SqlConnection
Dim cmd As New SqlCommand
con.ConnectionString = DBConnect ' My.Resources.connStringDISPO
cmd.Connection = con
con.Open()
cmd.CommandText = command
cmd.ExecuteNonQuery()
con.Close()
End Sub
Public Shared Function getUpdateCmd(ByVal list As List(Of SQLVariable), ByVal WhereObject As String, ByRef update As String, ByRef where As String)
' Dim list As List(Of SQLVariable) = getparameterlist()
'Dim str As String
For Each i In list
If Not i.SQLText = WhereObject Then
update &= "[" & i.SQLText & "]='" & i.SQLValue & "',"
Else
where &= WhereObject & " = '" & i.SQLValue & "'"
End If
Next
update = update.Substring(0, update.Length - 1) 'wg. ','
' Return str
End Function
Public Shared Function getInsertCmd(ByVal list As List(Of SQLVariable), ByRef insert As String)
' Dim list As List(Of SQLVariable) = getparameterlist()
Dim text, value As String
For Each i In list
text &= i.SQLText & ", "
value &= "'" & i.SQLValue & "', "
Next
text = text.Substring(0, text.Length - 2)
value = value.Substring(0, value.Length - 2)
insert = "(" & text & ") VALUES (" & value & ")"
End Function
End Class
'Public Class SQLVariable
' Private Text, Value As String
' Private prim As Boolean
' Public Sub New(ByVal btext As String, ByVal bvalue As String, Optional bprim As Boolean = False)
' Me.Value = bvalue
' Me.Text = btext
' End Sub
' Public ReadOnly Property SQLText() As String
' Get
' Return Text
' End Get
' End Property
' Public ReadOnly Property SQLValue() As Object
' Get
' Return Value
' End Get
' End Property
'End Class

2
UID/cTrips.vb
View File

@@ -74,7 +74,7 @@ FROM tblAuftraege WHERE atr_tripNr = '{0}' ORDER BY atr_tripStopNr"
For Each i In List
Spalten &= i.SQLText & ","
Werte &= "'" & i.SQLValue & "',"
Werte &= "'" & i.SQLValue.replace("'", "") & "',"
Next
Spalten = Spalten.Substring(0, Spalten.Length - 1)

45
UID/cUsersettings.vb Normal file
View File

@@ -0,0 +1,45 @@
Imports System.Reflection
Public Class cUsersettings
Property ChatEnabled As Boolean = True
Property Username As String = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
Function GetParaMeterList() As List(Of SQLVariable)
Dim List As New List(Of SQLVariable)
List.Add(New SQLVariable("Username", Username))
List.Add(New SQLVariable("ChatEnabled", ChatEnabled))
Return List
End Function
Function save()
Dim ds As New DataSet
cSQL.SQL2DS("select * from tblUsersettings where Username = '" & Username & "'", ds)
If ds.Tables(0).Rows.Count > 0 Then
Dim update, where As String
cSQL.getUpdateCmd(GetParaMeterList(), "Username", update, where)
cSQL.UpdateSQL("dbo.tblusersettings", update, where)
Else
Dim insert As String
cSQL.getInsertCmd(GetParaMeterList(), insert)
cSQL.InsertSQL("dbo.tblusersettings", insert)
End If
End Function
Function load()
Dim ds As New DataSet
cSQL.SQL2DS("select * from tblUsersettings where Username = '" & Username & "'", ds)
If ds.Tables(0).Rows.Count > 0 Then
For Each c As DataColumn In ds.Tables(0).Columns
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(c.ColumnName)
If propInfo IsNot Nothing Then
If Not IsDBNull(c.Table.Rows(0).Item(c)) Then
propInfo.SetValue(Me, c.Table.Rows(0).Item(c))
End If
End If
Next
End If
End Function
End Class

49
UID/frmAuftragNEU.vb
View File

@@ -612,15 +612,15 @@ Public Class frmAuftragNEU
For Each r In Leistungen
Dim u As New usrcntlLeistungen(r.LeistungsNr, r.LeistungsBez, r.Steuerpflichtig, r.LeistungsIdDispo)
If AUFTRAG.BH_rechnungen IsNot Nothing AndAlso AUFTRAG.BH_rechnungen.Count > 0 Then
For Each l In AUFTRAG.BH_rechnungen
If (l.bhrg_leistungIdDispo IsNot Nothing And l.bhrg_leistungIdDispo = r.LeistungsIdDispo) Or (l.bhrg_leistungIdDispo Is Nothing And l.bhrg_code = r.LeistungsNr) Then
For Each re In AUFTRAG.BH_rechnungen
If (re.bhrg_leistungIdDispo IsNot Nothing And re.bhrg_leistungIdDispo = r.LeistungsIdDispo) Or (re.bhrg_leistungIdDispo Is Nothing And re.bhrg_code = r.LeistungsNr) Then
' MsgBox(l.bhrg_option)
Select Case l.bhrg_option
Case 1 : u.txtBetrag_Auftraggeber._value = getDBL(l.bhrg_pfl) + getDBL(l.bhrg_frei) : u.lblLeistung.Text = If(l.bhrg_vermerk, r.LeistungsBez)
Case 2 : u.txtBetrag_Absender._value = getDBL(l.bhrg_pfl) + getDBL(l.bhrg_frei) : u.lblLeistung.Text = If(l.bhrg_vermerk, r.LeistungsBez)
Case 3 : u.txtBetrag_Empfaenger._value = getDBL(l.bhrg_pfl) + getDBL(l.bhrg_frei) : u.lblLeistung.Text = If(l.bhrg_vermerk, r.LeistungsBez)
Case 4 : u.txtBetrag_FraechterBis._value = getDBL(l.bhrg_pfl) + getDBL(l.bhrg_frei) : u.lblLeistung.Text = If(l.bhrg_vermerk, r.LeistungsBez)
Case 5 : u.txtBetrag_FraechterAb._value = getDBL(l.bhrg_pfl) + getDBL(l.bhrg_frei) : u.lblLeistung.Text = If(l.bhrg_vermerk, r.LeistungsBez)
Select Case re.bhrg_option
Case 1 : u.txtBetrag_Auftraggeber._value = getDBL(re.bhrg_pfl) + getDBL(re.bhrg_frei) : u.lblLeistung.Text = If(re.bhrg_vermerk, r.LeistungsBez)
Case 2 : u.txtBetrag_Absender._value = getDBL(re.bhrg_pfl) + getDBL(re.bhrg_frei) : u.lblLeistung.Text = If(re.bhrg_vermerk, r.LeistungsBez)
Case 3 : u.txtBetrag_Empfaenger._value = getDBL(re.bhrg_pfl) + getDBL(re.bhrg_frei) : u.lblLeistung.Text = If(re.bhrg_vermerk, r.LeistungsBez)
Case 4 : u.txtBetrag_FraechterBis._value = getDBL(re.bhrg_pfl) + getDBL(re.bhrg_frei) : u.lblLeistung.Text = If(re.bhrg_vermerk, r.LeistungsBez)
Case 5 : u.txtBetrag_FraechterAb._value = getDBL(re.bhrg_pfl) + getDBL(re.bhrg_frei) : u.lblLeistung.Text = If(re.bhrg_vermerk, r.LeistungsBez)
End Select
End If
Next
@@ -1612,16 +1612,16 @@ Public Class frmAuftragNEU
initCMR2.CMR_Stempel_Frachtführer_2 = initCMR2.CMR_Frachtführer_3
For Each l In AUFTRAG.LADUNGEN
For Each lad In AUFTRAG.LADUNGEN
Dim POS As New SDL.cCMRPos
POS.Zeichen = l.lad_ZeNr
POS.Anzahl = l.lad_Anzahl
POS.Art = l.lad_Art
POS.Bezeichnung = l.lad_Bezeichnung
POS.StatistikNr = l.lad_StatNr
POS.Bruttogewicht = l.lad_BruttoKg
POS.Umfang = l.lad_Umfang
POS.Zeichen = lad.lad_ZeNr
POS.Anzahl = lad.lad_Anzahl
POS.Art = lad.lad_Art
POS.Bezeichnung = lad.lad_Bezeichnung
POS.StatistikNr = lad.lad_StatNr
POS.Bruttogewicht = lad.lad_BruttoKg
POS.Umfang = lad.lad_Umfang
initCMR2.CMRPos.Add(POS)
Next
@@ -1734,7 +1734,7 @@ Public Class frmAuftragNEU
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles btnFrachtkostenrechner.Click
frmFrachtkosten.Show()
AddHandler frmFrachtkosten.Disposed, AddressOf meEnabledTrue
'AddHandler frmFrachtkosten.Disposed, AddressOf meEnabledTrue
End Sub
Private Sub meEnabledTrue()
Me.Enabled = True
@@ -1954,15 +1954,15 @@ Public Class frmAuftragNEU
If SPEDBUCH.Packstücke IsNot Nothing AndAlso SPEDBUCH.Packstücke.StartsWith(" / ") Then SPEDBUCH.Packstücke = Replace(SPEDBUCH.Packstücke, " / ", "", , 1)
Dim rohmasse As Double = 0.0
For Each l In AUFTRAG.LADUNGEN
For Each lad In AUFTRAG.LADUNGEN
' SPEDBUCH.Packstücke &= vbNewLine & If(l.lad_Anzahl, "") & " " & If(l.lad_Art, "Pk") & " " & If(l.lad_Bezeichnung, "-")
SPEDBUCH.Packstücke &= "; " & If(l.lad_Anzahl, "") & " " & If(l.lad_Art, "Pk") & " " & If(l.lad_Bezeichnung, "-")
If l.lad_BruttoKg IsNot Nothing AndAlso l.lad_BruttoKg <> "" Then
SPEDBUCH.Packstücke &= ", " & l.lad_BruttoKg
If Not (l.lad_BruttoKg.Contains("kg") Or l.lad_BruttoKg.Contains("to") Or l.lad_BruttoKg.Contains("t")) Then SPEDBUCH.Packstücke &= " kg"
SPEDBUCH.Packstücke &= "; " & If(lad.lad_Anzahl, "") & " " & If(lad.lad_Art, "Pk") & " " & If(lad.lad_Bezeichnung, "-")
If lad.lad_BruttoKg IsNot Nothing AndAlso lad.lad_BruttoKg <> "" Then
SPEDBUCH.Packstücke &= ", " & lad.lad_BruttoKg
If Not (lad.lad_BruttoKg.Contains("kg") Or lad.lad_BruttoKg.Contains("to") Or lad.lad_BruttoKg.Contains("t")) Then SPEDBUCH.Packstücke &= " kg"
End If
Dim kg = If(l.lad_BruttoKg, "").Trim
Dim kg = If(lad.lad_BruttoKg, "").Trim
kg = kg.ToLower.Replace("kg", "").Replace("to", "").Replace("t", "")
If IsNumeric(kg) Then rohmasse += CDbl(kg)
Next
@@ -2218,7 +2218,10 @@ Public Class frmAuftragNEU
saveMe()
Dim PERSONAL As SDL.cPersonal = Nothing
Dim frmSecureLoginKassenbuch As New SDL.frmSecureLoginKassenbuch
frmSecureLoginKassenbuch.openKB = False
frmSecureLoginKassenbuch.disableCBO = True
If frmSecureLoginKassenbuch.ShowDialog(Me) = Windows.Forms.DialogResult.OK Then
PERSONAL = frmSecureLoginKassenbuch.PERSONAL
Dim frmBeleg As New SDL.frmBelegNeu(PERSONAL, Nothing, "E")
' frmBeleg.AvisoID = AvisoId

2
UID/frmCMR.vb
View File

@@ -254,7 +254,7 @@ Public Class frmCMR
If Not auftrag.atr_ladungen Is Nothing Then
For Each l In auftrag.atr_ladungen
For Each lad In auftrag.atr_ladungen
dgvLadungen.Rows.Add(auftrag.atr_ladungen(0).lad_ZeNr, auftrag.atr_ladungen(0).lad_Anzahl, auftrag.atr_ladungen(0).lad_Art, auftrag.atr_ladungen(0).lad_Bezeichnung, auftrag.atr_ladungen(0).lad_StatNr, auftrag.atr_ladungen(0).lad_BruttoKg, auftrag.atr_ladungen(0).lad_Umfang)
Next
End If

6
UID/frmDetails.vb
View File

@@ -1018,8 +1018,10 @@ Public Class frmDetails
Try
bindingDATA.bindingdataTable.Rows(0).Item("kd_FMZOLL_KdNr") = If(kdFirma.KdNrNullInt, DBNull.Value)
'MsgBox(kdFirma.KdNrNullInt)
If bindingDATA.updateBinding() AndAlso bindingOeZ.updateBinding Then
btnSave.Enabled = False
If bindingDATA.updateBinding() Then
If bindingOeZ.updateBinding Then
btnSave.Enabled = False
End If
End If
Catch ex As Exception
MsgBox("Es ist ein Fehler aufgetreten: " & ex.Message)

8
UID/frmLogin.vb
View File

@@ -34,10 +34,10 @@
End Sub
Private Sub frmLogin_Load(sender As Object, e As EventArgs) Handles Me.Load
If sAppPath Like "*\bin\Debug" Then
txtUser.Text = "sebastian"
txtPwd.Text = "verag#3"
End If
'If sAppPath Like "*\bin\Debug" Then
' txtUser.Text = "sebastian"
' txtPwd.Text = "verag#3"
'End If
If TESTSYSTEM Then lblTestsystem.Visible = True
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = TESTSYSTEM
'Dim tmp As String

103
UID/frmMain/frmMainV2.Designer.vb generated
View File

@@ -1,9 +1,9 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class frmMainV2
Inherits System.Windows.Forms.Form
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _
<System.Diagnostics.DebuggerNonUserCode()>
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
@@ -20,15 +20,20 @@ Partial Class frmMainV2
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmMainV2))
Me.PictureBox1 = New System.Windows.Forms.PictureBox()
Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.ChatANAUSToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.PanOben = New System.Windows.Forms.Panel()
Me.btnFrachtkosten = New System.Windows.Forms.Button()
Me.btnAuftraege = New System.Windows.Forms.Button()
Me.btnFirmen = New System.Windows.Forms.Button()
Me.PanUnten = New System.Windows.Forms.Panel()
Me.Label20 = New System.Windows.Forms.Label()
Me.picAVISOMessenger = New System.Windows.Forms.PictureBox()
Me.btnSchliessen = New System.Windows.Forms.Button()
Me.lblVersion = New System.Windows.Forms.Label()
Me.btnUpdate = New System.Windows.Forms.Button()
@@ -37,9 +42,13 @@ Partial Class frmMainV2
Me.btnKasse = New System.Windows.Forms.Button()
Me.PanMain = New System.Windows.Forms.Panel()
Me.UidDataSet1 = New DISPO.UIDDataSet()
Me.Timer_Refresh = New System.Windows.Forms.Timer(Me.components)
Me.btnMitarbeiterKonto = New VERAG_PROG_ALLGEMEIN.FlatButton()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.ContextMenuStrip1.SuspendLayout()
Me.PanOben.SuspendLayout()
Me.PanUnten.SuspendLayout()
CType(Me.picAVISOMessenger, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.UidDataSet1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
@@ -47,14 +56,28 @@ Partial Class frmMainV2
'
Me.PictureBox1.BackgroundImage = Global.DISPO.My.Resources.Resources.dispo
Me.PictureBox1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.PictureBox1.ContextMenuStrip = Me.ContextMenuStrip1
Me.PictureBox1.Location = New System.Drawing.Point(3, 3)
Me.PictureBox1.Name = "PictureBox1"
Me.PictureBox1.Size = New System.Drawing.Size(209, 41)
Me.PictureBox1.TabIndex = 14
Me.PictureBox1.TabStop = False
'
'ContextMenuStrip1
'
Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ChatANAUSToolStripMenuItem})
Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
Me.ContextMenuStrip1.Size = New System.Drawing.Size(147, 26)
'
'ChatANAUSToolStripMenuItem
'
Me.ChatANAUSToolStripMenuItem.Name = "ChatANAUSToolStripMenuItem"
Me.ChatANAUSToolStripMenuItem.Size = New System.Drawing.Size(146, 22)
Me.ChatANAUSToolStripMenuItem.Text = "Chat AN/AUS"
'
'PanOben
'
Me.PanOben.Controls.Add(Me.btnMitarbeiterKonto)
Me.PanOben.Controls.Add(Me.btnFrachtkosten)
Me.PanOben.Controls.Add(Me.btnAuftraege)
Me.PanOben.Controls.Add(Me.btnFirmen)
@@ -62,7 +85,7 @@ Partial Class frmMainV2
Me.PanOben.Dock = System.Windows.Forms.DockStyle.Top
Me.PanOben.Location = New System.Drawing.Point(0, 0)
Me.PanOben.Name = "PanOben"
Me.PanOben.Size = New System.Drawing.Size(1420, 48)
Me.PanOben.Size = New System.Drawing.Size(1587, 82)
Me.PanOben.TabIndex = 15
'
'btnFrachtkosten
@@ -112,6 +135,8 @@ Partial Class frmMainV2
'
'PanUnten
'
Me.PanUnten.Controls.Add(Me.Label20)
Me.PanUnten.Controls.Add(Me.picAVISOMessenger)
Me.PanUnten.Controls.Add(Me.btnSchliessen)
Me.PanUnten.Controls.Add(Me.lblVersion)
Me.PanUnten.Controls.Add(Me.btnUpdate)
@@ -119,16 +144,43 @@ Partial Class frmMainV2
Me.PanUnten.Controls.Add(Me.btnCMR)
Me.PanUnten.Controls.Add(Me.btnKasse)
Me.PanUnten.Dock = System.Windows.Forms.DockStyle.Bottom
Me.PanUnten.Location = New System.Drawing.Point(0, 879)
Me.PanUnten.Location = New System.Drawing.Point(0, 935)
Me.PanUnten.Name = "PanUnten"
Me.PanUnten.Size = New System.Drawing.Size(1420, 62)
Me.PanUnten.Size = New System.Drawing.Size(1587, 62)
Me.PanUnten.TabIndex = 16
'
'Label20
'
Me.Label20.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.Label20.BackColor = System.Drawing.Color.Red
Me.Label20.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label20.ForeColor = System.Drawing.Color.White
Me.Label20.Location = New System.Drawing.Point(1425, 4)
Me.Label20.Name = "Label20"
Me.Label20.Size = New System.Drawing.Size(28, 19)
Me.Label20.TabIndex = 43
Me.Label20.Text = "99"
Me.Label20.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
Me.Label20.Visible = False
'
'picAVISOMessenger
'
Me.picAVISOMessenger.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.picAVISOMessenger.BackgroundImage = Global.DISPO.My.Resources.Resources.aviso_messenger
Me.picAVISOMessenger.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.picAVISOMessenger.Cursor = System.Windows.Forms.Cursors.Hand
Me.picAVISOMessenger.Image = Global.DISPO.My.Resources.Resources.aviso_messenger
Me.picAVISOMessenger.Location = New System.Drawing.Point(1394, 4)
Me.picAVISOMessenger.Name = "picAVISOMessenger"
Me.picAVISOMessenger.Size = New System.Drawing.Size(59, 55)
Me.picAVISOMessenger.TabIndex = 42
Me.picAVISOMessenger.TabStop = False
'
'btnSchliessen
'
Me.btnSchliessen.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.btnSchliessen.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnSchliessen.Location = New System.Drawing.Point(1328, 27)
Me.btnSchliessen.Location = New System.Drawing.Point(1495, 27)
Me.btnSchliessen.Name = "btnSchliessen"
Me.btnSchliessen.Size = New System.Drawing.Size(80, 23)
Me.btnSchliessen.TabIndex = 34
@@ -192,10 +244,10 @@ Partial Class frmMainV2
'PanMain
'
Me.PanMain.Dock = System.Windows.Forms.DockStyle.Fill
Me.PanMain.Location = New System.Drawing.Point(0, 48)
Me.PanMain.Location = New System.Drawing.Point(0, 82)
Me.PanMain.Margin = New System.Windows.Forms.Padding(0)
Me.PanMain.Name = "PanMain"
Me.PanMain.Size = New System.Drawing.Size(1420, 831)
Me.PanMain.Size = New System.Drawing.Size(1587, 853)
Me.PanMain.TabIndex = 17
'
'UidDataSet1
@@ -203,12 +255,35 @@ Partial Class frmMainV2
Me.UidDataSet1.DataSetName = "UIDDataSet"
Me.UidDataSet1.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema
'
'Timer_Refresh
'
Me.Timer_Refresh.Enabled = True
Me.Timer_Refresh.Interval = 5000
'
'btnMitarbeiterKonto
'
Me.btnMitarbeiterKonto.allowBorder = False
Me.btnMitarbeiterKonto.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.btnMitarbeiterKonto.BackColor = System.Drawing.Color.White
Me.btnMitarbeiterKonto.FlatAppearance.BorderSize = 0
Me.btnMitarbeiterKonto.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnMitarbeiterKonto.ForeColor = System.Drawing.Color.Black
Me.btnMitarbeiterKonto.Image = CType(resources.GetObject("btnMitarbeiterKonto.Image"), System.Drawing.Image)
Me.btnMitarbeiterKonto.ImageAlign = System.Drawing.ContentAlignment.TopCenter
Me.btnMitarbeiterKonto.Location = New System.Drawing.Point(1457, 4)
Me.btnMitarbeiterKonto.Name = "btnMitarbeiterKonto"
Me.btnMitarbeiterKonto.Size = New System.Drawing.Size(118, 67)
Me.btnMitarbeiterKonto.TabIndex = 88
Me.btnMitarbeiterKonto.Text = "Andreas Luxbauer"
Me.btnMitarbeiterKonto.TextAlign = System.Drawing.ContentAlignment.BottomCenter
Me.btnMitarbeiterKonto.UseVisualStyleBackColor = False
'
'frmMainV2
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.White
Me.ClientSize = New System.Drawing.Size(1420, 941)
Me.ClientSize = New System.Drawing.Size(1587, 997)
Me.Controls.Add(Me.PanMain)
Me.Controls.Add(Me.PanUnten)
Me.Controls.Add(Me.PanOben)
@@ -217,9 +292,11 @@ Partial Class frmMainV2
Me.Name = "frmMainV2"
Me.Text = "DISPO"
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
Me.ContextMenuStrip1.ResumeLayout(False)
Me.PanOben.ResumeLayout(False)
Me.PanUnten.ResumeLayout(False)
Me.PanUnten.PerformLayout()
CType(Me.picAVISOMessenger, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.UidDataSet1, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
@@ -239,4 +316,10 @@ Partial Class frmMainV2
Friend WithEvents lblVersion As Label
Friend WithEvents btnSchliessen As Button
Friend WithEvents UidDataSet1 As UIDDataSet
Friend WithEvents picAVISOMessenger As PictureBox
Friend WithEvents Timer_Refresh As Timer
Friend WithEvents Label20 As Label
Friend WithEvents ContextMenuStrip1 As ContextMenuStrip
Friend WithEvents ChatANAUSToolStripMenuItem As ToolStripMenuItem
Friend WithEvents btnMitarbeiterKonto As VERAG_PROG_ALLGEMEIN.FlatButton
End Class

43
UID/frmMain/frmMainV2.resx
View File

@@ -117,11 +117,45 @@
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="ContextMenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>265, 17</value>
</metadata>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="btnMitarbeiterKonto.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAACMAAAAjCAYAAAAe2bNZAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m
dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAXLSURBVFhHzVhncFVFFI69jr33rjOOOjpjL2P54Ywj
AQkKhCIqCIoIKk3AQURaEMShSBsERFCaiKaQ8FJfCkle3oOENBNIQl4qqaS3437nupe99+0LGJzRH1+S
8+3es3tP+XZvAojofwMt6Q/dPT10rLqVfo4vo1HLDtKjExPo2uFRdM2wKP79yMcJNGKph36K9VJxVQt1
dfeIx/S+dNCS/lBZ307rI0to6GI3XTk0kgL6hfrg8sH76K1FGbQ2ooTKatvEY3pfOmhJOxpbOmnmj3n8
9ljwsUlO+vD7LJqzLZ82R5fSbwcq+DfsCWsO0xOfJfK8K4ZE0ozNuVTT2CHc6H2r0JIqwl1VdP+4WHY+
aV02xWbWCFo/V0V8Vg1N+SGHn7trTAztSakQtH6uhJaUmL01n85/I5z6zU0jz5EGQenn9YaDRxtpcEgG
ndM/jKaKzdnHVWhJYPKGHHbwpdhQR5dvIXYKrvZEBxfz9E25nMaw9CoCb5+Lwg/ZVcj+kF77uISWRETw
4EbHMWH6jq+JKKbhSzx0n0jfuQPCOBUAoohuSsmrE9N8n9sS4+01Qj4EagKOERH7GOAubODClBvQ4caR
+6lESID9WWDx7kKeE5pWJUzrmMWobmin29+LpldmpQjT4OqaOjj80I4q0dqJObV0mWhf+wZUXDwogiJE
4VfUtdEmRyk5s2tNf0D/r9N5w+W21jf/ANCacIZFYe9MLKfnpiWZi/ySUEZtHd103d8t7g+InLfGEEfY
FwwMp9HLD1Frezf7Pd7YzjxqDbYE/0CBQqCgI2NXZvIEPHh1sHVRCBnGbnnHYeHtuOltB89Dzan8uFWZ
hGLGGPQIyl1U2ULtncYmeTMIl3wwNb+eB060drE+qM5Whhbx2D3vW3k77hwdw/Og1iqP4s33NvEYpALc
6vBis754M9udZSzhUE55niBaz0w5maKrgiMps6iRfk+tpIuCIkxeh/NEhyGlf5Y1c21I/uzAMPo1+aT4
PTs1iV7/Ks3sWibRpihKhA42gLw+9FG86ejlmUZRvzo71eR6wwvTk3k+BFNy2CReHDwwce1hrqegBS7m
mJSLQl9gA3hIOgEe+CCO8z1tY66F94cxKw6xL5zkksNmdjjLzTUW7ixgXqaVyetHGKGEKMEGkNNL37Sm
A22KMTV9OmADSDO6UeXPCgyl7/YeNdfYlWSMo/tgMymvA9AT2BIboqzdcNu70ZQhRA8FBy1Rx1RgvL65
k+4daxywKlCXaHv4j3RXMwepgM2L6iIj8dKMFIuzF4WNdA1b4rbwEoMWuqi5rcs86XWQ6+zWRebhCb41
I2GvHRyIOAwhASovkVfaxPcXtYuApyYn8hGDqwWUGb4XicMTY3cI1YfNCwZ/4+b6QHXDVoG3UJ1CpcE3
iDSgINUxHJrgMb5M1IY6tjXON+q4H8HHgHnpPMbktngvDZzv4nzChiLizXG6yiJGKtHWOCgxZ7/nOBek
uiBs6BDGC8ub6bU5qWaEkAr4S86t4yMFc9D+8Llun6HsvBkcBegUPLR0zxG+bMsF0HbjV2eZDrCZ+TsK
6AZbGiRwhCB6rgJDySGiiPjdipqj3lb8UcR/44ixKDAKEiKHu618AG+J+yvGARTbkBB90foDoq2KHGpG
Te2D4+O4fqTq8yQJRAWTcI2Qd1ZctE+lK6cC0g+ZgD/Ih4wSRA+chGUz6AJoSeBco6D8tW9fgbaH35Hf
eriW8OkDW8KyGQA3sFvFFQGHmM7hmeJpEWW8sHosSFgMidM9f/oK9UBW4UNIzNqSp3V0psBXh7xg2eFD
qJi3vYAusR2WfcWFQeH0hXhB+xoqtKQKiJj8XO0r8A8CSIPdtx1a0g58ay8QQofi0y3mD49/6iRE91/7
1lYBp7iDfLI+m29yN49y8L0WAolzCRfx5wWPAoXYya+M04WW7A24vO89UMnqDN1AtJ4UaYQwQnE/F58f
SIm8s/wTaMn/BhTwFyTS58zDvQ4BAAAAAElFTkSuQmCC
</value>
</data>
<data name="btnFrachtkosten.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAAB4AAAAeCAYAAAA7MK6iAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAL
EwAACxMBAJqcGAAABLhJREFUSEvFVllIZFcQLbdWW233rd3aVlxRWzsd3HDXuOGOIgjjT1wbRUUTEB1Q
EgAACxIB0t1+/AAABLhJREFUSEvFVllIZFcQLbdWW233rd3aVlxRWzsd3HDXuOGOIgjjT1wbRUUTEB1Q
3EJQFDUifoQYkRAdnI+B6R9JJz9DCDgwEMhnPsKQjyRISD7GMJ1Tl+nm3fY5zgzEPDi8V/feqlO3bt2q
Rw6H43+B6uBdQHXwLiAJAwMDVFBQQCEhITQyMkKjo6PU29tL/ISGhlJqairl5+dTVlYWpaSkFCUkJHyU
kZFh0+l0F1hyERgYeGE2m7+JjY0dS09Pfy8yMlLoFRYWksFgkLgk4XXEbIQJk5KSpgICAp55eHhAm24E
@@ -147,7 +181,7 @@
<data name="btnAuftraege.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAAB4AAAAeCAYAAAA7MK6iAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAL
EwAACxMBAJqcGAAAAv1JREFUSEutl8urTlEYhz867gZIbpHLyCUppRASSpFrDNxDuYVIokxMkIGRP4Ew
EgAACxIB0t1+/AAAAv1JREFUSEutl8urTlEYhz867gZIbpHLyCUppRASSpFrDNxDuYVIokxMkIGRP4Ew
MBBl4BpKhGKgDKQkUmYUivA8+9vvaZ119ufzHedXz9lrrb33+1uXd639nRpqg97QKyHq/6M0Xoqx9SwK
/aFfieU+oIbClBaYXDIIlHHS2B3i2wsb+pbXojdoFXyC313gI2wD5cCMnWJbu3Fquh6qArbKTFDGTqVn
8cfhh+lmyAO8gCtwtQk+8xzivdMQcvpXgktSKE2krZAaBs7Av2oZxHuHbEDj4DVE+1poH6lrEjdy9oAq
@@ -166,7 +200,7 @@
<data name="btnFirmen.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAAB4AAAAeCAYAAAA7MK6iAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAL
EwAACxMBAJqcGAAAA19JREFUSEvFlm1IU1EYx8+GzvWlNFZ+2lB8QSQsKkVQ3IeJ4CwjKIggFCMQKhoR
EgAACxIB0t1+/AAAA19JREFUSEvFlm1IU1EYx8+GzvWlNFZ+2lB8QSQsKkVQ3IeJ4CwjKIggFCMQKhoR
EURE0Icghi/pzEq/RBEGpUuRBmpiNEYURMV6JQqMgl7MCiKo9f8/7syxq4V0sz/82H1e7vOcc+/OOVct
QDVgGhwQaxG1HcTASbEWUY2AjU+IZVQaOAMOi2WidgM2bhHLqOWA8S9imaiDgIU7xTLKCRh/KJaJOgZY
+JxYRhUBxp+IZaL8gIXPi2XUesD4c7FM1GnAwpfFMsoNGH8ploniTFk4KJZRGwDjb4CVDrN0BbBwSCyj
@@ -186,6 +220,9 @@
<metadata name="UidDataSet1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<metadata name="Timer_Refresh.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>137, 17</value>
</metadata>
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAABAAEAgIAAAAEAGAAoyAAAFgAAACgAAACAAAAAAAEAAAEAGAAAAAAAAMgAAMQOAADEDgAAAAAAAAAA

171
UID/frmMain/frmMainV2.vb
View File

@@ -1,6 +1,10 @@
Public Class frmMainV2
Imports System.Drawing.Drawing2D
Imports VERAG_PROG_ALLGEMEIN
Public Class frmMainV2
Private Declare Function GetActiveWindow Lib "user32" Alias "GetActiveWindow" () As IntPtr
Public Shared cUserSettings As New cUsersettings
Private Sub UserPanelSwitcher_Click(sender As Button, e As EventArgs) Handles btnFirmen.Click, btnAuftraege.Click, btnFrachtkosten.Click
btnFirmen.BackColor = Color.White
@@ -46,7 +50,13 @@
Private Sub frmMainV2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
lblVersion.Text = "Version: " & My.Resources.Version
cUserSettings.load()
ShowChat()
btnAuftraege.PerformClick()
btnMitarbeiterKonto.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME
setProfileImage()
End Sub
Private Sub btnSchliessen_Click(sender As Object, e As EventArgs) Handles btnSchliessen.Click
@@ -57,5 +67,164 @@
frmLogin.UpdateDISPO()
End Sub
Dim Timer_REFRESH_firstTime = True
Private Sub Timer_REFRESH_Tick(sender As Object, e As EventArgs) Handles Timer_Refresh.Tick
If Timer_REFRESH_firstTime Then
Timer_REFRESH_firstTime = False
Exit Sub
End If
Try
If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_ChatBenutzer And picAVISOMessenger.Visible Then
Dim newMsg = VERAG_PROG_ALLGEMEIN.cMessenger.GET_NewMSG_COUNT()
' MsgBox(newMsg)
Label20.Text = newMsg
Label20.Visible = (newMsg > 0)
If newMsg Then
' Me.Icon = My.Resources.avisoNewMsg
Dim isshown = False
For Each openForm In Application.OpenForms()
If TypeOf (openForm) Is frmNotify Then
isshown = True
End If
Next
Dim isInFront = False
For Each openForm In Application.OpenForms()
If TypeOf (openForm) Is VERAG_PROG_ALLGEMEIN.frmMessenger Then
' If DirectCast(openForm, VERAG_PROG_ALLGEMEIN.frmMessenger).Focused Then
If GetActiveWindow = DirectCast(openForm, VERAG_PROG_ALLGEMEIN.frmMessenger).Handle Then
isInFront = True
End If
End If
Next
If Not isshown And Not isInFront Then newNotify(frmNotify.cNotify_ART.NEUER_CHAT, 0, "Neue Chat-Nachricht!", -1)
Else
' Me.Icon = My.Resources.Aviso
End If
If Label20.Visible Then Label20.BringToFront()
End If
Catch ex As Exception
End Try
End Sub
Sub newNotify(art As frmNotify.cNotify_ART, title As Integer, text As String, id As Integer)
' Exit Sub 'NICHT AKTIV
Dim formTmp = Me.ActiveForm
Dim frmNotify As New frmNotify(art, title, text, id)
frmNotify.TimerInterval = 1200000 ' 20min
Dim tmpY As Integer = Me.Height
If tmpY <= 0 Then tmpY = My.Computer.Screen.WorkingArea.Height
For Each ft As Form In Application.OpenForms
' MsgBox(ft.GetType.ToString)
If ft.GetType.ToString = "frmNotify" Then
If ft.Location.Y < tmpY Then tmpY = ft.Location.Y
End If
Next
frmNotify.Y = tmpY - frmNotify.Height - 10
frmNotify.Show()
' If formTmp IsNot Nothing Then formTmp.Focus()
End Sub
Private Sub picAVISOMessenger_Click(sender As Object, e As EventArgs) Handles picAVISOMessenger.Click
For Each openForm In Application.OpenForms()
If TypeOf (openForm) Is VERAG_PROG_ALLGEMEIN.frmMessenger Then
CType(openForm, VERAG_PROG_ALLGEMEIN.frmMessenger).WindowState = FormWindowState.Normal
CType(openForm, VERAG_PROG_ALLGEMEIN.frmMessenger).BringToFront()
Exit Sub
End If
Next
Dim f As New VERAG_PROG_ALLGEMEIN.frmMessenger
f.Location = Cursor.Position
f.Show(Me)
End Sub
Private Sub ShowChat()
picAVISOMessenger.Enabled = cUserSettings.ChatEnabled
picAVISOMessenger.Visible = cUserSettings.ChatEnabled
Timer_Refresh.Enabled = cUserSettings.ChatEnabled
End Sub
'Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs)
' cUserSettings.ChatEnabled = CheckBox1.Checked
' picAVISOMessenger.Enabled = CheckBox1.Checked
' picAVISOMessenger.Visible = CheckBox1.Checked
'End Sub
Private Sub ChatANAUSToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ChatANAUSToolStripMenuItem.Click
cUserSettings.ChatEnabled = Not cUserSettings.ChatEnabled
cUserSettings.save()
ShowChat()
End Sub
Private Sub btnMitarbeiterKonto_Click(sender As Object, e As EventArgs) Handles btnMitarbeiterKonto.Click
Me.Cursor = Cursors.WaitCursor
Dim f As New VERAG_PROG_ALLGEMEIN.frmMitarbeitersuche(VERAG_PROG_ALLGEMEIN.cAllgemein.USRID)
f.Show()
Me.Cursor = Cursors.Default
End Sub
Public Sub setProfileImage()
Try
If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_foto_DocId IsNot Nothing Then
Dim originalImage = Image.FromFile(cDATENSERVER.GET_PDFPath_BY_DocID(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_foto_DocId)) 'My.Resources.Koerfez61
Dim picSize = 35
Dim space_X As Integer = 0
Dim space_Y As Integer = 0
Dim picWidth As Integer = 0
Dim picHheight As Integer = 0
Dim factor As Double = 1
If originalImage.Height < originalImage.Width Then
factor = picSize / originalImage.Height
picWidth = originalImage.Width * factor
picHheight = originalImage.Height * factor
Else
factor = picSize / originalImage.Width
picWidth = originalImage.Width * factor
picHheight = originalImage.Height * factor
End If
Dim croppedImage As New Bitmap(picWidth, picHheight)
Using g = Graphics.FromImage(croppedImage)
Dim path As New GraphicsPath
path.AddEllipse(0, 0, picSize, picSize)
Dim reg As New Region(path)
g.Clip = reg
g.DrawImage(originalImage, 0, 0, picWidth, picHheight)
End Using
btnMitarbeiterKonto.Image = croppedImage
Exit Sub
End If
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
End Try
'btnMitarbeiterKonto.Image = My.Resources.mitarbeiter_s
End Sub
End Class

72
UID/frmMain/usrcntlAuftraege.Designer.vb generated
View File

@@ -22,7 +22,7 @@ Partial Class usrcntlAuftraege
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Me.PanTop = New System.Windows.Forms.Panel()
Me.PanOben = New System.Windows.Forms.Panel()
Me.btnReset = New System.Windows.Forms.Button()
@@ -36,6 +36,7 @@ Partial Class usrcntlAuftraege
Me.txtSuche = New System.Windows.Forms.TextBox()
Me.Panel1 = New System.Windows.Forms.Panel()
Me.PanButtons = New System.Windows.Forms.Panel()
Me.btnAddTo = New System.Windows.Forms.Button()
Me.btnTrip = New System.Windows.Forms.Button()
Me.btnSuchStat = New System.Windows.Forms.Button()
Me.btnSuchAuswertung = New System.Windows.Forms.Button()
@@ -76,7 +77,6 @@ Partial Class usrcntlAuftraege
Me.Label10 = New System.Windows.Forms.Label()
Me.cbxAbliefer = New System.Windows.Forms.CheckBox()
Me.SplitContainer1 = New System.Windows.Forms.SplitContainer()
Me.btnAddTo = New System.Windows.Forms.Button()
Me.PanTop.SuspendLayout()
Me.PanOben.SuspendLayout()
Me.pnlFilterAuftrag.SuspendLayout()
@@ -98,7 +98,7 @@ Partial Class usrcntlAuftraege
Me.PanTop.Location = New System.Drawing.Point(0, 0)
Me.PanTop.Margin = New System.Windows.Forms.Padding(0)
Me.PanTop.Name = "PanTop"
Me.PanTop.Size = New System.Drawing.Size(1093, 84)
Me.PanTop.Size = New System.Drawing.Size(1279, 84)
Me.PanTop.TabIndex = 3
'
'PanOben
@@ -216,7 +216,7 @@ Partial Class usrcntlAuftraege
'
Me.Panel1.BackColor = System.Drawing.Color.Transparent
Me.Panel1.Dock = System.Windows.Forms.DockStyle.Right
Me.Panel1.Location = New System.Drawing.Point(859, 0)
Me.Panel1.Location = New System.Drawing.Point(1045, 0)
Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(234, 84)
Me.Panel1.TabIndex = 0
@@ -235,18 +235,33 @@ Partial Class usrcntlAuftraege
Me.PanButtons.Controls.Add(Me.lblMs)
Me.PanButtons.Controls.Add(Me.lblAnzahl)
Me.PanButtons.Dock = System.Windows.Forms.DockStyle.Right
Me.PanButtons.Location = New System.Drawing.Point(994, 84)
Me.PanButtons.Location = New System.Drawing.Point(1180, 84)
Me.PanButtons.Name = "PanButtons"
Me.PanButtons.Size = New System.Drawing.Size(99, 711)
Me.PanButtons.Size = New System.Drawing.Size(99, 743)
Me.PanButtons.TabIndex = 1
'
'btnAddTo
'
Me.btnAddTo.Anchor = System.Windows.Forms.AnchorStyles.Right
Me.btnAddTo.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnAddTo.Image = Global.DISPO.My.Resources.Resources.links20
Me.btnAddTo.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnAddTo.Location = New System.Drawing.Point(5, 367)
Me.btnAddTo.Name = "btnAddTo"
Me.btnAddTo.Size = New System.Drawing.Size(91, 33)
Me.btnAddTo.TabIndex = 36
Me.btnAddTo.Text = "Hinzufügen"
Me.btnAddTo.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnAddTo.UseVisualStyleBackColor = True
Me.btnAddTo.Visible = False
'
'btnTrip
'
Me.btnTrip.Anchor = System.Windows.Forms.AnchorStyles.Right
Me.btnTrip.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnTrip.Image = Global.DISPO.My.Resources.Resources.stift
Me.btnTrip.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnTrip.Location = New System.Drawing.Point(5, 312)
Me.btnTrip.Location = New System.Drawing.Point(5, 328)
Me.btnTrip.Name = "btnTrip"
Me.btnTrip.Size = New System.Drawing.Size(91, 33)
Me.btnTrip.TabIndex = 35
@@ -259,7 +274,7 @@ Partial Class usrcntlAuftraege
Me.btnSuchStat.Anchor = System.Windows.Forms.AnchorStyles.Right
Me.btnSuchStat.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnSuchStat.Font = New System.Drawing.Font("Arial", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btnSuchStat.Location = New System.Drawing.Point(5, 490)
Me.btnSuchStat.Location = New System.Drawing.Point(5, 506)
Me.btnSuchStat.Name = "btnSuchStat"
Me.btnSuchStat.Size = New System.Drawing.Size(91, 46)
Me.btnSuchStat.TabIndex = 34
@@ -271,7 +286,7 @@ Partial Class usrcntlAuftraege
Me.btnSuchAuswertung.Anchor = System.Windows.Forms.AnchorStyles.Right
Me.btnSuchAuswertung.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnSuchAuswertung.Font = New System.Drawing.Font("Arial", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btnSuchAuswertung.Location = New System.Drawing.Point(5, 438)
Me.btnSuchAuswertung.Location = New System.Drawing.Point(5, 454)
Me.btnSuchAuswertung.Name = "btnSuchAuswertung"
Me.btnSuchAuswertung.Size = New System.Drawing.Size(91, 46)
Me.btnSuchAuswertung.TabIndex = 33
@@ -283,7 +298,7 @@ Partial Class usrcntlAuftraege
Me.btnAuswertung.Anchor = System.Windows.Forms.AnchorStyles.Right
Me.btnAuswertung.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnAuswertung.Font = New System.Drawing.Font("Arial", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btnAuswertung.Location = New System.Drawing.Point(5, 409)
Me.btnAuswertung.Location = New System.Drawing.Point(5, 425)
Me.btnAuswertung.Name = "btnAuswertung"
Me.btnAuswertung.Size = New System.Drawing.Size(91, 23)
Me.btnAuswertung.TabIndex = 32
@@ -294,7 +309,7 @@ Partial Class usrcntlAuftraege
'
Me.btnDuplicate.Anchor = System.Windows.Forms.AnchorStyles.Right
Me.btnDuplicate.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnDuplicate.Location = New System.Drawing.Point(5, 260)
Me.btnDuplicate.Location = New System.Drawing.Point(5, 276)
Me.btnDuplicate.Name = "btnDuplicate"
Me.btnDuplicate.Size = New System.Drawing.Size(91, 33)
Me.btnDuplicate.TabIndex = 26
@@ -307,7 +322,7 @@ Partial Class usrcntlAuftraege
Me.btnDel.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnDel.Image = Global.DISPO.My.Resources.Resources.del
Me.btnDel.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnDel.Location = New System.Drawing.Point(5, 221)
Me.btnDel.Location = New System.Drawing.Point(5, 237)
Me.btnDel.Name = "btnDel"
Me.btnDel.Size = New System.Drawing.Size(91, 33)
Me.btnDel.TabIndex = 25
@@ -321,7 +336,7 @@ Partial Class usrcntlAuftraege
Me.btnChange.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnChange.Image = Global.DISPO.My.Resources.Resources.stift
Me.btnChange.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnChange.Location = New System.Drawing.Point(5, 169)
Me.btnChange.Location = New System.Drawing.Point(5, 185)
Me.btnChange.Name = "btnChange"
Me.btnChange.Size = New System.Drawing.Size(91, 33)
Me.btnChange.TabIndex = 24
@@ -335,7 +350,7 @@ Partial Class usrcntlAuftraege
Me.btnNew.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnNew.Image = Global.DISPO.My.Resources.Resources.plus
Me.btnNew.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnNew.Location = New System.Drawing.Point(5, 130)
Me.btnNew.Location = New System.Drawing.Point(5, 146)
Me.btnNew.Name = "btnNew"
Me.btnNew.Size = New System.Drawing.Size(91, 33)
Me.btnNew.TabIndex = 23
@@ -347,7 +362,7 @@ Partial Class usrcntlAuftraege
'
Me.lblMs.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.lblMs.AutoSize = True
Me.lblMs.Location = New System.Drawing.Point(3, 698)
Me.lblMs.Location = New System.Drawing.Point(3, 730)
Me.lblMs.Name = "lblMs"
Me.lblMs.Size = New System.Drawing.Size(47, 13)
Me.lblMs.TabIndex = 2
@@ -357,7 +372,7 @@ Partial Class usrcntlAuftraege
'
Me.lblAnzahl.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.lblAnzahl.AutoSize = True
Me.lblAnzahl.Location = New System.Drawing.Point(3, 685)
Me.lblAnzahl.Location = New System.Drawing.Point(3, 717)
Me.lblAnzahl.Name = "lblAnzahl"
Me.lblAnzahl.Size = New System.Drawing.Size(39, 13)
Me.lblAnzahl.TabIndex = 1
@@ -367,15 +382,15 @@ Partial Class usrcntlAuftraege
'
Me.dgvAuftraege.AllowUserToAddRows = False
Me.dgvAuftraege.AllowUserToDeleteRows = False
DataGridViewCellStyle2.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
Me.dgvAuftraege.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2
DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
Me.dgvAuftraege.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
Me.dgvAuftraege.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvAuftraege.Dock = System.Windows.Forms.DockStyle.Fill
Me.dgvAuftraege.Location = New System.Drawing.Point(0, 0)
Me.dgvAuftraege.Margin = New System.Windows.Forms.Padding(0)
Me.dgvAuftraege.Name = "dgvAuftraege"
Me.dgvAuftraege.ReadOnly = True
Me.dgvAuftraege.Size = New System.Drawing.Size(994, 535)
Me.dgvAuftraege.Size = New System.Drawing.Size(1180, 567)
Me.dgvAuftraege.TabIndex = 0
'
'txtAuftraggeber
@@ -691,26 +706,11 @@ Partial Class usrcntlAuftraege
'
Me.SplitContainer1.Panel2.BackColor = System.Drawing.Color.Transparent
Me.SplitContainer1.Panel2.Controls.Add(Me.dgvAuftraege)
Me.SplitContainer1.Size = New System.Drawing.Size(994, 711)
Me.SplitContainer1.Size = New System.Drawing.Size(1180, 743)
Me.SplitContainer1.SplitterDistance = 175
Me.SplitContainer1.SplitterWidth = 1
Me.SplitContainer1.TabIndex = 2
'
'btnAddTo
'
Me.btnAddTo.Anchor = System.Windows.Forms.AnchorStyles.Right
Me.btnAddTo.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnAddTo.Image = Global.DISPO.My.Resources.Resources.links20
Me.btnAddTo.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnAddTo.Location = New System.Drawing.Point(5, 351)
Me.btnAddTo.Name = "btnAddTo"
Me.btnAddTo.Size = New System.Drawing.Size(91, 33)
Me.btnAddTo.TabIndex = 36
Me.btnAddTo.Text = "Hinzufügen"
Me.btnAddTo.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnAddTo.UseVisualStyleBackColor = True
Me.btnAddTo.Visible = False
'
'usrcntlAuftraege
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -723,7 +723,7 @@ Partial Class usrcntlAuftraege
Me.DoubleBuffered = True
Me.MinimumSize = New System.Drawing.Size(1000, 750)
Me.Name = "usrcntlAuftraege"
Me.Size = New System.Drawing.Size(1093, 795)
Me.Size = New System.Drawing.Size(1279, 827)
Me.PanTop.ResumeLayout(False)
Me.PanOben.ResumeLayout(False)
Me.PanOben.PerformLayout()

108
UID/frmMain/usrcntlAuftraege.vb
View File

@@ -17,6 +17,21 @@ atr_frachtfab_firma,
atr_frachtf_firma,
atr_Auftragsart,
atr_TransportauftragArt,
Anzahl,
Frächter,
ShortAuftragsart,
(Rechnungen/Anzahl) as Rechnungen,
(Vorkosten/Anzahl) as Vorkosten,
(Marge/Anzahl) as Marge
from (select
atr_frachtpos,
atr_auftr_firma,
atr_ladest_firma,
atr_frachtfab_firma,
atr_frachtf_firma,
atr_Auftragsart,
atr_TransportauftragArt,
count(*) As Anzahl,
case
when atr_TransportauftragArt = 'NACH' then atr_frachtfab_firma
@@ -32,7 +47,7 @@ sum (Rechnungsausgang.SteuerfreierGesamtbetrag + Rechnungsausgang.Steuerpflichti
sum (vorkosten) as Vorkosten,
sum (Rechnungsausgang.SteuerfreierGesamtbetrag + Rechnungsausgang.SteuerpflichtigerGesamtbetrag - Vorkosten) as Marge
from (([BUCHHALTUNG\SQLExpress].DISPO.dbo.tblAuftraege as dispoauftraege
from (([sqlguide01.verag.ost.dmn].DISPO.dbo.tblAuftraege as dispoauftraege
inner join VERAG.dbo.Speditionsbuch on atr_speditionsbuchNr = Speditionsbuch.FilialenNr AND atr_frachtpos = Speditionsbuch.AbfertigungsNr)
inner join VERAG.dbo.Rechnungsausgang on atr_speditionsbuchNr = Rechnungsausgang.FilialenNr AND atr_frachtpos = Rechnungsausgang.AbfertigungsNr)
@@ -54,6 +69,7 @@ where "
Public Shared von, bis As Date
Property CustomButtons As String = ""
Property Trip As cTrips = Nothing
Property Loaded As Boolean = False
Private Sub usrcntlAuftraege_Load(sender As Object, e As EventArgs) Handles Me.Load
@@ -83,9 +99,12 @@ where "
If Not Me.CustomButtons = "" Then DoCustomButtons()
Loaded = True
showDGVAuftraege()
End Sub
Function DoCustomButtons()
Select Case CustomButtons
@@ -117,7 +136,7 @@ where "
If frmLogin.TESTSYSTEM = True Then
DispoDBO = "DISPO.dbo.tblAuftraege"
Else
DispoDBO = "[BUCHHALTUNG\SQLExpress].DISPO.dbo.tblAuftraege"
DispoDBO = My.Resources.Conn_DBO_Aufträge
End If
With dgvAuftraege
@@ -140,12 +159,17 @@ atr_id
when atr_TransportAuftragArt is null then '-'
when atr_AuftragsArt = 'Handling' then '-'
end as Transportunternehmen
,case when atr_AuftragsArt='TRANSPORT' THEN atr_ladest_plz ELSE atr_absender_plz END as atr_ladest_plz
,case when atr_AuftragsArt='TRANSPORT' THEN atr_ladest_firma ELSE atr_absender_firma END as atr_ladest_firma
,case when atr_AuftragsArt='TRANSPORT' THEN atr_entladest_plz ELSE atr_empfaenger_plz END as atr_entladest_plz
,case when atr_AuftragsArt='TRANSPORT' THEN atr_entladest_firma ELSE atr_empfaenger_firma END as atr_entladest_firma
,lad_anzahl as Pkg
,lad_BruttoKg as BruttoGew
,atr_abliefernachweis,atr_AuftragsArt,atr_FilialenNr
,atr_tripNr
FROM (" & DispoDBO & " as dispoauftraege
left join VERAG.dbo.Speditionsbuch on atr_speditionsbuchNr = Speditionsbuch.FilialenNr AND atr_frachtpos = Speditionsbuch.AbfertigungsNr)
left join [sqlguide01.verag.ost.dmn].[DISPO].[dbo].[tblLadungen] on atr_id = [tblLadungen].lad_atrid
--left join VERAG.dbo.Rechnungsausgang on atr_speditionsbuchNr = Rechnungsausgang.FilialenNr AND atr_frachtpos = Rechnungsausgang.AbfertigungsNr)
--left join VERAG.dbo.Vorkosten on atr_speditionsbuchNr = Vorkosten.FilialenNr AND atr_frachtpos = Vorkosten.AbfertigungsNr)
WHERE " & where & ""
@@ -176,43 +200,56 @@ WHERE " & where & ""
.Columns(0).Visible = False
.Columns("atr_AuftragsArt").Visible = False
.Columns(1).Width = 70
.Columns(1).HeaderText = "FrachtposNr."
.Columns("atr_frachtpos").Width = 70
.Columns("atr_frachtpos").HeaderText = "FrachtposNr."
.Columns(2).Width = 70
.Columns(2).HeaderText = "Datum"
.Columns("atr_datum").Width = 70
.Columns("atr_datum").HeaderText = "Datum"
.Columns(3).MinimumWidth = 165
.Columns(3).AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
.Columns(3).FillWeight = 150
.Columns(3).HeaderText = "Auftraggeber"
.Columns("atr_auftr_firma").MinimumWidth = 165
.Columns("atr_auftr_firma").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
.Columns("atr_auftr_firma").FillWeight = 150
.Columns("atr_auftr_firma").HeaderText = "Auftraggeber"
.Columns(4).MinimumWidth = 165
.Columns(4).AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
.Columns(4).FillWeight = 150
.Columns(4).HeaderText = "Frachtführer Bis"
.Columns("atr_frachtf_firma").MinimumWidth = 165
.Columns("atr_frachtf_firma").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
.Columns("atr_frachtf_firma").FillWeight = 150
.Columns("atr_frachtf_firma").HeaderText = "Frachtführer Bis"
.Columns("atr_frachtfAb_firma").MinimumWidth = 165
.Columns("atr_frachtfAb_firma").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
.Columns("atr_frachtfAb_firma").HeaderText = "Frachtführer Ab"
.Columns(6).MinimumWidth = 165
.Columns(6).AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
.Columns(6).HeaderText = "Transportunternehmen"
.Columns("Transportunternehmen").MinimumWidth = 165
.Columns("Transportunternehmen").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
.Columns("Transportunternehmen").HeaderText = "Transportunternehmen"
.Columns(7).MinimumWidth = 165
.Columns(7).AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
.Columns(7).HeaderText = "Ladestelle/Absender"
.Columns("atr_ladest_plz").HeaderText = "Lad PLZ"
.Columns("atr_ladest_plz").Width = 45
.Columns("atr_ladest_plz").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
.Columns(8).MinimumWidth = 165
.Columns(8).AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
.Columns(8).HeaderText = "Entladest./Empfänger"
.Columns("atr_ladest_firma").MinimumWidth = 165
.Columns("atr_ladest_firma").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
.Columns("atr_ladest_firma").HeaderText = "Ladestelle/Absender"
.Columns(9).Width = 60
.Columns(9).HeaderText = "Abl.Nachw."
.Columns(9).ReadOnly = False
.Columns(9).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
.Columns("atr_entladest_plz").HeaderText = "Ent PLZ"
.Columns("atr_entladest_plz").Width = 45
.Columns("atr_entladest_plz").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
.Columns("atr_entladest_firma").MinimumWidth = 165
.Columns("atr_entladest_firma").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
.Columns("atr_entladest_firma").HeaderText = "Entladest./Empfänger"
.Columns("Pkg").Width = 40
.Columns("Pkg").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
.Columns("BruttoGew").Width = 65
.Columns("atr_abliefernachweis").Width = 60
.Columns("atr_abliefernachweis").HeaderText = "Abl.Nachw."
.Columns("atr_abliefernachweis").ReadOnly = False
.Columns("atr_abliefernachweis").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
.Columns("atr_FilialenNr").Width = 60
.Columns("atr_FilialenNr").HeaderText = "Filiale"
@@ -291,6 +328,8 @@ WHERE " & where & ""
OR
(atr_absender_firma Like '%" & txtLadestelle.Text.Replace("'", "") & "%')
OR
(atr_ladest_plz Like '%" & txtLadestelle.Text.Replace("'", "") & "%')
OR
(VERAG.dbo.Speditionsbuch.Absender Like '%" & txtLadestelle.Text.Replace("'", "") & "%'))"
End If
@@ -300,6 +339,8 @@ WHERE " & where & ""
OR
(atr_empfaenger_firma Like '%" & txtEntladeStelle.Text.Replace("'", "") & "%')
OR
(atr_entladest_plz Like '%" & txtEntladeStelle.Text.Replace("'", "") & "%')
OR
(VERAG.dbo.Speditionsbuch.Empfänger Like '%" & txtEntladeStelle.Text.Replace("'", "") & "%'))"
End If
@@ -355,7 +396,7 @@ WHERE " & where & ""
Private Sub DateVONorBIS_ValueChanged(sender As Object, e As EventArgs) Handles DateVON.ValueChanged, DateBIS.ValueChanged
showDGVAuftraege()
If Loaded = True Then showDGVAuftraege()
End Sub
Private Sub btnDetailSuche_Click(sender As Object, e As EventArgs) Handles btnDetailSuche.Click
@@ -429,7 +470,7 @@ WHERE " & where & ""
End Sub
Public Sub EnableDoubleBuffered(ByVal dgv As DataGridView)
Public Sub EnableDoubleBuffered(ByRef dgv As DataGridView)
Dim dgvType As Type = dgv.[GetType]()
@@ -441,7 +482,7 @@ WHERE " & where & ""
End Sub
Private Sub cboAuftragsart_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboAuftragsart.SelectedIndexChanged, cboFiliale.SelectedIndexChanged, cbxAbliefer.CheckedChanged, txtSuche.TextChanged, txtAuftraggeber.TextChanged, txtFrachtfuehrerBis.TextChanged, txtFrachtfuehrerAb.TextChanged, txtTransportunternehmen.TextChanged, txtLadestelle.TextChanged, txtEntladeStelle.TextChanged
showDGVAuftraege()
If Loaded = True Then showDGVAuftraege()
End Sub
Private Sub btnReset_Click(sender As Object, e As EventArgs) Handles btnReset.Click
@@ -510,7 +551,7 @@ WHERE " & where & ""
Select Case MsgBox("Soll der Eintrag wirklich gelöscht werden?", vbQuestion Or vbYesNo Or vbDefaultButton2, "Löschen?")
Case vbYes
DISPO.delAuftrag(Convert.ToInt32(dgvAuftraege.CurrentRow.Cells(0).Value))
DISPO.delAuftrag(Convert.ToInt32(dgvAuftraege.SelectedRows.Item(0).Cells(0).Value))
'Tabelle_anzeigen()
showDGVAuftraege()
Case vbNo
@@ -520,7 +561,8 @@ WHERE " & where & ""
Private Sub btnDuplicate_Click(sender As Object, e As EventArgs) Handles btnDuplicate.Click
Try
Dim AUFTRAG As New cDispoAuftraege(dgvAuftraege.CurrentRow.Cells(0).Value)
'Dim AUFTRAG As New cDispoAuftraege(dgvAuftraege.CurrentRow.Cells(0).Value)
Dim AUFTRAG As New cDispoAuftraege(dgvAuftraege.SelectedRows.Item(0).Cells(0).Value)
AUFTRAG.atr_id = -1
AUFTRAG.atr_datum = Now
AUFTRAG.atr_frachtpos = Nothing
@@ -656,7 +698,7 @@ WHERE " & where & ""
Private Sub btnSuchAuswertung_Click(sender As Object, e As EventArgs) Handles btnSuchAuswertung.Click
Dim frmAus As New frmAuswertung
SQLAuswerungAusAnsicht = Core_SQLAuswertungAusAnsicht & WhereInator3000() & " group by atr_frachtpos, atr_auftr_firma, atr_frachtfAb_firma, atr_frachtf_firma, atr_ladest_firma, atr_Auftragsart, atr_TransportauftragArt--, Anzahl
ORDER BY atr_frachtpos"
) as db1 ORDER BY atr_frachtpos"
frmAus.Niederlassung = returnfil()
frmAus.chkStandard.Checked = False
frmAus.chkAusSuchererg.Checked = True

16
UID/frmMain/usrcntlFirmen.vb
View File

@@ -24,8 +24,22 @@ Public Class usrcntlFirmen
cboRolle.Items.Add(New MyListItem("Entladestelle", "3"))
cboRolle.Items.Add(New MyListItem("Frachtführer", "4"))
cboRolle.Items.Add(New MyListItem("Transportunternehmen", "5"))
FillcboLandWithLaender()
showDGVKunden()
End Sub
Private Sub FillcboLandWithLaender()
cboLand.Items.Clear()
Dim Kundenlaender As New List(Of Object)
Dim vpasql As New VERAG_PROG_ALLGEMEIN.SQL
Kundenlaender = vpasql.loadCboBySql("SELECT DISTINCT kd_land FROM [tblKunden]", "DISPO")
For Each Land As String In Kundenlaender
If Land.Length > 0 Then cboLand.Items.Add(Land)
Next
cboLand.Items.Add("-")
End Sub
Private Sub initDGVKunden(bindingString As String)

129
UID/frmNotify.Designer.vb generated Normal file
View File

@@ -0,0 +1,129 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmNotify
Inherits System.Windows.Forms.Form
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.Timer = New System.Windows.Forms.Timer()
Me.pnl = New System.Windows.Forms.Panel()
Me.lblText = New System.Windows.Forms.Label()
Me.Header = New System.Windows.Forms.Panel()
Me.lblTitle = New System.Windows.Forms.Label()
Me.btnClose = New System.Windows.Forms.Button()
Me.pnl.SuspendLayout()
Me.Header.SuspendLayout()
Me.SuspendLayout()
'
'Timer
'
Me.Timer.Enabled = True
Me.Timer.Interval = 5000
'
'pnl
'
Me.pnl.BackColor = System.Drawing.Color.White
Me.pnl.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.pnl.Controls.Add(Me.lblText)
Me.pnl.Controls.Add(Me.Header)
Me.pnl.Dock = System.Windows.Forms.DockStyle.Fill
Me.pnl.Location = New System.Drawing.Point(0, 0)
Me.pnl.Name = "pnl"
Me.pnl.Size = New System.Drawing.Size(300, 70)
Me.pnl.TabIndex = 1
'
'lblText
'
Me.lblText.Cursor = System.Windows.Forms.Cursors.Hand
Me.lblText.Dock = System.Windows.Forms.DockStyle.Fill
Me.lblText.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblText.Location = New System.Drawing.Point(0, 25)
Me.lblText.Name = "lblText"
Me.lblText.Size = New System.Drawing.Size(298, 43)
Me.lblText.TabIndex = 0
Me.lblText.Text = "Der LKW SD 13 AS steht bereits seit über 2 Stunden! "
Me.lblText.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
'
'Header
'
Me.Header.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Header.Controls.Add(Me.lblTitle)
Me.Header.Controls.Add(Me.btnClose)
Me.Header.Dock = System.Windows.Forms.DockStyle.Top
Me.Header.Location = New System.Drawing.Point(0, 0)
Me.Header.Name = "Header"
Me.Header.Size = New System.Drawing.Size(298, 25)
Me.Header.TabIndex = 87
'
'lblTitle
'
Me.lblTitle.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblTitle.ForeColor = System.Drawing.Color.White
Me.lblTitle.Location = New System.Drawing.Point(3, 0)
Me.lblTitle.Name = "lblTitle"
Me.lblTitle.Size = New System.Drawing.Size(241, 24)
Me.lblTitle.TabIndex = 88
Me.lblTitle.Text = "LKW Standzeit Benachrichtigung"
Me.lblTitle.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
'
'btnClose
'
Me.btnClose.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.btnClose.BackColor = System.Drawing.Color.Red
Me.btnClose.FlatAppearance.BorderColor = System.Drawing.Color.White
Me.btnClose.FlatAppearance.BorderSize = 0
Me.btnClose.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnClose.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btnClose.ForeColor = System.Drawing.Color.White
Me.btnClose.Location = New System.Drawing.Point(264, -1)
Me.btnClose.Name = "btnClose"
Me.btnClose.RightToLeft = System.Windows.Forms.RightToLeft.Yes
Me.btnClose.Size = New System.Drawing.Size(35, 25)
Me.btnClose.TabIndex = 86
Me.btnClose.Text = "X"
Me.btnClose.UseVisualStyleBackColor = False
'
'frmNotify
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.AutoSize = True
Me.ClientSize = New System.Drawing.Size(300, 70)
Me.Controls.Add(Me.pnl)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
Me.MaximumSize = New System.Drawing.Size(300, 300)
Me.MinimumSize = New System.Drawing.Size(100, 70)
Me.Name = "frmNotify"
Me.ShowIcon = False
Me.ShowInTaskbar = False
Me.Text = "frmNotify"
Me.TopMost = True
Me.pnl.ResumeLayout(False)
Me.Header.ResumeLayout(False)
Me.ResumeLayout(False)
End Sub
Friend WithEvents Timer As System.Windows.Forms.Timer
Friend WithEvents pnl As System.Windows.Forms.Panel
Friend WithEvents btnClose As System.Windows.Forms.Button
Friend WithEvents Header As System.Windows.Forms.Panel
Public WithEvents lblText As System.Windows.Forms.Label
Public WithEvents lblTitle As System.Windows.Forms.Label
End Class

123
UID/frmNotify.resx Normal file
View File

@@ -0,0 +1,123 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="Timer.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
</root>

113
UID/frmNotify.vb Normal file
View File

@@ -0,0 +1,113 @@
Public Class frmNotify
Public Y As Integer = 0
Public AvisoID As Integer = 0
Public TimerInterval = 5000
Public Notify_ART As cNotify_ART
Enum cNotify_ART
AVISO_2H
NEUER_CHAT
End Enum
Protected Overrides ReadOnly Property ShowWithoutActivation() As Boolean
Get
Return True
End Get
End Property
Sub New(title As String, text As String)
Me.InitializeComponent()
Me.lblTitle.Text = title
Me.lblText.Text = text
End Sub
Sub New(art As cNotify_ART, typ As Integer, text As String, Optional id As Integer = -1)
Me.InitializeComponent()
Me.Notify_ART = art
Select Case Notify_ART
Case cNotify_ART.AVISO_2H
Me.AvisoID = id
Select Case typ
Case 1
Me.lblTitle.Text = "LKW Standzeit Benachrichtigung"
Me.lblText.Text = "Der LKW '" & text & "' ist vor über 2 Stunden eingetroffen."
Case 2
Me.lblTitle.Text = "LKW Standzeit - Vermerk eintragen"
Me.lblText.Text = "Der LKW '" & text & "' ist vor über 2 Stunden eingetroffen." &
"Bitte VERMERK eintragen!"
Case 3
Me.lblTitle.Text = "LKW Standzeit Benachrichtigung"
Me.lblText.Text = "Der LKW '" & text & "' steht bereits über 24 Stunden!"
Me.Header.BackColor = Color.Red
End Select
Case cNotify_ART.NEUER_CHAT
Me.lblTitle.Text = "CHAT Nachricht"
Me.lblText.Text = text
End Select
End Sub
Private Sub Timer_Tick(sender As Object, e As EventArgs) Handles Timer.Tick
Me.Close()
End Sub
Private Sub btnClose_Click(sender As Object, e As EventArgs) Handles btnClose.Click
Me.Close()
End Sub
Private Sub frmNotify_Load(sender As Object, e As EventArgs) Handles Me.Load
Timer.Interval = TimerInterval
lblText.Cursor = IIf(AvisoID > 0, Cursors.Hand, Cursors.Default)
'If Y = 0 Then
'Me.Location = New Point(Me.Owner.Width - Me.Width - 10, Me.Owner.Height - Me.Height - 10)
' Else
' Me.Location = New Point(Me.Owner.Width - Me.Width - 10, Y)
' End If
Dim WIDTH = Screen.FromRectangle(Me.Bounds).WorkingArea.Size.Width
Dim hEIGHT = Screen.FromRectangle(Me.Bounds).WorkingArea.Size.Width
'RECHTS UNTEN:
'If Y = 0 Then
' Me.Location = New Point(WIDTH - Me.Width - 10, hEIGHT - Me.Height - 10)
'Else
' Me.Location = New Point(WIDTH - Me.Width - 10, Y)
'End If
If Y = 0 Then
Me.Location = New Point(10, hEIGHT - Me.Height - 10)
Else
Me.Location = New Point(10, Y)
End If
End Sub
Private Sub lblText_Click(sender As Object, e As EventArgs) Handles lblText.Click
Select Case Notify_ART
Case cNotify_ART.AVISO_2H
' frmMain.Details_anzeigen(AvisoID)
Me.Close()
Case cNotify_ART.NEUER_CHAT
For Each openForm In Application.OpenForms()
If TypeOf (openForm) Is VERAG_PROG_ALLGEMEIN.frmMessenger Then
CType(openForm, VERAG_PROG_ALLGEMEIN.frmMessenger).WindowState = FormWindowState.Normal
CType(openForm, VERAG_PROG_ALLGEMEIN.frmMessenger).BringToFront()
Exit Sub
End If
Next
Dim f As New VERAG_PROG_ALLGEMEIN.frmMessenger
f.Location = Cursor.Position
f.Show()
Me.Close()
End Select
End Sub
End Class

2
UID/frmPrintView.Designer.vb generated
View File

@@ -33,7 +33,7 @@ Partial Class frmPrintView
Me.ReportViewer1.LocalReport.ReportEmbeddedResource = "UID.rptDetailsPrint.rdlc"
Me.ReportViewer1.Location = New System.Drawing.Point(0, 0)
Me.ReportViewer1.Name = "ReportViewer1"
Me.ReportViewer1.ServerReport.BearerToken = Nothing
'Me.ReportViewer1.ServerReport.BearerToken = Nothing
Me.ReportViewer1.Size = New System.Drawing.Size(856, 612)
Me.ReportViewer1.TabIndex = 0
'

3
UID/licenses.licx
View File

@@ -1,2 +1 @@
GrapeCity.ActiveReports.Viewer.Win.Viewer, GrapeCity.ActiveReports.Viewer.Win.v9, Version=9.1.2302.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff
GrapeCity.ActiveReports.SectionReport, GrapeCity.ActiveReports.v9, Version=9.1.2302.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff