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

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

Browse Source
This commit is contained in:
m.ilhan
2024-11-13 08:55:01 +01:00
parent 256c4b9865 580487ee75
commit e6b067be2e
22 changed files with 474 additions and 255 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
AVISOUPDATER/UPDATERfrm.vb
View File

@@ -35,6 +35,10 @@ Public Class UPDATERfrm
CopyIncremental = False
End If
If System.AppDomain.CurrentDomain.BaseDirectory = "\\share01\Programme\AVISO\" OrElse System.AppDomain.CurrentDomain.BaseDirectory = "\\share01\f\Programme\AVISO\" OrElse System.AppDomain.CurrentDomain.BaseDirectory = "\\install\Programme\AVISO\" Then
MsgBox("Programm kann nicht im Quellpfad " & System.AppDomain.CurrentDomain.BaseDirectory & " geupdated werden!" & vbNewLine & "Vorgang wird abgebrochen!", MsgBoxStyle.Critical)
Exit Sub
End If
Dim FIRMA = "VERAG"
Dim pfadDatei As String = System.AppDomain.CurrentDomain.BaseDirectory & "\Standort.txt"

52
Aviso/Anhänge/frmSendungAnhangImport.vb
View File

@@ -1,17 +1,10 @@

'Imports iTextSharp.text.pdf
'Imports iTextSharp.text
Imports itextsharp.text
Imports System.IO
Imports Spire.Pdf
Imports Spire.Pdf.Conversion
Imports Spire.Pdf.Conversion.Compression
Imports Spire.Pdf.Exporting
Imports VERAG_PROG_ALLGEMEIN
'Imports GrapeCity.Documents.Pdf
'Imports Spire.Pdf
Public Class frmSendungAnhangImport
@@ -134,7 +127,6 @@ Public Class frmSendungAnhangImport
Try
'If PdfViewer IsNot Nothing AndAlso PdfViewer.IsDocumentLoaded Then
' PdfViewer.CloseDocument()
'End If
@@ -148,9 +140,19 @@ Public Class frmSendungAnhangImport
WebBrowser.Visible = (loc <> "")
WebBrowser.Navigate(loc)
Else
WebBrowser.Visible = False
PdfViewer.Visible = (loc <> "")
PdfViewer.LoadFromFile(loc)
If loc <> "" Then
Dim data = File.ReadAllBytes(loc)
Dim pdfStream = New MemoryStream(data)
PdfViewer.LoadFromStream(pdfStream)
pdfStream.Close()
End If
'NOT WORKING
'PdfViewer.LoadFromFile(loc) NOT WORKING
End If
ElseIf typ = "BILD" Then
PdfViewer.Visible = False
@@ -494,7 +496,7 @@ Public Class frmSendungAnhangImport
Try
PagesLeft = 0
Dim pdf As New PdfDocument()
Dim pdf As New Spire.Pdf.PdfDocument()
pdf.LoadFromFile(sourceFile)
' Dim r As PdfReader = New PdfReader(sourceFile)
Dim pagesToKeep As New List(Of Integer)
@@ -511,7 +513,7 @@ Public Class frmSendungAnhangImport
Next
Dim pdf1 As New PdfDocument()
Dim pdf1 As New Spire.Pdf.PdfDocument()
Dim page As PdfPageBase
For Each p In pagesToKeep
@@ -580,10 +582,10 @@ Public Class frmSendungAnhangImport
Dim pdf As New PdfDocument()
Dim pdf As New Spire.Pdf.PdfDocument()
pdf.LoadFromFile(sourceFile)
Dim pdf1 As New PdfDocument()
Dim pdf1 As New Spire.Pdf.PdfDocument()
Dim page As PdfPageBase
For Each p In pagesToExtract
@@ -658,7 +660,7 @@ Public Class frmSendungAnhangImport
Dim Reader As New iTextSharp.text.pdf.PdfReader(SourceFile)
If Not TargetFile.ToLower.EndsWith(".pdf") Then TargetFile = TargetFile & ".pdf"
Dim srcDoc As New iTextSharp.text.Document() 'Reader.GetPageSizeWithRotation(0))
Dim PdfCopyProvider As New iTextSharp.text.pdf.PdfCopy(srcDoc, New System.IO.FileStream(TargetFile, System.IO.FileMode.Create))
Dim PdfCopyProvider As New itextsharp.text.pdf.PdfCopy(srcDoc, New FileStream(TargetFile, System.IO.FileMode.Create))
PdfCopyProvider.SetFullCompression()
srcDoc.Open()
For Each p In pagesToExtract
@@ -1083,7 +1085,7 @@ Public Class frmSendungAnhangImport
compressor.CompressToFile(DS.GET_TOP1_PATH)
'Load the pdf document
Dim doc As New PdfDocument()
Dim doc As New Spire.Pdf.PdfDocument()
doc.LoadFromFile(DS.GET_TOP1_PATH)
'Compress the content in document
@@ -1107,7 +1109,7 @@ Public Class frmSendungAnhangImport
End If
Return False
End Function
Private Shared Sub CompressContent(ByVal doc As PdfDocument)
Private Shared Sub CompressContent(ByVal doc As Spire.Pdf.PdfDocument)
'Disable the incremental update
doc.FileInfo.IncrementalUpdate = False
@@ -1115,7 +1117,7 @@ Public Class frmSendungAnhangImport
doc.CompressionLevel = PdfCompressionLevel.Best
End Sub
Private Shared Sub CompressImage(ByVal doc As PdfDocument)
Private Shared Sub CompressImage(ByVal doc As Spire.Pdf.PdfDocument)
Try
'Disable the incremental update
doc.FileInfo.IncrementalUpdate = False
@@ -1625,7 +1627,7 @@ Public Class frmSendungAnhangImport
' Dim F_listItem As String = Path.Combine("c:\mynewpath", Path.GetFileName(s))
' File.Copy(s, newFile)
' MsgBox(s)
If IO.File.Exists(s) Then
If System.IO.File.Exists(s) Then
Dim fi As New FileInfo(s)
Dim filename = fi.Name
@@ -1827,7 +1829,7 @@ Public Class frmSendungAnhangImport
If u.FILE_TYPE <> "PDF" Then Exit Sub
' Dim fi As New FileInfo(u.FILE_PATH)
Dim pdf As New PdfDocument()
Dim pdf As New Spire.Pdf.PdfDocument()
pdf.LoadFromFile(u.FILE_PATH)
For Each p In pdf.Pages
txtSeiten.Text = "1"
@@ -2061,7 +2063,7 @@ Public Class frmSendungAnhangImport
Try
' We have a embedded file. First lets try to get the file name out of memory
Dim theStream As IO.Stream = CType(e.Data.GetData("FileGroupDescriptor"), IO.Stream)
Dim theStream As System.IO.Stream = CType(e.Data.GetData("FileGroupDescriptor"), System.IO.Stream)
Dim fileGroupDescriptor(512) As Byte
theStream.Read(fileGroupDescriptor, 0, 512)
Dim fileName As System.Text.StringBuilder = New System.Text.StringBuilder("")
@@ -2074,7 +2076,7 @@ Public Class frmSendungAnhangImport
theStream.Close()
' We should have the file name or if its an email, the subject line. Create our temp file based on the temp path and this info
Dim myTempFile As String = IO.Path.GetTempPath & VERAG_PROG_ALLGEMEIN.cDATENSERVER.replaceInvalidCahr(fileName.ToString)
Dim myTempFile As String = System.IO.Path.GetTempPath & VERAG_PROG_ALLGEMEIN.cDATENSERVER.replaceInvalidCahr(fileName.ToString)
' Look to see if this is a email message. If so save that temporarily and get the temp file.
If InStr(myTempFile, ".msg") > 0 Then
@@ -2091,19 +2093,19 @@ Public Class frmSendungAnhangImport
objMI = Nothing
Else
' If its a attachment we need to pull the file itself out of memory
Dim ms As IO.MemoryStream = CType(e.Data.GetData("FileContents", True), IO.MemoryStream)
Dim ms As System.IO.MemoryStream = CType(e.Data.GetData("FileContents", True), System.IO.MemoryStream)
Dim FileBytes(CInt(ms.Length)) As Byte
' read the raw data into our variable
ms.Position = 0
ms.Read(FileBytes, 0, CInt(ms.Length))
ms.Close()
' save the raw data into our temp file
Dim fs As IO.FileStream = New IO.FileStream(myTempFile, IO.FileMode.OpenOrCreate, IO.FileAccess.Write)
Dim fs As System.IO.FileStream = New System.IO.FileStream(myTempFile, System.IO.FileMode.OpenOrCreate, System.IO.FileAccess.Write)
fs.Write(FileBytes, 0, FileBytes.Length)
fs.Close()
End If
' Make sure we have a actual file and also if we do make sure we erase it when done
If IO.File.Exists(myTempFile) Then
If System.IO.File.Exists(myTempFile) Then
' Assign the file name to the add dialog
EmAilAttach = myTempFile
Else

7
Aviso/Aviso.vbproj
View File

@@ -1609,7 +1609,6 @@
</ItemGroup>
<ItemGroup>
<Content Include="aviso.ico" />
<Content Include="bin\Debug\Resources\ambar_boarder.png" />
<Content Include="My Project\aktAlt.jpg" />
<None Include="Resources\ZwAbEinfuegen.png" />
<None Include="Resources\unisped_aeo_DE.jpg" />
@@ -1661,8 +1660,8 @@
<None Include="Resources\FO.bmp" />
<None Include="Resources\atr.png" />
<None Include="Resources\atr_s.png" />
<Content Include="Resources\ambar_boarder.png" />
<None Include="Resources\birthday_4.jpg" />
<None Include="Resources\ambar_boarder.png" />
<Content Include="Resources\FO.png">
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
</Content>
@@ -1867,7 +1866,9 @@
<EmbedInteropTypes>True</EmbedInteropTypes>
</COMReference>
</ItemGroup>
<ItemGroup />
<ItemGroup>
<Folder Include="bin\Debug\Resources\" />
</ItemGroup>
<Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
<PropertyGroup>
<PreBuildEvent>

4
Aviso/My Project/AssemblyInfo.vb
View File

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

7
Aviso/My Project/Resources.resx
View File

@@ -493,9 +493,6 @@
<data name="fakturiertInaktiv" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\fakturiertInaktiv.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="ambar_boarder" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\bin\Debug\Resources\ambar_boarder.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="stift1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\stift1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@@ -691,5 +688,7 @@
<data name="memories5" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\memories5.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="ambar_boarder" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ambar_boarder.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
</root>

BIN
Aviso/Resources/ambar_boarder1.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 23 KiB

BIN
Aviso/bin/Debug/Resources/ambar_boarder.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 23 KiB

2
Aviso/frmGesamtsicherheitenMenuNEU.Designer.vb generated
View File

@@ -498,7 +498,7 @@ Partial Class frmGesamtsicherheitenMenuNEU
Me.btnResetFilter.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnResetFilter.ForeColor = System.Drawing.Color.Black
Me.btnResetFilter.Image = Global.AVISO.My.Resources.Resources.refresh
Me.btnResetFilter.Location = New System.Drawing.Point(249, 24)
Me.btnResetFilter.Location = New System.Drawing.Point(283, 21)
Me.btnResetFilter.Name = "btnResetFilter"
Me.btnResetFilter.Size = New System.Drawing.Size(62, 33)
Me.btnResetFilter.TabIndex = 3

191
Aviso/frmGesamtsicherheitenMenuNEU.vb
View File

@@ -54,7 +54,7 @@ Public Class frmGesamtsicherheitenMenuNEU
btnMonat.Text = MONAT.ToString("MMMM")
btnJahr.Text = JAHR.Year
If GesSichRef.brgakto_gs_ATR = True Then
If GesSichRef.brgakto_gs_ATR Then
Dim anzahlOffenerGSUeber85Tage As Integer = checkOpenATBs()
If anzahlOffenerGSUeber85Tage > 0 Then
btnOpenOver85Days.Visible = True
@@ -67,36 +67,95 @@ Public Class frmGesamtsicherheitenMenuNEU
Public Function LoadDGV()
Dim sqladdon As String = ""
If chkOffen.Checked Then sqladdon &= " AND gs_SicherheitsSaldo != '0,00 €'"
If cbxStandort._value <> "" Then sqladdon &= " AND gs_filialenNr = '" & cbxStandort._value.ToString & "'"
Dim sqlSicherheitssaldo As String = ""
If chkOffen.Checked Then sqlSicherheitssaldo &= " HAVING
( COALESCE(MAX(SicherheitsSaldo.gs_SicherheitsSaldo), 0) +
COALESCE(MAX(PositionenSaldo.gsp_SicherheitsSaldo), 0)
) <> 0 "
If cbxStandort._value <> "" Then sqladdon &= " AND gs_filialenNr = " & cbxStandort._value.ToString
If cbxWarenort._value <> "" Then sqladdon &= " AND gs_warenort = '" & cbxWarenort._value.ToString & "'"
Dim sqlstring As String =
" select * from (Select gs_gsnr as gs_gsnr, MIN(gs_standort) as gs_standort, MIN(gs_warenort) as gs_warenort, MIN(gs_filialenNr) as gs_filialenNr, min(gs_abfertigungsNr) as gs_abfertigungsNr, MIN(gs_avisoId) as gs_avisoId,
max(gs_LKWKZ) as gs_LKWKZ, min (gs_datum) as gs_datum, FORMAT(
(Select SUM( Case
when gs_art = 'Open' then (gs_sicherheitsbetrag * -1)
when gs_art = 'Close' then gs_sicherheitsbetrag
End) As gs_SicherheitsSaldo FROM [tblGesamtsicherheit] where gs_gsnr = meh.gs_gsnr
)
+
(Select SUM( Case
when gsp_art = 'Open' then (gsp_sicherheitsbetrag * -1)
when gsp_art = 'Close' then gsp_sicherheitsbetrag
End) As gs_SicherheitsSaldo FROM [tblGesamtsicherheitsPositionen] where gsp_gsnr = meh.gs_gsnr
) , 'C', 'de-DE') as gs_SicherheitsSaldo
'Dim sqlstring As String =
' " select * from (Select gs_gsnr as gs_gsnr, MIN(gs_standort) as gs_standort, MIN(gs_warenort) as gs_warenort, MIN(gs_filialenNr) as gs_filialenNr, min(gs_abfertigungsNr) as gs_abfertigungsNr, MIN(gs_avisoId) as gs_avisoId,
' max(gs_LKWKZ) as gs_LKWKZ, min (gs_datum) as gs_datum, FORMAT(
' (Select SUM( Case
'when gs_art = 'Open' then (gs_sicherheitsbetrag * -1)
'when gs_art = 'Close' then gs_sicherheitsbetrag
' End) As gs_SicherheitsSaldo FROM [tblGesamtsicherheit] where gs_gsnr = meh.gs_gsnr
' )
' +
' (Select SUM( Case
'when gsp_art = 'Open' then (gsp_sicherheitsbetrag * -1)
'when gsp_art = 'Close' then gsp_sicherheitsbetrag
' End) As gs_SicherheitsSaldo FROM [tblGesamtsicherheitsPositionen] where gsp_gsnr = meh.gs_gsnr
' ) , 'C', 'de-DE') as gs_SicherheitsSaldo
From (select * from (select gs_gsnr as ding from [tblGesamtsicherheit] where
gs_freitext like '%" & txtSuchbegriff.Text & "%' OR
gs_abfertigungsNr like '%" & txtSuchbegriff.Text & "%' OR
gs_avisoId like '%" & txtSuchbegriff.Text & "%' OR
gs_ATBNr like '%" & txtSuchbegriff.Text & "%' OR
gs_LKWKZ like '%" & txtSuchbegriff.Text & "%' OR
gs_warenort like '%" & txtSuchbegriff.Text & "%'
) as tb1 left join [tblGesamtsicherheit] as tb2 on tb1.ding = tb2.gs_gsnr) as meh group by gs_gsnr) as meh2
Where gs_standort = '" & Standort & "' " & sqladdon & "
AND gs_datum > '" & Date.Parse(txtDatVon.Text) & "'
AND gs_datum < '" & Date.Parse(txtDatBis.Text).AddDays(1).AddSeconds(-1) & "' ORDER BY gs_gsnr"
' From (select * from (select gs_gsnr as ding from [tblGesamtsicherheit] where
' gs_freitext like '%" & txtSuchbegriff.Text & "%' OR
' gs_abfertigungsNr like '%" & txtSuchbegriff.Text & "%' OR
' gs_avisoId like '%" & txtSuchbegriff.Text & "%' OR
' gs_ATBNr like '%" & txtSuchbegriff.Text & "%' OR
' gs_LKWKZ like '%" & txtSuchbegriff.Text & "%' OR
' gs_warenort like '%" & txtSuchbegriff.Text & "%'
' ) as tb1 left join [tblGesamtsicherheit] as tb2 on tb1.ding = tb2.gs_gsnr) as meh group by gs_gsnr) as meh2
' Where gs_standort = '" & Standort & "' " & sqladdon & "
' AND gs_datum > '" & Date.Parse(txtDatVon.Text) & "'
' AND gs_datum < '" & Date.Parse(txtDatBis.Text).AddDays(1).AddSeconds(-1) & "' ORDER BY gs_gsnr"
Dim sqlstring As String = "WITH SicherheitsSaldo AS (
SELECT
gs_gsnr,
SUM(CASE
WHEN gs_art = 'Open' THEN -gs_sicherheitsbetrag
WHEN gs_art = 'Close' THEN gs_sicherheitsbetrag
END) AS gs_SicherheitsSaldo
FROM tblGesamtsicherheit
GROUP BY gs_gsnr
),
PositionenSaldo AS (
SELECT
gsp_gsnr,
SUM(CASE
WHEN gsp_art = 'Open' THEN -gsp_sicherheitsbetrag
WHEN gsp_art = 'Close' THEN gsp_sicherheitsbetrag
END) AS gsp_SicherheitsSaldo
FROM tblGesamtsicherheitsPositionen
GROUP BY gsp_gsnr
)
SELECT
gs.gs_gsnr,
MIN(gs.gs_standort) AS gs_standort,
MIN(gs.gs_warenort) AS gs_warenort,
MIN(gs.gs_filialenNr) AS gs_filialenNr,
MIN(gs.gs_abfertigungsNr) AS gs_abfertigungsNr,
MIN(gs.gs_avisoId) AS gs_avisoId,
MAX(gs.gs_LKWKZ) AS gs_LKWKZ,
MIN(gs.gs_datum) AS gs_datum,
(
COALESCE(MAX(SicherheitsSaldo.gs_SicherheitsSaldo), 0) +
COALESCE(MAX(PositionenSaldo.gsp_SicherheitsSaldo), 0)
) AS gs_SicherheitsSaldo
FROM
tblGesamtsicherheit gs
LEFT JOIN SicherheitsSaldo ON gs.gs_gsnr = SicherheitsSaldo.gs_gsnr
LEFT JOIN PositionenSaldo ON gs.gs_gsnr = PositionenSaldo.gsp_gsnr
WHERE
gs.gs_standort = '" & Standort & "' " & sqladdon & "
AND gs.gs_datum BETWEEN '" & Date.Parse(txtDatVon.Text) & "' AND '" & Date.Parse(txtDatBis.Text).AddDays(1).AddSeconds(-1) & "'
AND (
gs.gs_freitext LIKE '%" & txtSuchbegriff.Text & "%' OR
gs.gs_abfertigungsNr LIKE '%" & txtSuchbegriff.Text & "%' OR
gs.gs_avisoId LIKE '%" & txtSuchbegriff.Text & "%' OR
gs.gs_ATBNr LIKE '%" & txtSuchbegriff.Text & "%' OR
gs.gs_LKWKZ LIKE '%" & txtSuchbegriff.Text & "%' OR
gs.gs_warenort LIKE '%" & txtSuchbegriff.Text & "%'
)
GROUP BY
gs.gs_gsnr " & sqlSicherheitssaldo &
"ORDER BY
gs.gs_gsnr;"
dgvListe.SET_SQL(sqlstring, "AVISO")
dgvListe.LOAD()
@@ -115,6 +174,7 @@ Public Class frmGesamtsicherheitenMenuNEU
.Columns("gs_datum").HeaderText = "Datum"
.Columns("gs_SicherheitsSaldo").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
.Columns("gs_SicherheitsSaldo").HeaderText = "offener S-Betrag"
.Columns("gs_SicherheitsSaldo").DefaultCellStyle.Format = "c2"
.Columns("gs_Warenort").Width = 96
.Columns("gs_Warenort").HeaderText = "Warenort"
.Columns("gs_avisoId").Width = 96
@@ -123,8 +183,6 @@ Public Class frmGesamtsicherheitenMenuNEU
End With
If dgvListe.Rows.Count = 0 Then Exit Function
dataTable = New DataTable()
@@ -361,21 +419,63 @@ Public Class frmGesamtsicherheitenMenuNEU
Dim anzahlOffenerGSUeber85Tage As Integer
Dim sqlstring As String = "select count(*) as anzahlOffeneATBs from (Select gs_gsnr as gs_gsnr, MIN(gs_standort) as gs_standort,min (gs_datum) as gs_datum,
(Select SUM( Case
when gs_art = 'Open' then (gs_sicherheitsbetrag * -1)
when gs_art = 'Close' then gs_sicherheitsbetrag
End) As gs_SicherheitsSaldo FROM [tblGesamtsicherheit] where gs_gsnr = meh.gs_gsnr
)
+
(Select SUM( Case
when gsp_art = 'Open' then (gsp_sicherheitsbetrag * -1)
when gsp_art = 'Close' then gsp_sicherheitsbetrag
End) As gs_SicherheitsSaldo FROM [tblGesamtsicherheitsPositionen] where gsp_gsnr = meh.gs_gsnr
) as Sicherheitssaldo
' Dim sqlstring As String = "select count(*) as anzahlOffeneATBs from (Select gs_gsnr as gs_gsnr, MIN(gs_standort) as gs_standort,min (gs_datum) as gs_datum,
' (Select SUM( Case
'when gs_art = 'Open' then (gs_sicherheitsbetrag * -1)
'when gs_art = 'Close' then gs_sicherheitsbetrag
' End) As gs_SicherheitsSaldo FROM [tblGesamtsicherheit] where gs_gsnr = meh.gs_gsnr
' )
' +
' (Select SUM( Case
'when gsp_art = 'Open' then (gsp_sicherheitsbetrag * -1)
'when gsp_art = 'Close' then gsp_sicherheitsbetrag
' End) As gs_SicherheitsSaldo FROM [tblGesamtsicherheitsPositionen] where gsp_gsnr = meh.gs_gsnr
' ) as Sicherheitssaldo
' From [tblGesamtsicherheit] as meh group by gs_gsnr) as meh2
' Where gs_standort = '" & Standort & "'AND Sicherheitssaldo <> 0 AND gs_datum < '" & Date.Now().AddDays(-85) & "'"
Dim sqlstring As String = "WITH SicherheitsSaldo AS (
SELECT
gs_gsnr,
SUM(CASE
WHEN gs_art = 'Open' THEN -gs_sicherheitsbetrag
WHEN gs_art = 'Close' THEN gs_sicherheitsbetrag
END) AS gs_SicherheitsSaldo
FROM tblGesamtsicherheit
GROUP BY gs_gsnr
),
PositionenSaldo AS (
SELECT
gsp_gsnr,
SUM(CASE
WHEN gsp_art = 'Open' THEN -gsp_sicherheitsbetrag
WHEN gsp_art = 'Close' THEN gsp_sicherheitsbetrag
END) AS gsp_SicherheitsSaldo
FROM tblGesamtsicherheitsPositionen
GROUP BY gsp_gsnr
)
SELECT
COUNT(*) AS anzahlOffeneATBs
FROM (
SELECT
gs.gs_gsnr,
MIN(gs.gs_standort) AS gs_standort,
MIN(gs.gs_datum) AS gs_datum,
COALESCE(SUM(SicherheitsSaldo.gs_SicherheitsSaldo), 0) +
COALESCE(SUM(PositionenSaldo.gsp_SicherheitsSaldo), 0) AS Sicherheitssaldo
FROM tblGesamtsicherheit gs
LEFT JOIN SicherheitsSaldo ON gs.gs_gsnr = SicherheitsSaldo.gs_gsnr
LEFT JOIN PositionenSaldo ON gs.gs_gsnr = PositionenSaldo.gsp_gsnr
WHERE gs.gs_standort = '" & Standort & "'
AND gs.gs_datum < '" & Date.Now().AddDays(-85) & "'
GROUP BY gs.gs_gsnr
) AS meh2
WHERE meh2.Sicherheitssaldo <> 0;"
From [tblGesamtsicherheit] as meh group by gs_gsnr) as meh2
Where gs_standort = '" & Standort & "'AND Sicherheitssaldo <> 0 AND gs_datum < '" & Date.Now().AddDays(-85) & "'"
Dim dtNew As DataTable = SQL.loadDgvBySql(sqlstring, "AVISO", 100, True)
@@ -412,13 +512,10 @@ Public Class frmGesamtsicherheitenMenuNEU
Next
Dim frm As New frmGesamtsicherheitenNEU
Dim datumVon As Date = CDate(txtDatVon.Text)
datumVon = datumVon.AddDays(-1)
If sender.ToString = "Detailliste" Then
frm.LoadDataTableSicherheitenForExport2(list, datumVon.ToShortDateString, txtDatBis.Text)
ElseIf sender.ToString = "Referenzliste-Zollamt" Then
frm.LoadDataTableSicherheitenForExport(list, datumVon.ToShortDateString, txtDatBis.Text, Standort)

20
Aviso/frmGesamtsicherheitenNEU.Designer.vb generated
View File

@@ -315,10 +315,10 @@ Partial Class frmGesamtsicherheitenNEU
'txtATCaendern
'
Me.txtATCaendern.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtATCaendern.Location = New System.Drawing.Point(95, 40)
Me.txtATCaendern.Location = New System.Drawing.Point(117, 40)
Me.txtATCaendern.Margin = New System.Windows.Forms.Padding(0)
Me.txtATCaendern.Name = "txtATCaendern"
Me.txtATCaendern.Size = New System.Drawing.Size(186, 24)
Me.txtATCaendern.Size = New System.Drawing.Size(164, 24)
Me.txtATCaendern.TabIndex = 60
'
'Label34
@@ -327,9 +327,9 @@ Partial Class frmGesamtsicherheitenNEU
Me.Label34.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label34.Location = New System.Drawing.Point(10, 40)
Me.Label34.Name = "Label34"
Me.Label34.Size = New System.Drawing.Size(80, 20)
Me.Label34.Size = New System.Drawing.Size(104, 20)
Me.Label34.TabIndex = 5
Me.Label34.Text = "ATC/MRN"
Me.Label34.Text = "Reg-Nr./MRN"
'
'FlatButton4
'
@@ -400,9 +400,9 @@ Partial Class frmGesamtsicherheitenNEU
Me.Label32.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label32.Location = New System.Drawing.Point(10, 40)
Me.Label32.Name = "Label32"
Me.Label32.Size = New System.Drawing.Size(61, 20)
Me.Label32.Size = New System.Drawing.Size(60, 20)
Me.Label32.TabIndex = 5
Me.Label32.Text = "ATB-Nr"
Me.Label32.Text = "Reg-Nr"
'
'FlatButton2
'
@@ -1524,9 +1524,9 @@ Partial Class frmGesamtsicherheitenNEU
Me.Label12.ForeColor = System.Drawing.SystemColors.ButtonHighlight
Me.Label12.Location = New System.Drawing.Point(819, 191)
Me.Label12.Name = "Label12"
Me.Label12.Size = New System.Drawing.Size(64, 13)
Me.Label12.Size = New System.Drawing.Size(77, 13)
Me.Label12.TabIndex = 19
Me.Label12.Text = "ATC / MRN"
Me.Label12.Text = "Reg-Nr / MRN"
'
'Label6
'
@@ -1584,9 +1584,9 @@ Partial Class frmGesamtsicherheitenNEU
Me.Label1.ForeColor = System.Drawing.SystemColors.ButtonHighlight
Me.Label1.Location = New System.Drawing.Point(76, 191)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(70, 13)
Me.Label1.Size = New System.Drawing.Size(47, 13)
Me.Label1.TabIndex = 13
Me.Label1.Text = "ATB Nummer"
Me.Label1.Text = "Reg. Nr."
'
'txtPosFreitext
'

77
Aviso/frmGesamtsicherheitenNEU.vb
View File

@@ -75,7 +75,7 @@ Public Class frmGesamtsicherheitenNEU
panOverlay.Visible = True
cboFiliale.fillWithSQL("SELECT FilialenNr, cast(FilialenNr as varchar(4)) + ' ' + Grenzstelle FROM Filialen WHERE Fil_Status='A' ORDER BY FilialenNr ", True, "FMZOLL", True)
cboWarenort.fillWithSQL("SELECT [wo_warenort],CONCAT([wo_bezeichnung],' - ' ,[wo_knnr]) FROM [tblWarenorte] WHERE [wo_aktiv] ='1' AND [wo_firma] = '" & firmaId & "' AND wo_ze = 1 ORDER BY [wo_reihenfolge] ", True, "AVISO", True)
cboWarenort.fillWithSQL("SELECT [wo_warenort],CONCAT([wo_bezeichnung],' - ' ,[wo_knnr]) FROM [tblWarenorte] WHERE [wo_aktiv] = 1 AND [wo_firma] = " & firmaId & " AND wo_ze = 1 ORDER BY [wo_reihenfolge] ", True, "AVISO", True)
If datum = Nothing Then datum = Date.Now
nextGessicherheitID = -1
@@ -83,8 +83,23 @@ Public Class frmGesamtsicherheitenNEU
txtlkwIdSearch.initSearchBox(Me.FindForm, " LKW_Nr, AvisoID, CAST(Datum as Date) as Datum FROM [Aviso]", {"LKW_Nr", "AvisoID", "Datum"}, "", "Datum desc", "LKW_Nr", "AvisoID", "AVISO",, 250, 200)
If Standort = "AMBAR GmbH" Then
For i As Integer = 0 To cboFiliale.Items.Count - 1
If cboFiliale.Items(i).ToString().Contains("5701") Then
cboFiliale.SelectedIndex = i
Exit For
End If
Next
For i As Integer = 0 To cboWarenort.Items.Count - 1
If cboWarenort.Items(i).ToString().Contains("AMBAR") Then
cboWarenort.SelectedIndex = i
Exit For
End If
Next
End If
Else
LoadDGVSicherheiten(True)
LoadDGVSicherheiten(True)
End If
LoadStandort()
cboSicherheitATR.Enabled = currentGesSichRef.brgakto_gs_ATR
@@ -105,15 +120,15 @@ Public Class frmGesamtsicherheitenNEU
txtGestellInfo.Text = ""
Dim sqladd1 As String = ""
If currentGesSichRef.brgakto_gs_ustEnabled Then sqladd1 &= ", FORMAT((([gs_warenwert] + [gs_sicherheitsbetrag]) * " & currentGesSichRef.brgakto_gs_ust & "/100), 'C', 'de-DE') as gs_ust"
If currentGesSichRef.brgakto_gs_ustEnabled Then sqladd1 &= ", (([gs_warenwert] + [gs_sicherheitsbetrag]) * " & currentGesSichRef.brgakto_gs_ust & "/100) as gs_ust"
If currentGesSichRef.brgakto_gs_ATR Then sqladd1 &= ", [gs_atr]"
Dim sqlSearchSting As String = ""
If withFilterParam = True Then
If txtSuche.Text <> "" Then sqlSearchSting &= "AND ([gs_abfertigungsNr] Like '%" & txtSuche.Text & "%' OR [gs_ATBNr] Like '%" & txtSuche.Text & "%' OR [gs_LKWKZ] like '%" & txtSuche.Text & "%' OR [gs_avisoId] like '%" & txtSuche.Text & "%' OR [gs_freitext] like '%" & txtSuche.Text & "%')"
If txtSuche.Text <> "" Then sqlSearchSting &= " AND ([gs_abfertigungsNr] Like '%" & txtSuche.Text & "%' OR [gs_ATBNr] Like '%" & txtSuche.Text & "%' OR [gs_LKWKZ] like '%" & txtSuche.Text & "%' OR [gs_avisoId] like '%" & txtSuche.Text & "%' OR [gs_freitext] like '%" & txtSuche.Text & "%')"
If cbxRundPosanzeigen.Checked = False Then sqlSearchSting &= "AND ISNULL(gs_isRundungsdiff,0) = 0"
End If
Dim SQLStringSicherheit As String = "select [gs_gsId], [gs_gsnr], [gs_posNr], [gs_ATBNr], [gs_datum], [gs_warenwert], [gs_sicherheitsbetrag], [gs_saldo] " & sqladd1 & " , [gs_freitext] from [tblGesamtsicherheit] where [gs_gsnr] = '" & gessicherheitID & "'" & sqlSearchSting & " order by [gs_ATBNr], [gs_posNr]"
Dim SQLStringSicherheit As String = "select [gs_gsId], [gs_gsnr], [gs_posNr], [gs_ATBNr], [gs_datum], [gs_warenwert], [gs_sicherheitsbetrag], [gs_saldo] " & sqladd1 & " , [gs_freitext] from [tblGesamtsicherheit] where [gs_gsnr] = " & gessicherheitID & sqlSearchSting & " order by [gs_ATBNr], [gs_posNr]"
dgvGesamtsicherheit.SET_SQL(SQLStringSicherheit, "AVISO", ,)
dgvGesamtsicherheit.LOAD()
@@ -133,7 +148,7 @@ Public Class frmGesamtsicherheitenNEU
Case True
If Standort = "Verag GmbH" Then
.Columns("gs_ATBNr").HeaderText = "ATB"
.Columns("gs_ATBNr").HeaderText = "Reg-Nr."
Else
.Columns("gs_ATBNr").HeaderText = "T1 MRN"
End If
@@ -144,11 +159,12 @@ Public Class frmGesamtsicherheitenNEU
.Columns("gs_atr").Width = 35
.Columns("gs_ust").Width = 70
.Columns("gs_ust").HeaderText = "Ust"
.Columns("gs_ust").DefaultCellStyle.Format = "c2"
Case Else
If Standort = "Verag GmbH" Then
.Columns("gs_ATBNr").HeaderText = "ATB"
.Columns("gs_ATBNr").HeaderText = "Reg-Nr."
Else
.Columns("gs_ATBNr").HeaderText = "T1 MRN"
End If
@@ -211,15 +227,8 @@ Public Class frmGesamtsicherheitenNEU
Next
'Dim SQLStringSicherheit As String = "select [gs_ATBNr] as 'ATB Verwahrlager',[gs_gsnr] as 'GS Nr', CAST(gs_datum as Date) as Datum, CONVERT(VARCHAR(5),gs_datum, 108) as Uhrzeit, [gs_warenwert] as Warenwert, [gs_sicherheitsbetrag] as Sicherheitbetrag, [gs_saldo] as Saldo, [gs_freitext] as Freitext, [gs_atr] as 'ATR ja/nein', [gs_ust] as '19% EUSt',
' [gsp_ATCNr] as 'ATCNr oder MRN eroeffnet', CAST(gsp_datum as Date) as Datum, CONVERT(VARCHAR(5),gsp_datum, 108) as Uhrzeit, [gsp_warenwert] as Warenwert, [gsp_sicherheitsbetrag] as Sicherheitsbetrag2, [gsp_freitext] as Freitext
' from [tblGesamtsicherheit]
' inner join [tblGesamtsicherheitsPositionen] on [tblGesamtsicherheit].gs_gsId = [tblGesamtsicherheitsPositionen].gsp_gsId
' where [gs_gsnr] IN (" & gsnr & ")
' order by gs_gsId"
Dim SQLStringSicherheit = "select gs_gsnr as 'Nr',[gs_ATBNr] as 'ATB Verwahrlager " & standort & "','Eingang Verwahrlager' as 'Typ', CAST(gs_datum as Date) as Datum, CONVERT(VARCHAR(5),gs_datum, 108) as Uhrzeit, [gs_warenwert] as Warenwert, [gs_sicherheitsbetrag] as Sicherheitbetrag, [gs_sicherheitsbetrag] *-1 as Sicherheitbetrag_Calc, [gs_freitext] as Freitext, [gs_atr] as 'ATR ja/nein', [gs_ust] as '19% EUSt'
Dim SQLStringSicherheit = "select gs_gsnr as 'Nr',[gs_ATBNr] as 'Reg-Nr. Verwahrlager " & standort & "','Eingang Verwahrlager' as 'Typ', CAST(gs_datum as Date) as Datum, CONVERT(VARCHAR(5),gs_datum, 108) as Uhrzeit, [gs_warenwert] as Warenwert, [gs_sicherheitsbetrag] as Sicherheitbetrag, [gs_sicherheitsbetrag] *-1 as Sicherheitbetrag_Calc, [gs_freitext] as Freitext, [gs_atr] as 'ATR ja/nein', [gs_ust] as '19% EUSt'
From [tblGesamtsicherheit]
Where [gs_gsnr] In (" & gsnr & ")
and isnull(gs_warenwert,0) <> 0
@@ -296,7 +305,7 @@ Public Class frmGesamtsicherheitenNEU
Next
Dim SQLStringSicherheit As String = "select [gs_ATBNr] as 'ATB Verwahrlager',[gs_gsnr] as 'GS Nr', CAST(gs_datum as Date) as Datum, CONVERT(VARCHAR(5),gs_datum, 108) as Uhrzeit, [gs_warenwert] as Warenwert, [gs_sicherheitsbetrag] as Sicherheitbetrag, [gs_saldo] as Saldo, [gs_freitext] as Freitext, [gs_atr] as 'ATR ja/nein', [gs_ust] as '19% EUSt',
Dim SQLStringSicherheit As String = "select [gs_ATBNr] as 'Reg-Nr. Verwahrlager',[gs_gsnr] as 'GS Nr', CAST(gs_datum as Date) as Datum, CONVERT(VARCHAR(5),gs_datum, 108) as Uhrzeit, [gs_warenwert] as Warenwert, [gs_sicherheitsbetrag] as Sicherheitbetrag, [gs_saldo] as Saldo, [gs_freitext] as Freitext, [gs_atr] as 'ATR ja/nein', [gs_ust] as '19% EUSt',
[gsp_ATCNr] as 'ATCNr oder MRN eroeffnet', CAST(gsp_datum as Date) as Datum, CONVERT(VARCHAR(5),gsp_datum, 108) as Uhrzeit, [gsp_warenwert] as Warenwert, [gsp_sicherheitsbetrag] as Sicherheitsbetrag2, [gsp_freitext] as Freitext
from [tblGesamtsicherheit]
inner join [tblGesamtsicherheitsPositionen] on [tblGesamtsicherheit].gs_gsId = [tblGesamtsicherheitsPositionen].gsp_gsId
@@ -310,7 +319,7 @@ Public Class frmGesamtsicherheitenNEU
dtSicherheiten.Columns.Add("SSaldo")
Dim drFirst = dtSicherheiten.NewRow
drFirst.Item("ATB Verwahrlager") = "Uebertrag vom " & datumVon
drFirst.Item("Reg-Nr. Verwahrlager") = "Uebertrag vom " & datumVon
drFirst.Item("SSaldo") = CDbl(dtSicherheiten.Rows(0).Item("Saldo"))
dtSicherheiten.Rows.InsertAt(drFirst, 0)
@@ -335,7 +344,7 @@ Public Class frmGesamtsicherheitenNEU
Next
Dim drLast = dtSicherheiten.NewRow
drLast.Item("ATB Verwahrlager") = "Saldo zum " & datumBis
drLast.Item("Reg-Nr. Verwahrlager") = "Saldo zum " & datumBis
drLast.Item("SSaldo") = CDbl(dtSicherheiten.Rows(dtSicherheiten.Rows.Count - 1).Item("SSaldo"))
dtSicherheiten.Rows.InsertAt(drLast, dtSicherheiten.Rows.Count)
@@ -402,7 +411,7 @@ Public Class frmGesamtsicherheitenNEU
Select Case currentGesSichRef.brgakto_gs_ATR
Case True
If Standort = "Verag GmbH" Then
.Columns("gsp_ATCNr").HeaderText = "ATC / MRN"
.Columns("gsp_ATCNr").HeaderText = "Reg-Nr. / MRN"
ElseIf Standort = "VERAG AG" Then
.Columns("gsp_ATCNr").HeaderText = "T1 CRN"
Else
@@ -411,7 +420,7 @@ Public Class frmGesamtsicherheitenNEU
Case Else
If Standort = "Verag GmbH" Then
.Columns("gsp_ATCNr").HeaderText = "CRN / MRN"
.Columns("gsp_ATCNr").HeaderText = "Reg-Nr. / MRN"
ElseIf Standort = "VERAG AG" Then
.Columns("gsp_ATCNr").HeaderText = "T1 CRN"
Else
@@ -716,6 +725,7 @@ Public Class frmGesamtsicherheitenNEU
.gsp_ust = ""
.gsp_avisoId = Me.avisoID
.gsp_gsNr = OPEN.gs_gsNr
.gsp_systemuser = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
End With
@@ -782,6 +792,7 @@ Public Class frmGesamtsicherheitenNEU
.gsp_ust = currentSicherheit.gs_ust
.gsp_ATCNr = txtPositionenCRN.Text
.gsp_avisoId = Me.avisoID
.gsp_systemuser = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
End With
SicherheitsPos.SAVE()
@@ -981,6 +992,8 @@ Public Class frmGesamtsicherheitenNEU
End With
If checkSicherheitsbetrag() = False Then Exit Sub
currentSicherheit.gs_systemuser = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
currentSicherheit.gs_zuletztgeandert = Now()
currentSicherheit.SAVE()
txtAnzahlPos.Enabled = True
btnUpdateSicherheit.Visible = False
@@ -993,7 +1006,10 @@ Public Class frmGesamtsicherheitenNEU
Private Sub btnUpdatePos_Click(sender As Object, e As EventArgs) Handles btnUpdatePos.Click
If Not checkDateOfPosition(txtPosDat.Text, txtPosTime.Text) Then Exit Sub
If Not checkDateOfPosition(txtPosDat.Text, txtPosTime.Text) Then
Exit Sub
End If
With currentSPos
@@ -1007,11 +1023,17 @@ Public Class frmGesamtsicherheitenNEU
currentSPos.gsp_datum = DateTimeString2DateTimeKonvertinator(txtPosDat.Text, txtPosTime.Text)
Else
currentSPos.gsp_datum = Nothing
If .gsp_ATCNr <> "" AndAlso currentSPos.gsp_datum Is Nothing Then
MsgBox("Datum/Uhrzeit bei Position " & currentSPos.gsp_gspPosId & " muss eingetragen werden!")
Exit Sub
End If
End If
End With
If checkSicherheitsbetrag() = False Then Exit Sub
currentSPos.gsp_systemuser = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
currentSPos.gsp_zuletztgeandert = Now()
currentSPos.SAVE()
btnAddPos.Visible = True
btnUpdatePos.Visible = False
@@ -1114,6 +1136,8 @@ Public Class frmGesamtsicherheitenNEU
sicherheiten.gs_abfertigungsnr = gessich.Abfertigungsnummer
sicherheiten.gs_LKWKZ = gessich.LKWKZ
sicherheiten.gs_warenort = gessich.warenortID
sicherheiten.gs_systemuser = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
End Sub
@@ -1591,7 +1615,7 @@ Public Class frmGesamtsicherheitenNEU
End If
If mutlitpleATBNr Then
lblWarningATB.Text = "ACHTUNG!" & vbCrLf & "Es wurden unterschiedl. ATB-Nummern markiert!"
lblWarningATB.Text = "ACHTUNG!" & vbCrLf & "Es wurden unterschiedl. Reg-Nr. markiert!"
Else
lblWarningATB.Text = ""
End If
@@ -1624,7 +1648,7 @@ Public Class frmGesamtsicherheitenNEU
End If
If mutlitpleATCNr Then
lblATCwarning.Text = "ACHTUNG!" & vbCrLf & "Es wurden unterschiedl. ATC-Nummern markiert!"
lblATCwarning.Text = "ACHTUNG!" & vbCrLf & "Es wurden unterschiedl. Reg-Nr.Nummern markiert!"
Else
lblATCwarning.Text = ""
End If
@@ -1677,7 +1701,7 @@ Public Class frmGesamtsicherheitenNEU
Private Sub FlatButton3_Click(sender As Object, e As EventArgs) Handles FlatButton3.Click
If txtATCaendern.Text = "" Then
MsgBox("Bitte ATC/MRN-Nr angeben!")
MsgBox("Bitte Reg/MRN-Nr angeben!")
Exit Sub
End If
@@ -1812,10 +1836,10 @@ Public Class frmGesamtsicherheitenNEU
Private Sub changeLabel(Optional isATR As Boolean = True)
If Standort = "Verag GmbH" Then
Label1.Text = "ATB Nummer"
Label1.Text = "Reg-Nr."
If isATR Then
Label12.Text = "ATC / MRN"
Label12.Text = "Reg-Nr. / MRN"
Else
Label12.Text = "CRN / MRN"
@@ -1877,6 +1901,7 @@ Public Class frmGesamtsicherheitenNEU
.gsp_ATCNr = "Korrekt. Rundungsdiff. " & gessicherheitID
.gsp_isPosRundungsdiff = True
.gsp_avisoId = Me.avisoID
.gsp_systemuser = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
End With
SicherheitsPos.SAVE()

237
Aviso/frmHauptfenster.Designer.vb generated
View File

@@ -24,15 +24,15 @@ Partial Class frmHauptfenster
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmHauptfenster))
Dim DataGridViewCellStyle10 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle11 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle12 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle13 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle14 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle15 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle16 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle17 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle18 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle7 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle8 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle9 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Me.mnuInfo = New System.Windows.Forms.ToolStripMenuItem()
Me.conÜbernehmen = New System.Windows.Forms.ToolStripMenuItem()
Me.conMenuAviso = New System.Windows.Forms.ContextMenuStrip(Me.components)
@@ -291,7 +291,6 @@ Partial Class frmHauptfenster
Me.cntxtAtilla = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.ToolStripMenuItem17 = New System.Windows.Forms.ToolStripMenuItem()
Me.SplitContainer3 = New System.Windows.Forms.SplitContainer()
Me.UsrCntlBenachrichtigungen1 = New AVISO.usrCntlBenachrichtigungen()
Me.pnl = New System.Windows.Forms.Panel()
Me.Button10 = New System.Windows.Forms.Button()
Me.gridMyAviso = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
@@ -399,6 +398,8 @@ Partial Class frmHauptfenster
Me.ZertifikateToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.HomepageToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.UsrCntlTestsystem1 = New VERAG_PROG_ALLGEMEIN.usrCntlTestsystem()
Me.Button1 = New System.Windows.Forms.Button()
Me.UsrCntlBenachrichtigungen1 = New AVISO.usrCntlBenachrichtigungen()
Me.conMenuAviso.SuspendLayout()
Me.MenuStrip1.SuspendLayout()
Me.pnlDetailsRechts.SuspendLayout()
@@ -892,26 +893,26 @@ Partial Class frmHauptfenster
'GenerelleGestellungenDurchsuchenToolStripMenuItem
'
Me.GenerelleGestellungenDurchsuchenToolStripMenuItem.Name = "GenerelleGestellungenDurchsuchenToolStripMenuItem"
Me.GenerelleGestellungenDurchsuchenToolStripMenuItem.Size = New System.Drawing.Size(391, 30)
Me.GenerelleGestellungenDurchsuchenToolStripMenuItem.Size = New System.Drawing.Size(383, 22)
Me.GenerelleGestellungenDurchsuchenToolStripMenuItem.Text = "Generelle Gestellungen durchsuchen"
Me.GenerelleGestellungenDurchsuchenToolStripMenuItem.Visible = False
'
'KundenVonFremdenSpeditionenToolStripMenuItem
'
Me.KundenVonFremdenSpeditionenToolStripMenuItem.Name = "KundenVonFremdenSpeditionenToolStripMenuItem"
Me.KundenVonFremdenSpeditionenToolStripMenuItem.Size = New System.Drawing.Size(391, 30)
Me.KundenVonFremdenSpeditionenToolStripMenuItem.Size = New System.Drawing.Size(383, 22)
Me.KundenVonFremdenSpeditionenToolStripMenuItem.Text = "Kunden von fremden Speditionen"
'
'KundenverwaltungToolStripMenuItem
'
Me.KundenverwaltungToolStripMenuItem.Name = "KundenverwaltungToolStripMenuItem"
Me.KundenverwaltungToolStripMenuItem.Size = New System.Drawing.Size(391, 30)
Me.KundenverwaltungToolStripMenuItem.Size = New System.Drawing.Size(383, 22)
Me.KundenverwaltungToolStripMenuItem.Text = "Kundenverwaltung"
'
'MDMParkplatzkartenToolStripMenuItem
'
Me.MDMParkplatzkartenToolStripMenuItem.Name = "MDMParkplatzkartenToolStripMenuItem"
Me.MDMParkplatzkartenToolStripMenuItem.Size = New System.Drawing.Size(391, 30)
Me.MDMParkplatzkartenToolStripMenuItem.Size = New System.Drawing.Size(383, 22)
Me.MDMParkplatzkartenToolStripMenuItem.Text = "MDM - Parkplatzkarten"
'
'SMSSendenToolStripMenuItem
@@ -919,7 +920,7 @@ Partial Class frmHauptfenster
Me.SMSSendenToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.NeueSMSSendenToolStripMenuItem, Me.GesendeteSMSToolStripMenuItem})
Me.SMSSendenToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.handy2
Me.SMSSendenToolStripMenuItem.Name = "SMSSendenToolStripMenuItem"
Me.SMSSendenToolStripMenuItem.Size = New System.Drawing.Size(391, 30)
Me.SMSSendenToolStripMenuItem.Size = New System.Drawing.Size(383, 22)
Me.SMSSendenToolStripMenuItem.Text = "SMS"
'
'NeueSMSSendenToolStripMenuItem
@@ -937,51 +938,51 @@ Partial Class frmHauptfenster
'ZollprogrammeNachEORIDurchsuchenToolStripMenuItem
'
Me.ZollprogrammeNachEORIDurchsuchenToolStripMenuItem.Name = "ZollprogrammeNachEORIDurchsuchenToolStripMenuItem"
Me.ZollprogrammeNachEORIDurchsuchenToolStripMenuItem.Size = New System.Drawing.Size(391, 30)
Me.ZollprogrammeNachEORIDurchsuchenToolStripMenuItem.Size = New System.Drawing.Size(383, 22)
Me.ZollprogrammeNachEORIDurchsuchenToolStripMenuItem.Text = "Zollprogramme nach EORI durchsuchen"
'
'MRNBarcodedruckToolStripMenuItem
'
Me.MRNBarcodedruckToolStripMenuItem.Name = "MRNBarcodedruckToolStripMenuItem"
Me.MRNBarcodedruckToolStripMenuItem.Size = New System.Drawing.Size(391, 30)
Me.MRNBarcodedruckToolStripMenuItem.Size = New System.Drawing.Size(383, 22)
Me.MRNBarcodedruckToolStripMenuItem.Text = "MRN Barcodedruck"
'
'ToolStripSeparator12
'
Me.ToolStripSeparator12.Name = "ToolStripSeparator12"
Me.ToolStripSeparator12.Size = New System.Drawing.Size(388, 6)
Me.ToolStripSeparator12.Size = New System.Drawing.Size(380, 6)
'
'tool_BRGXLS
'
Me.tool_BRGXLS.Name = "tool_BRGXLS"
Me.tool_BRGXLS.Size = New System.Drawing.Size(391, 30)
Me.tool_BRGXLS.Size = New System.Drawing.Size(383, 22)
Me.tool_BRGXLS.Text = "Bürgschaften Excel"
'
'ToolStripMenuItem4
'
Me.ToolStripMenuItem4.Name = "ToolStripMenuItem4"
Me.ToolStripMenuItem4.Size = New System.Drawing.Size(391, 30)
Me.ToolStripMenuItem4.Size = New System.Drawing.Size(383, 22)
Me.ToolStripMenuItem4.Text = "DE | Gesamtsicherheit VERAG GmbH - Excel"
Me.ToolStripMenuItem4.Visible = False
'
'ToolStripMenuItem5
'
Me.ToolStripMenuItem5.Name = "ToolStripMenuItem5"
Me.ToolStripMenuItem5.Size = New System.Drawing.Size(391, 30)
Me.ToolStripMenuItem5.Size = New System.Drawing.Size(383, 22)
Me.ToolStripMenuItem5.Text = "AT | Gesamtsicherheit VERAG AG - Excel"
Me.ToolStripMenuItem5.Visible = False
'
'BürgschaftenExcelToolStripMenuItem
'
Me.BürgschaftenExcelToolStripMenuItem.Name = "BürgschaftenExcelToolStripMenuItem"
Me.BürgschaftenExcelToolStripMenuItem.Size = New System.Drawing.Size(391, 30)
Me.BürgschaftenExcelToolStripMenuItem.Size = New System.Drawing.Size(383, 22)
Me.BürgschaftenExcelToolStripMenuItem.Text = "AT | Gesamtsicherheit VERAG Customs Service - Excel"
Me.BürgschaftenExcelToolStripMenuItem.Visible = False
'
'ToolStripMenuItem6
'
Me.ToolStripMenuItem6.Name = "ToolStripMenuItem6"
Me.ToolStripMenuItem6.Size = New System.Drawing.Size(391, 30)
Me.ToolStripMenuItem6.Size = New System.Drawing.Size(383, 22)
Me.ToolStripMenuItem6.Text = "AT | Gesamtsicherheit IMEX Customs Service GmbH - Excel"
Me.ToolStripMenuItem6.Visible = False
'
@@ -989,69 +990,69 @@ Partial Class frmHauptfenster
'
Me.GesamtsicherheitenToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ATVeragAGToolStripMenuItem, Me.ATImexCSToolStripMenuItem, Me.ATVeragCSToolStripMenuItem, Me.DEVeragGmbHToolStripMenuItem, Me.ATUnispedGmbHToolStripMenuItem, Me.DEAmbarToolStripMenuItem})
Me.GesamtsicherheitenToolStripMenuItem.Name = "GesamtsicherheitenToolStripMenuItem"
Me.GesamtsicherheitenToolStripMenuItem.Size = New System.Drawing.Size(391, 30)
Me.GesamtsicherheitenToolStripMenuItem.Size = New System.Drawing.Size(383, 22)
Me.GesamtsicherheitenToolStripMenuItem.Text = "Gesamtsicherheiten"
Me.GesamtsicherheitenToolStripMenuItem.Visible = False
'
'ATVeragAGToolStripMenuItem
'
Me.ATVeragAGToolStripMenuItem.Name = "ATVeragAGToolStripMenuItem"
Me.ATVeragAGToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
Me.ATVeragAGToolStripMenuItem.Size = New System.Drawing.Size(178, 22)
Me.ATVeragAGToolStripMenuItem.Text = "AT | Verag AG"
'
'ATImexCSToolStripMenuItem
'
Me.ATImexCSToolStripMenuItem.Name = "ATImexCSToolStripMenuItem"
Me.ATImexCSToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
Me.ATImexCSToolStripMenuItem.Size = New System.Drawing.Size(178, 22)
Me.ATImexCSToolStripMenuItem.Text = "AT | IMEX CS GmbH"
'
'ATVeragCSToolStripMenuItem
'
Me.ATVeragCSToolStripMenuItem.Name = "ATVeragCSToolStripMenuItem"
Me.ATVeragCSToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
Me.ATVeragCSToolStripMenuItem.Size = New System.Drawing.Size(178, 22)
Me.ATVeragCSToolStripMenuItem.Text = "AT | Verag CS"
'
'DEVeragGmbHToolStripMenuItem
'
Me.DEVeragGmbHToolStripMenuItem.Name = "DEVeragGmbHToolStripMenuItem"
Me.DEVeragGmbHToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
Me.DEVeragGmbHToolStripMenuItem.Size = New System.Drawing.Size(178, 22)
Me.DEVeragGmbHToolStripMenuItem.Text = "DE | Verag GmbH"
'
'ATUnispedGmbHToolStripMenuItem
'
Me.ATUnispedGmbHToolStripMenuItem.Name = "ATUnispedGmbHToolStripMenuItem"
Me.ATUnispedGmbHToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
Me.ATUnispedGmbHToolStripMenuItem.Size = New System.Drawing.Size(178, 22)
Me.ATUnispedGmbHToolStripMenuItem.Text = "AT | Unisped GmbH"
'
'DEAmbarToolStripMenuItem
'
Me.DEAmbarToolStripMenuItem.Name = "DEAmbarToolStripMenuItem"
Me.DEAmbarToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
Me.DEAmbarToolStripMenuItem.Size = New System.Drawing.Size(178, 22)
Me.DEAmbarToolStripMenuItem.Text = "DE | Ambar GmbH"
Me.DEAmbarToolStripMenuItem.Visible = False
'
'ToolStripMenuItem10
'
Me.ToolStripMenuItem10.Name = "ToolStripMenuItem10"
Me.ToolStripMenuItem10.Size = New System.Drawing.Size(391, 30)
Me.ToolStripMenuItem10.Size = New System.Drawing.Size(383, 22)
Me.ToolStripMenuItem10.Text = "TICKET Parkplatz"
'
'TICKETWaidhausToolStripMenuItem
'
Me.TICKETWaidhausToolStripMenuItem.Name = "TICKETWaidhausToolStripMenuItem"
Me.TICKETWaidhausToolStripMenuItem.Size = New System.Drawing.Size(391, 30)
Me.TICKETWaidhausToolStripMenuItem.Size = New System.Drawing.Size(383, 22)
Me.TICKETWaidhausToolStripMenuItem.Text = "Infoschreiben Parkplatz"
'
'ToolStripSeparator10
'
Me.ToolStripSeparator10.Name = "ToolStripSeparator10"
Me.ToolStripSeparator10.Size = New System.Drawing.Size(388, 6)
Me.ToolStripSeparator10.Size = New System.Drawing.Size(380, 6)
'
'DAKOSYToolStripMenuItem
'
Me.DAKOSYToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.StammreferenzenVerwaltenToolStripMenuItem})
Me.DAKOSYToolStripMenuItem.Name = "DAKOSYToolStripMenuItem"
Me.DAKOSYToolStripMenuItem.Size = New System.Drawing.Size(391, 30)
Me.DAKOSYToolStripMenuItem.Size = New System.Drawing.Size(383, 22)
Me.DAKOSYToolStripMenuItem.Text = "DAKOSY"
'
'StammreferenzenVerwaltenToolStripMenuItem
@@ -1063,69 +1064,69 @@ Partial Class frmHauptfenster
'ToolStripSeparator23
'
Me.ToolStripSeparator23.Name = "ToolStripSeparator23"
Me.ToolStripSeparator23.Size = New System.Drawing.Size(388, 6)
Me.ToolStripSeparator23.Size = New System.Drawing.Size(380, 6)
'
'toolOriginalATR
'
Me.toolOriginalATR.Image = Global.AVISO.My.Resources.Resources.atr
Me.toolOriginalATR.Name = "toolOriginalATR"
Me.toolOriginalATR.Size = New System.Drawing.Size(391, 30)
Me.toolOriginalATR.Size = New System.Drawing.Size(383, 22)
Me.toolOriginalATR.Text = "Original-ATR"
'
'SDLAbholaufträgeToolStripMenuItem
'
Me.SDLAbholaufträgeToolStripMenuItem.Name = "SDLAbholaufträgeToolStripMenuItem"
Me.SDLAbholaufträgeToolStripMenuItem.Size = New System.Drawing.Size(391, 30)
Me.SDLAbholaufträgeToolStripMenuItem.Size = New System.Drawing.Size(383, 22)
Me.SDLAbholaufträgeToolStripMenuItem.Text = "SDL Abholaufträge"
'
'ToolStripMenuItem13
'
Me.ToolStripMenuItem13.Name = "ToolStripMenuItem13"
Me.ToolStripMenuItem13.Size = New System.Drawing.Size(391, 30)
Me.ToolStripMenuItem13.Size = New System.Drawing.Size(383, 22)
Me.ToolStripMenuItem13.Text = "Postversand (Einschreiben)"
'
'VorauskassenToolStripMenuItem
'
Me.VorauskassenToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.vorauszahlung
Me.VorauskassenToolStripMenuItem.Name = "VorauskassenToolStripMenuItem"
Me.VorauskassenToolStripMenuItem.Size = New System.Drawing.Size(391, 30)
Me.VorauskassenToolStripMenuItem.Size = New System.Drawing.Size(383, 22)
Me.VorauskassenToolStripMenuItem.Text = "Vorauskassen"
'
'ToolStripSeparator11
'
Me.ToolStripSeparator11.Name = "ToolStripSeparator11"
Me.ToolStripSeparator11.Size = New System.Drawing.Size(388, 6)
Me.ToolStripSeparator11.Size = New System.Drawing.Size(380, 6)
'
'EssensbestellungenToolStripMenuItem
'
Me.EssensbestellungenToolStripMenuItem.Name = "EssensbestellungenToolStripMenuItem"
Me.EssensbestellungenToolStripMenuItem.Size = New System.Drawing.Size(391, 30)
Me.EssensbestellungenToolStripMenuItem.Size = New System.Drawing.Size(383, 22)
Me.EssensbestellungenToolStripMenuItem.Text = "Essensbestellungen"
Me.EssensbestellungenToolStripMenuItem.Visible = False
'
'AdministrationEssensbestellungenToolStripMenuItem
'
Me.AdministrationEssensbestellungenToolStripMenuItem.Name = "AdministrationEssensbestellungenToolStripMenuItem"
Me.AdministrationEssensbestellungenToolStripMenuItem.Size = New System.Drawing.Size(391, 30)
Me.AdministrationEssensbestellungenToolStripMenuItem.Size = New System.Drawing.Size(383, 22)
Me.AdministrationEssensbestellungenToolStripMenuItem.Text = "Administration Essensbestellungen"
Me.AdministrationEssensbestellungenToolStripMenuItem.Visible = False
'
'ToolStripSeparator24
'
Me.ToolStripSeparator24.Name = "ToolStripSeparator24"
Me.ToolStripSeparator24.Size = New System.Drawing.Size(388, 6)
Me.ToolStripSeparator24.Size = New System.Drawing.Size(380, 6)
'
'WarenorteToolStripMenuItem
'
Me.WarenorteToolStripMenuItem.Name = "WarenorteToolStripMenuItem"
Me.WarenorteToolStripMenuItem.Size = New System.Drawing.Size(391, 30)
Me.WarenorteToolStripMenuItem.Size = New System.Drawing.Size(383, 22)
Me.WarenorteToolStripMenuItem.Text = "Warenorte"
'
'DatevBuchungsexportToolStripMenuItem
'
Me.DatevBuchungsexportToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.EMAILToolStripMenuItem, Me.FTPToolStripMenuItem})
Me.DatevBuchungsexportToolStripMenuItem.Name = "DatevBuchungsexportToolStripMenuItem"
Me.DatevBuchungsexportToolStripMenuItem.Size = New System.Drawing.Size(391, 30)
Me.DatevBuchungsexportToolStripMenuItem.Size = New System.Drawing.Size(383, 22)
Me.DatevBuchungsexportToolStripMenuItem.Text = "Datev Buchungsexport"
Me.DatevBuchungsexportToolStripMenuItem.Visible = False
'
@@ -1144,13 +1145,13 @@ Partial Class frmHauptfenster
'APIToolStripMenuItem
'
Me.APIToolStripMenuItem.Name = "APIToolStripMenuItem"
Me.APIToolStripMenuItem.Size = New System.Drawing.Size(391, 30)
Me.APIToolStripMenuItem.Size = New System.Drawing.Size(383, 22)
Me.APIToolStripMenuItem.Text = "API"
'
'FIBUSachkontenToolStripMenuItem
'
Me.FIBUSachkontenToolStripMenuItem.Name = "FIBUSachkontenToolStripMenuItem"
Me.FIBUSachkontenToolStripMenuItem.Size = New System.Drawing.Size(391, 30)
Me.FIBUSachkontenToolStripMenuItem.Size = New System.Drawing.Size(383, 22)
Me.FIBUSachkontenToolStripMenuItem.Text = "FIBU Sachkonten"
'
'StatistikToolStripMenuItem
@@ -1774,6 +1775,7 @@ Partial Class frmHauptfenster
'Top
'
Me.Top.BackColor = System.Drawing.Color.White
Me.Top.Controls.Add(Me.Button1)
Me.Top.Controls.Add(Me.lblUsrname)
Me.Top.Controls.Add(Me.lblFimaAviso)
Me.Top.Controls.Add(Me.Button11)
@@ -1825,7 +1827,7 @@ Partial Class frmHauptfenster
'
'Button11
'
Me.Button11.Location = New System.Drawing.Point(687, 26)
Me.Button11.Location = New System.Drawing.Point(1081, 15)
Me.Button11.Name = "Button11"
Me.Button11.Size = New System.Drawing.Size(75, 23)
Me.Button11.TabIndex = 14
@@ -2494,15 +2496,6 @@ Partial Class frmHauptfenster
Me.SplitContainer3.SplitterDistance = 158
Me.SplitContainer3.TabIndex = 3
'
'UsrCntlBenachrichtigungen1
'
Me.UsrCntlBenachrichtigungen1.Dock = System.Windows.Forms.DockStyle.Fill
Me.UsrCntlBenachrichtigungen1.Location = New System.Drawing.Point(0, 0)
Me.UsrCntlBenachrichtigungen1.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
Me.UsrCntlBenachrichtigungen1.Name = "UsrCntlBenachrichtigungen1"
Me.UsrCntlBenachrichtigungen1.Size = New System.Drawing.Size(158, 300)
Me.UsrCntlBenachrichtigungen1.TabIndex = 0
'
'pnl
'
Me.pnl.Controls.Add(Me.Button10)
@@ -2535,38 +2528,38 @@ Partial Class frmHauptfenster
Me.gridMyAviso.AllowUserToDeleteRows = False
Me.gridMyAviso.AllowUserToOrderColumns = True
Me.gridMyAviso.AllowUserToResizeRows = False
DataGridViewCellStyle10.BackColor = System.Drawing.Color.Azure
Me.gridMyAviso.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle10
DataGridViewCellStyle1.BackColor = System.Drawing.Color.Azure
Me.gridMyAviso.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
Me.gridMyAviso.BackgroundColor = System.Drawing.Color.White
DataGridViewCellStyle11.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle11.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle11.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!)
DataGridViewCellStyle11.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle11.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle11.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle11.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.gridMyAviso.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle11
DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle2.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!)
DataGridViewCellStyle2.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle2.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle2.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.gridMyAviso.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle2
Me.gridMyAviso.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
DataGridViewCellStyle12.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle12.BackColor = System.Drawing.SystemColors.Window
DataGridViewCellStyle12.Font = New System.Drawing.Font("Microsoft Sans Serif", 5.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle12.ForeColor = System.Drawing.SystemColors.ControlText
DataGridViewCellStyle12.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle12.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle12.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.gridMyAviso.DefaultCellStyle = DataGridViewCellStyle12
DataGridViewCellStyle3.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle3.BackColor = System.Drawing.SystemColors.Window
DataGridViewCellStyle3.Font = New System.Drawing.Font("Microsoft Sans Serif", 5.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle3.ForeColor = System.Drawing.SystemColors.ControlText
DataGridViewCellStyle3.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle3.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle3.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.gridMyAviso.DefaultCellStyle = DataGridViewCellStyle3
Me.gridMyAviso.Dock = System.Windows.Forms.DockStyle.Fill
Me.gridMyAviso.Location = New System.Drawing.Point(0, 21)
Me.gridMyAviso.Name = "gridMyAviso"
Me.gridMyAviso.ReadOnly = True
DataGridViewCellStyle13.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle13.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle13.Font = New System.Drawing.Font("Microsoft Sans Serif", 5.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle13.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle13.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle13.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle13.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.gridMyAviso.RowHeadersDefaultCellStyle = DataGridViewCellStyle13
DataGridViewCellStyle4.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle4.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle4.Font = New System.Drawing.Font("Microsoft Sans Serif", 5.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle4.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle4.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle4.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.gridMyAviso.RowHeadersDefaultCellStyle = DataGridViewCellStyle4
Me.gridMyAviso.RowHeadersVisible = False
Me.gridMyAviso.RowHeadersWidth = 62
Me.gridMyAviso.Size = New System.Drawing.Size(488, 279)
@@ -2979,47 +2972,47 @@ Partial Class frmHauptfenster
Me.gridAviso.AllowUserToAddRows = False
Me.gridAviso.AllowUserToDeleteRows = False
Me.gridAviso.AllowUserToResizeRows = False
DataGridViewCellStyle14.BackColor = System.Drawing.Color.Azure
DataGridViewCellStyle14.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.gridAviso.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle14
DataGridViewCellStyle5.BackColor = System.Drawing.Color.Azure
DataGridViewCellStyle5.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.gridAviso.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle5
Me.gridAviso.BackgroundColor = System.Drawing.Color.DarkGray
Me.gridAviso.ClipboardCopyMode = System.Windows.Forms.DataGridViewClipboardCopyMode.Disable
DataGridViewCellStyle15.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle15.BackColor = System.Drawing.Color.LightBlue
DataGridViewCellStyle15.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle15.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle15.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle15.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle15.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.gridAviso.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle15
DataGridViewCellStyle6.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle6.BackColor = System.Drawing.Color.LightBlue
DataGridViewCellStyle6.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle6.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle6.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle6.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.gridAviso.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle6
Me.gridAviso.ColumnHeadersHeight = 25
Me.gridAviso.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.DisableResizing
DataGridViewCellStyle16.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle16.BackColor = System.Drawing.SystemColors.Window
DataGridViewCellStyle16.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle16.ForeColor = System.Drawing.SystemColors.ControlText
DataGridViewCellStyle16.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle16.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle16.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.gridAviso.DefaultCellStyle = DataGridViewCellStyle16
DataGridViewCellStyle7.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle7.BackColor = System.Drawing.SystemColors.Window
DataGridViewCellStyle7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle7.ForeColor = System.Drawing.SystemColors.ControlText
DataGridViewCellStyle7.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle7.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle7.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.gridAviso.DefaultCellStyle = DataGridViewCellStyle7
Me.gridAviso.Dock = System.Windows.Forms.DockStyle.Fill
Me.gridAviso.Location = New System.Drawing.Point(0, 248)
Me.gridAviso.MultiSelect = False
Me.gridAviso.Name = "gridAviso"
Me.gridAviso.ReadOnly = True
DataGridViewCellStyle17.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle17.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle17.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle17.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle17.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle17.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle17.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.gridAviso.RowHeadersDefaultCellStyle = DataGridViewCellStyle17
DataGridViewCellStyle8.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle8.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle8.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle8.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle8.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle8.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle8.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.gridAviso.RowHeadersDefaultCellStyle = DataGridViewCellStyle8
Me.gridAviso.RowHeadersVisible = False
Me.gridAviso.RowHeadersWidth = 62
Me.gridAviso.RowHeadersWidthSizeMode = System.Windows.Forms.DataGridViewRowHeadersWidthSizeMode.DisableResizing
DataGridViewCellStyle18.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.gridAviso.RowsDefaultCellStyle = DataGridViewCellStyle18
DataGridViewCellStyle9.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.gridAviso.RowsDefaultCellStyle = DataGridViewCellStyle9
Me.gridAviso.RowTemplate.ReadOnly = True
Me.gridAviso.RowTemplate.Resizable = System.Windows.Forms.DataGridViewTriState.[False]
Me.gridAviso.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
@@ -3793,6 +3786,25 @@ Partial Class frmHauptfenster
Me.UsrCntlTestsystem1.Size = New System.Drawing.Size(152, 28)
Me.UsrCntlTestsystem1.TabIndex = 8
'
'Button1
'
Me.Button1.Location = New System.Drawing.Point(1028, 7)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(75, 23)
Me.Button1.TabIndex = 87
Me.Button1.Text = "Button1"
Me.Button1.UseVisualStyleBackColor = True
Me.Button1.Visible = False
'
'UsrCntlBenachrichtigungen1
'
Me.UsrCntlBenachrichtigungen1.Dock = System.Windows.Forms.DockStyle.Fill
Me.UsrCntlBenachrichtigungen1.Location = New System.Drawing.Point(0, 0)
Me.UsrCntlBenachrichtigungen1.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
Me.UsrCntlBenachrichtigungen1.Name = "UsrCntlBenachrichtigungen1"
Me.UsrCntlBenachrichtigungen1.Size = New System.Drawing.Size(158, 300)
Me.UsrCntlBenachrichtigungen1.TabIndex = 0
'
'frmHauptfenster
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -4232,4 +4244,5 @@ Partial Class frmHauptfenster
Friend WithEvents FTPToolStripMenuItem As ToolStripMenuItem
Friend WithEvents SpireLizenzPrüfenToolStripMenuItem As ToolStripMenuItem
Friend WithEvents DEAmbarToolStripMenuItem As ToolStripMenuItem
Friend WithEvents Button1 As Button
End Class

3
Aviso/frmHauptfenster.resx
View File

@@ -243,9 +243,6 @@
pOTzPwAAAABJRU5ErkJggg==
</value>
</data>
<metadata name="ToolTip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>560, 17</value>
</metadata>
<metadata name="BackgroundWorker1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>659, 17</value>
</metadata>

66
Aviso/frmHauptfenster.vb
View File

@@ -368,6 +368,7 @@ Public Class frmHauptfenster
AdministrationToolStripMenuItem.Visible = True
lblMitarbeiter.Text += " (Admin)"
Button3.Visible = True
Button1.Visible = True
End If
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("eAVISO", "AVISO") Then
@@ -4318,11 +4319,73 @@ Public Class frmHauptfenster
Private Sub Button11_Click_1(sender As Object, e As EventArgs) Handles Button11.Click
Exit Sub
setProfileImage()
cHMRC.VATTEST(InputBox("Token"))
End Sub
Sub saveLukowaPDFsFromTherefore()
' Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
' Dim dt As DataTable = SQL.loadDgvBySql("", "EZOLL")
Dim slist As New List(Of String)
slist.Add("510323010932")
slist.Add("510323011636")
slist.Add("510323011857")
slist.Add("510323011898")
slist.Add("510323011973")
slist.Add("510323012315")
slist.Add("510323012316")
slist.Add("510323012197")
slist.Add("510323012479")
slist.Add("510323012728")
slist.Add("510323012818")
slist.Add("510323012844")
slist.Add("510323012848")
slist.Add("510323012877")
slist.Add("510323012910")
slist.Add("510323012914")
slist.Add("510323012931")
slist.Add("510323012879")
slist.Add("510323012884")
slist.Add("510323013223")
slist.Add("510323013268")
slist.Add("510323013373")
slist.Add("510323013335")
slist.Add("510323013370")
slist.Add("510323013394")
slist.Add("510323013432")
slist.Add("510323013606")
slist.Add("510323013607")
slist.Add("510323013625")
slist.Add("510323013847")
slist.Add("510323013899")
slist.Add("510323013952")
slist.Add("510323013959")
slist.Add("510323013955")
slist.Add("510323013974")
slist.Add("510323014015")
slist.Add("510323014109")
slist.Add("510323014215")
slist.Add("510323014252")
slist.Add("510323014395")
slist.Add("510323014396")
slist.Add("510323014394")
slist.Add("510323014491")
slist.Add("510323014619")
slist.Add("510323014825")
slist.Add("510323015366")
slist.Add("510323015959")
For Each s In slist
VERAG_PROG_ALLGEMEIN.cTherefore.getFileFromFolderCat("C:\Users\DEVELOPER1\Desktop\LUKOWA\", s, "", "Import ab Jänner 2023", "Import ab Jänner 2023")
Next
End Sub
Private Sub GVMSUKIMportToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles GVMSUKIMportToolStripMenuItem.Click
Process.Start("https://www.tax.service.gov.uk/goods-movement-system/dashboard")
End Sub
@@ -4739,7 +4802,10 @@ Public Class frmHauptfenster
End Sub
Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click
saveLukowaPDFsFromTherefore()
End Sub
End Class
Public Class AvisoStatusFunctions

2
Aviso/frmLogin.vb
View File

@@ -87,6 +87,8 @@ Public Class frmLogin
If firma = "NKD" Then firma = "VERAG"
If firma = "NEU" Then firma = "VERAG"
If firma = "SUB" Then firma = "VERAG"
strmReader.Close()
Else
' FIRMA VON AD HOLEN, wenn keine StandortTxt

2
Aviso/frmRoutendauerBerechnen.vb
View File

@@ -54,7 +54,7 @@ Public Class frmRoutendauerBerechnen
cbxVon.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
cbxVon.changeItem("")
If cbxVon._value = "" Then
MsgBox("Es wurde für die Bestimmungszollstelle " & txtNach.Text & " keine Route definiert." & vbCrLf & "Bitte voraus. Datum des Eintreffens manuell eingeben!")
MsgBox("Es wurde für die Bestimmungszollstelle " & txtNach.Text & " keine Route definiert." & vbCrLf & "Bitte voraus. Datum des Eintreffens manuell eingeben")
End If

26
Aviso/frmSendungsdetailsNEU.vb
View File

@@ -101,7 +101,6 @@ Public Class frmSendungsdetailsNEU
cntlFrachtfuehrer_Sonst.special(False)
Try
For Each c In Panel6.Controls
If c.GetType.ToString = "AVISO.usrcntlCheckBox" Then
Dim cntlCbx As usrcntlCheckBox = DirectCast(c, usrcntlCheckBox)
@@ -4154,13 +4153,18 @@ Public Class frmSendungsdetailsNEU
Dim docPath = VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(dgvAnhang.SelectedRows(0).Cells("anh_docId").Value)
If Not IO.File.Exists(docPath) Then
If Not File.Exists(docPath) Then
MsgBox("Die Datei existiert nicht!")
Else
If docPath.ToString.ToLower.EndsWith(".msg") Then ' MSG - Mails --> lokale Kopie, sonst Fehler (bereits von Benutzer soUndSo geöffnet)
Dim docPathTMP = VERAG_PROG_ALLGEMEIN.cFormularManager.getTMPPath_MSG()
System.IO.File.Copy(docPath, docPathTMP)
Process.Start(docPathTMP)
Try
Dim docPathTMP = VERAG_PROG_ALLGEMEIN.cFormularManager.getTMPPath_MSG()
File.Copy(docPath, docPathTMP)
Process.Start(docPathTMP)
Catch ex As Exception
'wenn fehler, soll versucht werden, das oríginal zu öffnen.
Process.Start(docPath)
End Try
Else
Process.Start(docPath)
End If
@@ -5399,13 +5403,15 @@ Public Class frmSendungsdetailsNEU
VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge.LOAD_LIST_BySendung(ANH_LIST_SND, SENDUNG.tblSnd_SendungID) 'LÄDT alle Aviso-Anhänge
Dim invoicePrinted As Boolean = False
If ANH_LIST_SND.Any(Function(c) c.anh_Art.ToString.Contains("RECHNUNG")) Then invoicePrinted = True
If ANH_LIST_SND.Any(Function(c) c.anh_Art.ToString.ToUpper.Contains("RECHNUNG")) Then invoicePrinted = True
For Each l In ANH_LIST_SND
Select Case l.anh_Art.ToString.ToUpper
Case "RECHNUNG", "HANDELSRECHNUNG"
VERAG_PROG_ALLGEMEIN.cFormularManager.PrintViaSpirePDF({VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(l.anh_docId)})
Case "EFATURA", "EUR1"
Case "EFATURA"
If Not invoicePrinted Then VERAG_PROG_ALLGEMEIN.cFormularManager.PrintViaSpirePDF({VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(l.anh_docId)})
Case "EUR1"
VERAG_PROG_ALLGEMEIN.cFormularManager.PrintViaSpirePDF({VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(l.anh_docId)})
End Select
Next
@@ -5929,14 +5935,9 @@ Public Class frmSendungsdetailsNEU
Sub calculateFreightCosts()
Dim f = New frmFrachtkostenBerechnen()
f.UsrcntlFrachtkostenberechnung1.init(AvisoId, txtAbsenderKdNr._value, txtEmpfaengerKdNr._value, txtGewicht.Text, txtFrachtkostenGesamt.Text, rtbWarenbezeichnung.Text, txtWarenwert._value)
If f.ShowDialog = DialogResult.OK Then
'txtFrachtkostenEU._value = frachkosten.usrcntlFrachtkostenberechnung.EUAnteil
'txtFrachtkostenNichtEU._value = frachkosten.nichtEUAnteil
'txtFrachtkostenGesamt._value = frachkosten.tbxGesamtfrachtkosten._value
End If
@@ -7099,6 +7100,7 @@ Public Class frmSendungsdetailsNEU
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
isFailureShown = True
End Try
End Sub

2
Aviso/rCntrlVermerke.vb
View File

@@ -142,7 +142,7 @@ Public Class rCntrlVermerke
' End If
' Next
' Catch ex As Exception
' MsgBox("ERR")
' VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
' End Try
' End Select
'End Sub

15
Aviso/usrcntlAktDetails.vb
View File

@@ -43,6 +43,7 @@ Public Class usrcntlAktDetails
' Dim WithEvents timerDetails As New Timer
Dim AVISO As cAviso = Nothing
Dim WithEvents timerSendRows As New Timer
Dim isFailureShown As Boolean = False
Dim painted As Boolean = False ' Damit gridVermerke Formattierung nicht dauernd anspringt..
@@ -839,9 +840,13 @@ Public Class usrcntlAktDetails
.RowTemplate.MinimumHeight = 20
.AutoSizeRowsMode = DataGridViewAutoSizeRowsMode.AllCells
.Columns("anh_id").Visible = False 'VermerkID nicht anzeigen
.Columns("anh_docId").Visible = False 'AvisoID nicht anzeigen
.Columns("anh_markiert").Visible = False 'AvisoID nicht anzeigen
.Columns("anh_docId").Visible = False
.Columns("anh_markiert").Visible = False
.Columns("anh_LaufzettelDruck").Visible = False
.Columns("anh_GestellungslisteAnfuegen").Visible = False
.Columns("anh_cmrId").Visible = False
.Columns("anh_Name").MinimumWidth = 150
.Columns("anh_Name").HeaderText = "Name"
@@ -1523,11 +1528,12 @@ Public Class usrcntlAktDetails
' ArrowDown_ShowHide() 'Anzeigeproblem, wenn Aviso minimiert wird! --> Jetzt bei Timer!
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
End Sub
Sub ArrowDown_ShowHide()
If isFailureShown Then Exit Sub
picArrowDown.Visible = False
If dgvSendungen.RowCount = 0 Then Exit Sub
Select Case tbcntlVermerke.SelectedIndex
@@ -1543,7 +1549,8 @@ Public Class usrcntlAktDetails
End If
Next
Catch ex As Exception
MsgBox("ERR")
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
isFailureShown = True
End Try
End Select
End Sub

10
Aviso/usrcntlAktDetailsATILLANeu.vb
View File

@@ -606,9 +606,13 @@ Public Class usrcntlAktDetailsATILLANeu
MsgBox("Die Datei existiert nicht!")
Else
If docPath.ToString.ToLower.EndsWith(".msg") Then ' MSG - Mails --> lokale Kopie, sonst Fehler (bereits von Benutzer soUndSo geöffnet)
Dim docPathTMP = VERAG_PROG_ALLGEMEIN.cFormularManager.getTMPPath_MSG()
File.Copy(docPath, docPathTMP)
Process.Start(docPathTMP)
Try
Dim docPathTMP = VERAG_PROG_ALLGEMEIN.cFormularManager.getTMPPath_MSG()
File.Copy(docPath, docPathTMP)
Process.Start(docPathTMP)
Catch ex As Exception
Process.Start(docPath)
End Try
Else
Process.Start(docPath)
End If

BIN
Diverses/ambar_boarder.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 23 KiB

2
Gemeinsames/Gemeinsames.vbproj
View File

@@ -35,7 +35,7 @@
<BootstrapperEnabled>true</BootstrapperEnabled>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|x86' ">
<PlatformTarget>x64</PlatformTarget>
<PlatformTarget>AnyCPU</PlatformTarget>
<DebugSymbols>true</DebugSymbols>
<DebugType>full</DebugType>
<DefineDebug>true</DefineDebug>