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

neu

Browse Source
This commit is contained in:
Andreas Luxbauer
2021-06-24 23:04:15 +02:00
parent 5187fe0e71
commit 2d06d935ef
38 changed files with 6730 additions and 1088 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -149,7 +149,7 @@ Public Class frmSendungAnhangImport
Button5.Visible = PdfViewer.Visible
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
@@ -282,7 +282,7 @@ Public Class frmSendungAnhangImport
End If
Next
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
Return False
End Function
@@ -301,7 +301,7 @@ Public Class frmSendungAnhangImport
End If
Next
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
Return False
End Function
@@ -529,7 +529,7 @@ Public Class frmSendungAnhangImport
'GC.Collect()
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
Return False
End Try
Return True
@@ -629,7 +629,7 @@ Public Class frmSendungAnhangImport
'GC.Collect()
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
Return False
End Try
Return True
@@ -662,7 +662,7 @@ Public Class frmSendungAnhangImport
Reader.Close()
Return True
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
Return False
End Function
@@ -734,7 +734,7 @@ Public Class frmSendungAnhangImport
' 'Reader.Close()
' Return True
' 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
' Return False
'End Function
@@ -878,7 +878,7 @@ Public Class frmSendungAnhangImport
' Return True
' 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
' Return False
'End Function
@@ -931,7 +931,7 @@ Public Class frmSendungAnhangImport
Return True
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
Return False
End Function
@@ -1028,7 +1028,7 @@ Public Class frmSendungAnhangImport
Next
End Sub
Function deleteElement(FILE_DOCID, FILE_ANHID, Optional showMessage = True) As Boolean
Shared Function deleteElement(FILE_DOCID, FILE_ANHID, Optional showMessage = True) As Boolean
If Not showMessage OrElse vbYes = MsgBox("Möchten Sie das Element löschen?", vbYesNoCancel) Then
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(FILE_DOCID)
If DS.DELETE_COMPLETE AndAlso VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge.DELETE(FILE_ANHID) Then
@@ -1076,7 +1076,20 @@ Public Class frmSendungAnhangImport
cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ATA-Nr", "ATA"))
cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("UID-Prüfung", "UID"))
cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("EORI-Prüfung", "EORI"))
cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Lieferschein", "Lieferschein"))
If VERAG_PROG_ALLGEMEIN.cAllgemein.STAMMFILIALE = 7001 Then
cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("GB - C88", "C88"))
cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("GB - E2", "E2"))
cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("GB - Atanak Rechnung", "Atanak_RG"))
End If
cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Sonstiges", "Sonstiges"))
cboArt._TRANSLATE()
initSendungen()
@@ -1271,7 +1284,7 @@ Public Class frmSendungAnhangImport
End If
Catch ex As Exception
MsgBox("FEHLER Scan: " & ex.Message & ex.StackTrace)
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,, "Fehler Scan")
End Try
End Sub
@@ -1334,6 +1347,38 @@ Public Class frmSendungAnhangImport
End If
End Sub
Public Shared Function addData_SendungAnhangFD(AvisoId) As Boolean
Dim fd As New OpenFileDialog
fd.Multiselect = True
If fd.ShowDialog = vbOK Then
For Each F_listItem In fd.FileNames
Dim fi As New FileInfo(F_listItem)
Dim filename = fi.Name
If filename = "" Then
MsgBox("Dateiname konnte nicht ermittelt werden." & vbNewLine & F_listItem)
Else
' Dim TMP_Path = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath(filename, fi.Extension,, False, "SendungsAnhaenge")
' MsgBox(TMP_Path)
' File.Copy(F_listItem, TMP_Path)
Dim da_id = -1
Dim anhId = -1
Dim destPath = ""
Dim Typ = ""
If getFileTypeValid(fi.Extension.Replace(".", ""), Typ) Then
saveToDS(AvisoId, filename, F_listItem, "", Typ, da_id, anhId, destPath)
End If
End If
Next
Return True
End If
Return False
End Function
Public Function addData_SendungAnhang(Path, Optional addFlpnl = True) As Integer
@@ -1346,9 +1391,9 @@ Public Class frmSendungAnhangImport
Dim Typ = ""
If getFileTypeValid(fi.Extension.Replace(".", ""), Typ) Then
If saveToDS(AvisoId, fi.Name, Path, "", Typ, da_id, anhId, destPath) Then
If addFlpnl Then addUsrcnlToPnl(destPath, da_id, anhId, filename, Typ)
End If
If addFlpnl Then addUsrcnlToPnl(destPath, da_id, anhId, filename, Typ)
End If
End If
Return anhId
End Function
@@ -1378,6 +1423,34 @@ Public Class frmSendungAnhangImport
Return True
End Function
Public Shared Function quickScan(AvisoId, Optional SendungsId = Nothing) As Boolean
Try
'If KdNr < 0 Then Exit Sub
Dim frmScan As New VERAG_PROG_ALLGEMEIN.frmScan("QuickScan")
frmScan.DefaultFileName = "Scan" ' Me._TEXT_PDF
If frmScan.ShowDialog() = DialogResult.OK Then
If frmScan.ReturnValue IsNot Nothing Then
Dim Filename = frmScan.fileName
Dim TMP_Path = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath(Filename, ".pdf",, False, "SendungsAnhaenge")
File.WriteAllBytes(TMP_Path, frmScan.ReturnValue)
Dim da_id = -1
Dim anhId = -1
Dim destPath = ""
If frmSendungAnhangImport.saveToDS(AvisoId, Filename, TMP_Path, "", "PDF", da_id, anhId, destPath, SendungsId) Then
Return True
End If
'addUsrcnlToPnl(TMP_Path)
End If
End If
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,, "Fehler QuickScan")
End Try
Return False
End Function
Private Sub WebBrowser1_DocumentCompleted(sender As Object, e As WebBrowserDocumentCompletedEventArgs)
BrowserLoaded = True
End Sub
@@ -1477,7 +1550,7 @@ Public Class frmSendungAnhangImport
Catch ex As ArgumentOutOfRangeException
'out of range
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
@@ -1745,7 +1818,7 @@ Public Class frmSendungAnhangImport
' initSendungen()
initFlpANH_LIST()
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
@@ -1826,7 +1899,7 @@ Public Class frmSendungAnhangImport
End If
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
@@ -1836,19 +1909,19 @@ Public Class frmSendungAnhangImport
' 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 fileGroupDescriptor(512) As Byte
theStream.Read(fileGroupDescriptor, 0, 512)
Dim fileName As System.Text.StringBuilder = New System.Text.StringBuilder("")
Dim i As Integer = 76
Dim fileGroupDescriptor(512) As Byte
theStream.Read(fileGroupDescriptor, 0, 512)
Dim fileName As System.Text.StringBuilder = New System.Text.StringBuilder("")
Dim i As Integer = 76
While Not (fileGroupDescriptor(i) = 0)
fileName.Append(Convert.ToChar(fileGroupDescriptor(i)))
System.Math.Min(System.Threading.Interlocked.Increment(i), i - 1)
End While
While Not (fileGroupDescriptor(i) = 0)
fileName.Append(Convert.ToChar(fileGroupDescriptor(i)))
System.Math.Min(System.Threading.Interlocked.Increment(i), i - 1)
End While
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 & fileName.ToString
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 & 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
Dim objOL As New Microsoft.Office.Interop.Outlook.Application
@@ -1884,7 +1957,7 @@ Public Class frmSendungAnhangImport
End If
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
EmAilAttach = String.Empty
End Try

6
Aviso/Anhänge/frmSendungAnhangUmbenennenUmkateg.vb
View File

@@ -30,6 +30,12 @@
cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ATA-Nr", "ATA"))
cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("UID-Prüfung", "UID"))
cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("EORI-Prüfung", "EORI"))
cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Lieferschein", "Lieferschein"))
If VERAG_PROG_ALLGEMEIN.cAllgemein.STAMMFILIALE = 7001 Then
cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("GB - C88", "C88"))
cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("GB - E2", "E2"))
cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("GB - Atanak Rechnung", "Atanak_RG"))
End If
cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Sonstiges", "Sonstiges"))
txtBezeichnung.Text = nameOLD
cboArt.changeItem(artOLD)

10
Aviso/ApplicationEvents.vb Normal file
View File

@@ -0,0 +1,10 @@
Namespace My
' Für MyApplication sind folgende Ereignisse verfügbar:
' Startup: Wird beim Starten der Anwendung noch vor dem Erstellen des Startformulars ausgelöst.
' Shutdown: Wird nach dem Schließen aller Anwendungsformulare ausgelöst. Dieses Ereignis wird nicht ausgelöst, wenn die Anwendung mit einem Fehler beendet wird.
' UnhandledException: Wird bei einem Ausnahmefehler ausgelöst.
' StartupNextInstance: Wird beim Starten einer Einzelinstanzanwendung ausgelöst, wenn die Anwendung bereits aktiv ist.
' NetworkAvailabilityChanged: Wird beim Herstellen oder Trennen der Netzwerkverbindung ausgelöst.
Partial Friend Class MyApplication
End Class
End Namespace

33
Aviso/Aviso.vbproj
View File

@@ -310,6 +310,7 @@
<Compile Include="Anhänge\usrCntlSendungAnhangElement.vb">
<SubType>UserControl</SubType>
</Compile>
<Compile Include="ApplicationEvents.vb" />
<Compile Include="Auswertung\cStatFunctions.vb" />
<Compile Include="Auswertung\frmStatFrima.Designer.vb">
<DependentUpon>frmStatFrima.vb</DependentUpon>
@@ -481,10 +482,10 @@
<Compile Include="frmAviso_Vorpapiere.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="frmDokumenteSchicken.Designer.vb">
<DependentUpon>frmDokumenteSchicken.vb</DependentUpon>
<Compile Include="frmFreigabeSetzen.Designer.vb">
<DependentUpon>frmFreigabeSetzen.vb</DependentUpon>
</Compile>
<Compile Include="frmDokumenteSchicken.vb">
<Compile Include="frmFreigabeSetzen.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="frmGelangensbestaetigung.Designer.vb">
@@ -523,6 +524,12 @@
<Compile Include="frmInsertVermerkFachIMEX.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="frmLaufzettel.Designer.vb">
<DependentUpon>frmLaufzettel.vb</DependentUpon>
</Compile>
<Compile Include="frmLaufzettel.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="frmLKWTicketInfo.Designer.vb">
<DependentUpon>frmLKWTicketInfo.vb</DependentUpon>
</Compile>
@@ -833,6 +840,13 @@
<Compile Include="usrCntlVermerkeATilla.vb">
<SubType>UserControl</SubType>
</Compile>
<Compile Include="WLAN\cWLANTicket.vb" />
<Compile Include="WLAN\rptWLANTicket.Designer.vb">
<DependentUpon>rptWLANTicket.vb</DependentUpon>
</Compile>
<Compile Include="WLAN\rptWLANTicket.vb">
<SubType>Component</SubType>
</Compile>
</ItemGroup>
<ItemGroup>
<EmbeddedResource Include="ADMIN\frmZuordnungKd.resx">
@@ -926,8 +940,8 @@
<EmbeddedResource Include="frmAviso_Vorpapiere.resx">
<DependentUpon>frmAviso_Vorpapiere.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmDokumenteSchicken.resx">
<DependentUpon>frmDokumenteSchicken.vb</DependentUpon>
<EmbeddedResource Include="frmFreigabeSetzen.resx">
<DependentUpon>frmFreigabeSetzen.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmGelangensbestaetigung.resx">
<DependentUpon>frmGelangensbestaetigung.vb</DependentUpon>
@@ -947,6 +961,9 @@
<EmbeddedResource Include="frmInsertVermerkFachIMEX.resx">
<DependentUpon>frmInsertVermerkFachIMEX.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmLaufzettel.resx">
<DependentUpon>frmLaufzettel.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmLKWTicketInfo.resx">
<DependentUpon>frmLKWTicketInfo.vb</DependentUpon>
</EmbeddedResource>
@@ -1102,6 +1119,9 @@
<EmbeddedResource Include="usrCntlVermerkeATilla.resx">
<DependentUpon>usrCntlVermerkeATilla.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="WLAN\rptWLANTicket.resx">
<DependentUpon>rptWLANTicket.vb</DependentUpon>
</EmbeddedResource>
</ItemGroup>
<ItemGroup>
<None Include="App.config" />
@@ -1248,6 +1268,9 @@
<None Include="Resources\abklaerungTR_Aktiv.jpg" />
<None Include="Resources\fragezeichen1.png" />
<None Include="Resources\AMB.png" />
<Content Include="Resources\WLAN\RunNHide.exe">
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
</Content>
<Content Include="Resources\UNISPED.png">
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
</Content>

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("3.6.2.8")>
<Assembly: AssemblyFileVersion("3.6.2.8")>
<Assembly: AssemblyVersion("3.6.7.1")>
<Assembly: AssemblyFileVersion("3.6.7.1")>

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

File diff suppressed because it is too large Load Diff

5
Aviso/My Project/Resources.resx
View File

@@ -536,7 +536,7 @@
<value>..\Resources\plus.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Version" xml:space="preserve">
<value>3.6.2.8</value>
<value>3.6.7.1</value>
</data>
<data name="statusBtn_vorgeschrieben_Aktiv" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\statusBtn_vorgeschrieben_Aktiv.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -604,7 +604,4 @@
<data name="ATANAK_Instructions_Export_T1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ATANAK_Instructions_Export_T1.xlsx;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="sdfsdf3dddddffffvbvcv" xml:space="preserve">
<value />
</data>
</root>

BIN
Aviso/Resources/WLAN/RunNHide.exe Normal file
View File

Binary file not shown.

145
Aviso/WLAN/cWLANTicket.vb Normal file
View File

@@ -0,0 +1,145 @@

Imports System.IO
Class sWLANTicket
Public Shared Function printTicket(Optional AVISO As VERAG_PROG_ALLGEMEIN.cAviso = Nothing) As Boolean
Dim usr As String = ""
Dim pwd As String = ""
If genTicket(usr, pwd) Then
Dim rpt As New rptWLANTicket()
rpt.TextBox4.Text = Now.ToShortDateString & " " & Now.ToShortTimeString
rpt.TextBox9.Text = Now.AddHours(24).ToShortDateString & " " & Now.AddHours(24).ToShortTimeString
rpt.TextBox1.Text = usr
rpt.TextBox5.Text = pwd
rpt.TextBox11.Text = "FrontOffice_Guest"
If AVISO IsNot Nothing Then
rpt.TextBox13.Text = AVISO.LKW_Nr
rpt.TextBox15.Text = AVISO.Frächter
End If
Dim printer = SDL.cProgramFunctions.getDruckernameBySearch("INFO", True)
If printer = "" Then printer = SDL.cProgramFunctions.getDruckernameBySearch("EPSON", True)
If printer <> "" Then
SDL.cProgramFunctions.printRpt(rpt, printer, True)
Else
SDL.cProgramFunctions.showRpt(rpt, "AVISO", False)
End If
Return True
End If
Return False
End Function
Public Shared Function genTicket(Optional ByRef user As String = "", Optional ByRef pwd As String = "") As Boolean
'Dim a, b As String
user = UsernamePasswordGenerator("u")
pwd = UsernamePasswordGenerator("p")
Return AddGastWLANUser(user, pwd)
' MsgBox(a & vbCrLf & b)
End Function
Public Shared Function UsernamePasswordGenerator(x As String, Optional ByVal Zeichenanzahl As Integer = 6) As String ' wenn u dann Username, sonst Password
Dim str As String
Dim up As String
If x = "u" Then
str = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
Else
str = "0123456789"
End If
Dim r As New Random
For i As Integer = 0 To Zeichenanzahl - 1
up &= str(r.Next(0, str.Length)).ToString
Next
Return up
'MsgBox(up)
End Function
Public Shared Function AddGastWLANUser(Username As String, Optional ByVal Password As String = "verag1", Optional ByVal Zugangsdaten As String = "WLANAdmin@192.168.0.97 -pw 6a0D5Ys93uugLi3uVciV", Optional ByVal AblaufZeit As Integer = 2)
Try
If Not File.Exists(Application.StartupPath & "\Resources\WLAN\AddWLANUser.bat") Then File.Create(Application.StartupPath & "\Resources\WLAN\AddWLANUser.bat")
Dim AddWLANUser As String = Application.StartupPath & "\Resources\WLAN\AddWLANUser.bat"
Dim exptime As String = Date.Now.AddHours(AblaufZeit).ToString("yyyy-MM-dd HH:mm")
Dim battext As String = ""
battext = "(
echo configure terminal
echo dynamic-guest username " & Username & "
echo password " & Password & "
echo expire-time " & exptime & "
echo group Fahrer_Gruppe
echo exit
echo exit
echo exit
) | plink -ssh " & Zugangsdaten & "
exit"
WriteToFile(AddWLANUser, battext)
Threading.Thread.Sleep(1500)
Dim Add As New Process
Add.StartInfo.FileName = Application.StartupPath & "\Resources\WLAN\RunNHide.exe"
Add.StartInfo.Arguments = AddWLANUser
Add.Start()
Return True
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
Return False
End Try
End Function
Public Shared Function DeleteGastWLANUser(Username As String, Optional ByVal Zugangsdaten As String = "WLANAdmin@192.168.0.97 -pw 6a0D5Ys93uugLi3uVciV")
Try
If Not File.Exists(Application.StartupPath & "\Resources\WLAN\DELWLANUser.bat") Then File.Create(Application.StartupPath & "\Resources\WLAN\DELWLANUser.bat")
Dim DELWLANUser As String = Application.StartupPath & "\Resources\WLAN\DELWLANUser.bat"
Dim battext As String = ""
battext = "(
echo configure terminal
echo no dynamic-guest " & Username & "
echo exit
echo exit
echo exit
) | plink -ssh " & Zugangsdaten & "
exit"
WriteToFile(DELWLANUser, battext)
Threading.Thread.Sleep(1500)
Dim del As New Process
del.StartInfo.FileName = Application.StartupPath & "\Resources\WLAN\RunNHide.exe"
del.StartInfo.Arguments = DELWLANUser
del.Start()
'Process.Start(Application.StartupPath & "\RunNHide.exe " & DELWLANUser)
Return True
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
Return False
End Try
End Function
Public Shared Function WriteToFile(filepath As String, texttowrite As String)
Try
Dim objWriter As New System.IO.StreamWriter(filepath)
objWriter.Write(texttowrite)
objWriter.Close()
Return True
Catch ex As Exception
MsgBox(filepath & vbCrLf & " konnte nicht geschrieben werden." & vbCrLf & ex.Message)
Return False
End Try
End Function
End Class

343
Aviso/WLAN/rptWLANTicket.Designer.vb generated Normal file
View File

@@ -0,0 +1,343 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Public Class rptWLANTicket
Inherits GrapeCity.ActiveReports.SectionReport
'Form overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
End If
MyBase.Dispose(disposing)
End Sub
'NOTE: The following procedure is required by the ActiveReports Designer
'It can be modified using the ActiveReports Designer.
'Do not modify it using the code editor.
Private WithEvents PageHeader As GrapeCity.ActiveReports.SectionReportModel.PageHeader
Private WithEvents Detail As GrapeCity.ActiveReports.SectionReportModel.Detail
Private WithEvents PageFooter As GrapeCity.ActiveReports.SectionReportModel.PageFooter
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(rptWLANTicket))
Me.PageHeader = New GrapeCity.ActiveReports.SectionReportModel.PageHeader()
Me.Picture1 = New GrapeCity.ActiveReports.SectionReportModel.Picture()
Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail()
Me.TextBox3 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.PageFooter = New GrapeCity.ActiveReports.SectionReportModel.PageFooter()
Me.ReportHeader1 = New GrapeCity.ActiveReports.SectionReportModel.ReportHeader()
Me.TextBox2 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox6 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox1 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox4 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox5 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox7 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.ReportFooter1 = New GrapeCity.ActiveReports.SectionReportModel.ReportFooter()
Me.TextBox8 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox9 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox10 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox11 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox12 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox13 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox14 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox15 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox16 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
CType(Me.Picture1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox3, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox6, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox4, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox5, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox7, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox8, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox9, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox10, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox11, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox12, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox13, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox14, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox15, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox16, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
'
'PageHeader
'
Me.PageHeader.Height = 0!
Me.PageHeader.Name = "PageHeader"
'
'Picture1
'
Me.Picture1.DataField = ""
Me.Picture1.Height = 0.6043308!
Me.Picture1.HyperLink = Nothing
Me.Picture1.ImageData = CType(resources.GetObject("Picture1.ImageData"), System.IO.Stream)
Me.Picture1.Left = 0.02165365!
Me.Picture1.Name = "Picture1"
Me.Picture1.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom
Me.Picture1.Top = 0!
Me.Picture1.Width = 2.638189!
'
'Detail
'
Me.Detail.Height = 0!
Me.Detail.Name = "Detail"
'
'TextBox3
'
Me.TextBox3.Height = 0.17!
Me.TextBox3.Left = 0!
Me.TextBox3.Name = "TextBox3"
Me.TextBox3.OutputFormat = resources.GetString("TextBox3.OutputFormat")
Me.TextBox3.Style = "font-size: 9pt; font-weight: normal; text-justify: distribute; ddo-char-set: 0"
Me.TextBox3.Text = "Username:"
Me.TextBox3.Top = 1.890945!
Me.TextBox3.Width = 1.13189!
'
'PageFooter
'
Me.PageFooter.Height = 0!
Me.PageFooter.Name = "PageFooter"
'
'ReportHeader1
'
Me.ReportHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Picture1, Me.TextBox3, Me.TextBox2, Me.TextBox6, Me.TextBox1, Me.TextBox4, Me.TextBox5, Me.TextBox7, Me.TextBox8, Me.TextBox9, Me.TextBox10, Me.TextBox11, Me.TextBox12, Me.TextBox13, Me.TextBox14, Me.TextBox15, Me.TextBox16})
Me.ReportHeader1.Height = 4.02126!
Me.ReportHeader1.Name = "ReportHeader1"
'
'TextBox2
'
Me.TextBox2.Height = 0.17!
Me.TextBox2.Left = 0!
Me.TextBox2.Name = "TextBox2"
Me.TextBox2.OutputFormat = resources.GetString("TextBox2.OutputFormat")
Me.TextBox2.Style = "font-size: 9pt; font-weight: normal; ddo-char-set: 0"
Me.TextBox2.Text = "Start Date:"
Me.TextBox2.Top = 1.12126!
Me.TextBox2.Width = 1.13189!
'
'TextBox6
'
Me.TextBox6.Height = 0.17!
Me.TextBox6.Left = 0!
Me.TextBox6.Name = "TextBox6"
Me.TextBox6.OutputFormat = resources.GetString("TextBox6.OutputFormat")
Me.TextBox6.Style = "font-size: 9pt; font-weight: normal; text-justify: distribute; ddo-char-set: 0"
Me.TextBox6.Text = "Password:"
Me.TextBox6.Top = 2.175591!
Me.TextBox6.Width = 1.13189!
'
'TextBox1
'
Me.TextBox1.Height = 0.2845668!
Me.TextBox1.Left = 0.8716536!
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.OutputFormat = resources.GetString("TextBox1.OutputFormat")
Me.TextBox1.Style = "font-size: 16pt; font-weight: bold; text-align: left; text-justify: distribute; d" &
"do-char-set: 0"
Me.TextBox1.Text = "USER"
Me.TextBox1.Top = 1.823622!
Me.TextBox1.Width = 1.714961!
'
'TextBox4
'
Me.TextBox4.Height = 0.17!
Me.TextBox4.Left = 0.8716536!
Me.TextBox4.Name = "TextBox4"
Me.TextBox4.OutputFormat = resources.GetString("TextBox4.OutputFormat")
Me.TextBox4.Style = "font-size: 9pt; font-weight: bold; text-align: left; ddo-char-set: 0"
Me.TextBox4.Text = "Date:"
Me.TextBox4.Top = 1.12126!
Me.TextBox4.Width = 1.714961!
'
'TextBox5
'
Me.TextBox5.Height = 0.2845668!
Me.TextBox5.Left = 0.8716536!
Me.TextBox5.Name = "TextBox5"
Me.TextBox5.OutputFormat = resources.GetString("TextBox5.OutputFormat")
Me.TextBox5.Style = "font-size: 16pt; font-weight: bold; text-align: left; text-justify: distribute; d" &
"do-char-set: 0"
Me.TextBox5.Text = "Password:"
Me.TextBox5.Top = 2.108268!
Me.TextBox5.Width = 1.714961!
'
'TextBox7
'
Me.TextBox7.Height = 0.2845668!
Me.TextBox7.Left = 0!
Me.TextBox7.Name = "TextBox7"
Me.TextBox7.OutputFormat = resources.GetString("TextBox7.OutputFormat")
Me.TextBox7.Style = "font-size: 16pt; font-weight: bold; text-align: center; text-decoration: underlin" &
"e; text-justify: distribute; ddo-char-set: 0"
Me.TextBox7.Text = "WLAN-Ticket"
Me.TextBox7.Top = 0.6940945!
Me.TextBox7.Width = 2.586614!
'
'ReportFooter1
'
Me.ReportFooter1.Height = 0!
Me.ReportFooter1.Name = "ReportFooter1"
'
'TextBox8
'
Me.TextBox8.Height = 0.17!
Me.TextBox8.Left = 0.0000003688037!
Me.TextBox8.Name = "TextBox8"
Me.TextBox8.OutputFormat = resources.GetString("TextBox8.OutputFormat")
Me.TextBox8.Style = "font-size: 9pt; font-weight: normal; ddo-char-set: 0"
Me.TextBox8.Text = "End Date:"
Me.TextBox8.Top = 1.293701!
Me.TextBox8.Width = 1.13189!
'
'TextBox9
'
Me.TextBox9.Height = 0.17!
Me.TextBox9.Left = 0.8716537!
Me.TextBox9.Name = "TextBox9"
Me.TextBox9.OutputFormat = resources.GetString("TextBox9.OutputFormat")
Me.TextBox9.Style = "font-size: 9pt; font-weight: bold; text-align: left; ddo-char-set: 0"
Me.TextBox9.Text = "Date:"
Me.TextBox9.Top = 1.293701!
Me.TextBox9.Width = 1.71496!
'
'TextBox10
'
Me.TextBox10.Height = 0.17!
Me.TextBox10.Left = 0!
Me.TextBox10.Name = "TextBox10"
Me.TextBox10.OutputFormat = resources.GetString("TextBox10.OutputFormat")
Me.TextBox10.Style = "font-size: 9pt; font-weight: normal; ddo-char-set: 0"
Me.TextBox10.Text = "WLAN Name:"
Me.TextBox10.Top = 1.499213!
Me.TextBox10.Width = 1.13189!
'
'TextBox11
'
Me.TextBox11.Height = 0.17!
Me.TextBox11.Left = 0.871653!
Me.TextBox11.Name = "TextBox11"
Me.TextBox11.OutputFormat = resources.GetString("TextBox11.OutputFormat")
Me.TextBox11.Style = "font-size: 9pt; font-weight: bold; text-align: left; ddo-char-set: 0"
Me.TextBox11.Text = "Date:"
Me.TextBox11.Top = 1.499213!
Me.TextBox11.Width = 1.71496!
'
'TextBox12
'
Me.TextBox12.Height = 0.17!
Me.TextBox12.Left = 0!
Me.TextBox12.Name = "TextBox12"
Me.TextBox12.OutputFormat = resources.GetString("TextBox12.OutputFormat")
Me.TextBox12.Style = "font-size: 9pt; font-weight: normal; ddo-char-set: 0"
Me.TextBox12.Text = "Truck-Nr:"
Me.TextBox12.Top = 2.511024!
Me.TextBox12.Width = 1.13189!
'
'TextBox13
'
Me.TextBox13.Height = 0.17!
Me.TextBox13.Left = 0.8716528!
Me.TextBox13.Name = "TextBox13"
Me.TextBox13.OutputFormat = resources.GetString("TextBox13.OutputFormat")
Me.TextBox13.Style = "font-size: 9pt; font-weight: bold; text-align: left; ddo-char-set: 0"
Me.TextBox13.Text = "Date:"
Me.TextBox13.Top = 2.511024!
Me.TextBox13.Width = 1.71496!
'
'TextBox14
'
Me.TextBox14.Height = 0.17!
Me.TextBox14.Left = 0!
Me.TextBox14.Name = "TextBox14"
Me.TextBox14.OutputFormat = resources.GetString("TextBox14.OutputFormat")
Me.TextBox14.Style = "font-size: 9pt; font-weight: normal; ddo-char-set: 0"
Me.TextBox14.Text = "Company:"
Me.TextBox14.Top = 2.681103!
Me.TextBox14.Width = 1.13189!
'
'TextBox15
'
Me.TextBox15.Height = 0.17!
Me.TextBox15.Left = 0.8716528!
Me.TextBox15.Name = "TextBox15"
Me.TextBox15.OutputFormat = resources.GetString("TextBox15.OutputFormat")
Me.TextBox15.Style = "font-size: 9pt; font-weight: bold; text-align: left; ddo-char-set: 0"
Me.TextBox15.Text = "Date:"
Me.TextBox15.Top = 2.681103!
Me.TextBox15.Width = 1.71496!
'
'TextBox16
'
Me.TextBox16.Height = 1.170079!
Me.TextBox16.Left = 0!
Me.TextBox16.Name = "TextBox16"
Me.TextBox16.OutputFormat = resources.GetString("TextBox16.OutputFormat")
Me.TextBox16.Style = "font-size: 7pt; font-weight: normal; text-align: justify; text-justify: auto; ver" &
"tical-align: middle; ddo-char-set: 0"
Me.TextBox16.Text = resources.GetString("TextBox16.Text")
Me.TextBox16.Top = 2.851181!
Me.TextBox16.Width = 2.659843!
'
'rptWLANTicket
'
Me.MasterReport = False
Me.PageSettings.Margins.Bottom = 0.1968504!
Me.PageSettings.Margins.Left = 0.1968504!
Me.PageSettings.Margins.Right = 0.1968504!
Me.PageSettings.Margins.Top = 0.1968504!
Me.PageSettings.Orientation = GrapeCity.ActiveReports.Document.Section.PageOrientation.Portrait
Me.PageSettings.PaperHeight = 11.0!
Me.PageSettings.PaperWidth = 8.5!
Me.PrintWidth = 2.659842!
Me.ScriptLanguage = "VB.NET"
Me.Sections.Add(Me.ReportHeader1)
Me.Sections.Add(Me.PageHeader)
Me.Sections.Add(Me.Detail)
Me.Sections.Add(Me.PageFooter)
Me.Sections.Add(Me.ReportFooter1)
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Arial; font-style: normal; text-decoration: none; font-weight: norma" &
"l; font-size: 10pt; color: Black; ddo-char-set: 204", "Normal"))
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 16pt; font-weight: bold", "Heading1", "Normal"))
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Times New Roman; font-size: 14pt; font-weight: bold; font-style: ita" &
"lic", "Heading2", "Normal"))
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 13pt; font-weight: bold", "Heading3", "Normal"))
CType(Me.Picture1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox3, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox6, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox4, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox5, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox7, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox8, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox9, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox10, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox11, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox12, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox13, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox14, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox15, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox16, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
End Sub
Private WithEvents Picture1 As GrapeCity.ActiveReports.SectionReportModel.Picture
Private WithEvents TextBox3 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents ReportHeader1 As GrapeCity.ActiveReports.SectionReportModel.ReportHeader
Private WithEvents ReportFooter1 As GrapeCity.ActiveReports.SectionReportModel.ReportFooter
Private WithEvents TextBox2 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Friend WithEvents Shape1 As GrapeCity.ActiveReports.SectionReportModel.Shape
Private WithEvents TextBox6 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox7 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents TextBox1 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents TextBox4 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents TextBox5 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox8 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox10 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents TextBox11 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents TextBox9 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox12 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents TextBox13 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox14 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox16 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents TextBox15 As GrapeCity.ActiveReports.SectionReportModel.TextBox
End Class

1882
Aviso/WLAN/rptWLANTicket.resx Normal file
View File

File diff suppressed because it is too large Load Diff

8
Aviso/WLAN/rptWLANTicket.vb Normal file
View File

@@ -0,0 +1,8 @@
Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document
Imports VERAG_PROG_ALLGEMEIN
Public Class rptWLANTicket
End Class

4
Aviso/frmAddAktenvermerkShort.vb
View File

@@ -141,6 +141,9 @@ btnZollDEEingereicht.Click, btnSBG.Click, btnNKD.Click, btnWAI.Click, btnSFD.Cli
insertVermerk("DE Zoll (DIGITAL) fertig", 83)
If myAviso.LKW_fertig Then VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.LKWFertig(myAviso.AvisoID) : frmHauptfenster.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
SQL.doSQL("UPDATE AVISO SET ZOLLDigitalEingereicht=0, LKW_fertig=1 where avisoid=" & AvisoID, "AVISO")
AvisoStatusFunctions.printFinish(myAviso)
Else
insertVermerk("DE Zoll DIGITAL eingereicht", 82)
SQL.doSQL("UPDATE AVISO SET ZOLLDigitalEingereicht=1 where avisoid=" & AvisoID, "AVISO")
@@ -232,6 +235,7 @@ btnZollDEEingereicht.Click, btnSBG.Click, btnNKD.Click, btnWAI.Click, btnSFD.Cli
End Sub
Sub insertVermerk(Text As String, VermerkCodeId As Integer, Optional Beschreibung As String = "")
'Daten zuweisen und speichern
Dim myVermerk As New cVermerk

14
Aviso/frmAvisoWeiterleiten.Designer.vb generated
View File

@@ -73,6 +73,7 @@ Partial Class frmAvisoWeiterleiten
Me.btnFrontoffice = New System.Windows.Forms.Button()
Me.btnVERIMEX = New System.Windows.Forms.Button()
Me.btnAMBAR = New System.Windows.Forms.Button()
Me.btnATILLA = New System.Windows.Forms.Button()
Me.Panel5 = New System.Windows.Forms.Panel()
Me.Label6 = New System.Windows.Forms.Label()
Me.dgvAnmhaenge = New System.Windows.Forms.DataGridView()
@@ -586,6 +587,7 @@ Partial Class frmAvisoWeiterleiten
Me.MyFlowLayoutPanel1.Controls.Add(Me.btnFrontoffice)
Me.MyFlowLayoutPanel1.Controls.Add(Me.btnVERIMEX)
Me.MyFlowLayoutPanel1.Controls.Add(Me.btnAMBAR)
Me.MyFlowLayoutPanel1.Controls.Add(Me.btnATILLA)
Me.MyFlowLayoutPanel1.Dock = System.Windows.Forms.DockStyle.Top
Me.MyFlowLayoutPanel1.Location = New System.Drawing.Point(0, 0)
Me.MyFlowLayoutPanel1.Name = "MyFlowLayoutPanel1"
@@ -658,6 +660,17 @@ Partial Class frmAvisoWeiterleiten
Me.btnAMBAR.Text = "AMBAR"
Me.btnAMBAR.UseVisualStyleBackColor = True
'
'btnATILLA
'
Me.btnATILLA.FlatStyle = System.Windows.Forms.FlatStyle.Popup
Me.btnATILLA.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
Me.btnATILLA.Location = New System.Drawing.Point(3, 52)
Me.btnATILLA.Name = "btnATILLA"
Me.btnATILLA.Size = New System.Drawing.Size(120, 43)
Me.btnATILLA.TabIndex = 11
Me.btnATILLA.Text = "ATILLA"
Me.btnATILLA.UseVisualStyleBackColor = True
'
'Panel5
'
Me.Panel5.BackColor = System.Drawing.Color.SeaShell
@@ -840,4 +853,5 @@ Partial Class frmAvisoWeiterleiten
Friend WithEvents clmnAnhFileName As DataGridViewTextBoxColumn
Friend WithEvents btnVERIMEX As Button
Friend WithEvents btnAMBAR As Button
Friend WithEvents btnATILLA As Button
End Class

34
Aviso/frmAvisoWeiterleiten.vb
View File

@@ -31,6 +31,18 @@ Public Class frmAvisoWeiterleiten
Exit Sub
End If
Dim AVISO = VERAG_PROG_ALLGEMEIN.cAviso.getAvisoById(AvisoId)
If AVISO.FIRMA = "ATILLA" Then
For Each p As Control In MyFlowLayoutPanel1.Controls.OfType(Of Button).Where(Function(ctrl) ctrl.Name <> "btnATILLA" And ctrl.Name <> "btnVERIMEX").ToList
MyFlowLayoutPanel1.Controls.Remove(p)
Next
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "ATILLA" Then btnVERIMEX.PerformClick()
Panel2.Enabled = False
Else
btnATILLA.Visible = False
End If
'tbcntr.Appearance = TabAppearance.FlatButtons
'tbcntr.ItemSize = New Size(0, 1)
'tbcntr.SizeMode = TabSizeMode.Fixed
@@ -39,13 +51,7 @@ Public Class frmAvisoWeiterleiten
loaded = True
End Sub
Private Sub Panel2_Paint(sender As Object, e As PaintEventArgs)
End Sub
Private Sub MyFlowLayoutPanel1_Paint(sender As Object, e As PaintEventArgs)
End Sub
'Private Sub Button6_Click(sender As Object, e As EventArgs)
' Dim flp As FlowLayoutPanel = flpFi
@@ -198,7 +204,7 @@ Public Class frmAvisoWeiterleiten
' initButtons(sender)
'End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles btnVERAG.Click, btnIMEX.Click, btnUNIPED.Click, btnFrontoffice.Click, btnVERIMEX.Click, btnAMBAR.Click
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles btnVERAG.Click, btnIMEX.Click, btnUNIPED.Click, btnFrontoffice.Click, btnVERIMEX.Click, btnAMBAR.Click, btnATILLA.Click
'flpAbteilung.Controls.Clear()
flpTeams.Controls.Clear()
' flpNiederlassung.Controls.Clear()
@@ -240,9 +246,18 @@ Public Class frmAvisoWeiterleiten
End If
ElseIf sender Is btnFrontoffice Then
addBtn(flpFirma, "F", "FRONTOFFICE", "FRONT-OFFICE", True)
ElseIf sender Is btnATILLA Then
addBtn(flpFirma, "F", "ATILLA", "ATILLA", True)
ElseIf sender Is btnVERIMEX Then
addBtn(flpFirma, "F", "VERIMEX", "VERIMEX", True)
'addBtn(flpFirma, "F", "VERIMEX", "VERIMEX", True)
Dim whereTeams = ""
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "ATILLA" Then whereTeams = " AND team_bezeichnung='TEAM EXPORT' "
Dim dt As DataTable = SQL.loadDgvBySql("SELECT team_id, team_bezeichnung FROM tblTeams WHERE team_firma='VERIMEX' " & whereTeams & " order by team_id", "ADMIN")
If dt IsNot Nothing Then
For Each t In dt.Rows
addBtn(flpTeams, "T", t("team_id"), t("team_bezeichnung"),, "VERIMEX")
Next
End If
ElseIf sender Is btnAMBAR Then
addBtn(flpFirma, "F", "AMBAR", "AMBAR", True)
@@ -353,5 +368,4 @@ Public Class frmAvisoWeiterleiten
dgvAnmhaenge.ClearSelection()
End Sub
End Class

33
Aviso/frmDokumenteSchicken.vb
View File

@@ -1,33 +0,0 @@
Public Class frmDokumenteSchicken
Dim AVISO As VERAG_PROG_ALLGEMEIN.cAviso
Sub New(AVISO As VERAG_PROG_ALLGEMEIN.cAviso)
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
Me.AVISO = AVISO
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
Private Sub frmDokumenteSchicken_Shown(sender As Object, e As EventArgs) Handles Me.Shown
btnOK.Focus()
End Sub
Private Sub btnOK_Click(sender As Object, e As EventArgs) Handles btnOK.Click
Try
If cbxInfoblattFurDigitalabfertigungDrucken.Checked And cbxInfoblattFurDigitalabfertigungDrucken.Visible Then
Dim path = SDL.FormularManagerNEU.Finish_AVISO(AVISO)
Dim oPS As New System.Drawing.Printing.PrinterSettings
If path <> "" Then VERAG_PROG_ALLGEMEIN.cFormularManager.PrintViaGS(path, oPS.PrinterName)
End If
Catch ex As Exception
End Try
End Sub
Private Sub frmDokumenteSchicken_Load(sender As Object, e As EventArgs) Handles Me.Load
If Not VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("PRINT_Freigabe_FinishDigital") Then
cbxInfoblattFurDigitalabfertigungDrucken.Visible = False
End If
End Sub
End Class

6
Aviso/frmEintragAviso.designer.vb generated
View File

@@ -72,7 +72,7 @@ Partial Class frmEintragAviso
Me.optTelefonisch = New System.Windows.Forms.RadioButton()
Me.Label12 = New System.Windows.Forms.Label()
Me.cbxHandling = New System.Windows.Forms.CheckBox()
Me.cboGrenzstelle = New System.Windows.Forms.ComboBox()
Me.cboGrenzstelle = New VERAG_PROG_ALLGEMEIN.MyComboBox
Me.lblAktenuebersicht = New System.Windows.Forms.Label()
Me.grpAviso = New System.Windows.Forms.GroupBox()
Me.PictureBox1 = New System.Windows.Forms.PictureBox()
@@ -702,7 +702,7 @@ Partial Class frmEintragAviso
Me.cboGrenzstelle.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.cboGrenzstelle.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cboGrenzstelle.FormattingEnabled = True
Me.cboGrenzstelle.Items.AddRange(New Object() {"", "SUB", "SBG", "WAI", "NKD", "SFD", "NEU", "AMB", "???"})
Me.cboGrenzstelle.Items.AddRange(New Object() {"", "SUB", "SBG", "WAI", "NKD", "SFD", "NEU", "AMB", "WO_GE", "???"})
Me.cboGrenzstelle.Location = New System.Drawing.Point(243, 139)
Me.cboGrenzstelle.Name = "cboGrenzstelle"
Me.cboGrenzstelle.Size = New System.Drawing.Size(74, 28)
@@ -1868,7 +1868,7 @@ Partial Class frmEintragAviso
Friend WithEvents optVorgeschrieben As System.Windows.Forms.RadioButton
Friend WithEvents cbxHandling As System.Windows.Forms.CheckBox
Friend WithEvents dtpDatum As System.Windows.Forms.DateTimePicker
Friend WithEvents cboGrenzstelle As System.Windows.Forms.ComboBox
Friend WithEvents cboGrenzstelle As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents lblAktenuebersicht As System.Windows.Forms.Label
Friend WithEvents grpAviso As System.Windows.Forms.GroupBox
Friend WithEvents grpAktVerzollung As System.Windows.Forms.GroupBox

66
Aviso/frmEintragAviso.vb
View File

@@ -92,6 +92,13 @@ Public Class frmEintragAviso
kdAvisierer.initKdBox(Me)
kdAuftraggeber.initKdBox(Me)
cboGrenzstelle.Items.Clear()
cboGrenzstelle.fillWithSQL("SELECT [grz_Grenzstelle],[grz_BezeichnungCBO] FROM tblGrenzstelle where [grz_Firma]='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' OR grz_Cluster='" & VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER & "' AND grz_Aktiv=1 order by grz_Reihenfolge, grz_Grenzstelle", False, "AVISO", True,, "ALLE")
cboGrenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("???", "???"))
cboGrenzstelle.changeItem("")
sbLkwNationalitaet.initSearchBox(Me.FindForm, " [Code] ,[Description] as Land FROM tbl_DY_ZollDE_C0008_LaenderFull", {"Code", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "Code", "Code", "Code", "FMZOLL", , 400, 200)
If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then
@@ -235,7 +242,7 @@ Public Class frmEintragAviso
grpAktVerzollung.Visible = False
cbxSendungsvorlagen.Visible = False
Button3.Visible = False
cboGrenzstelle.Text = "SUB"
cboGrenzstelle.changeItem("SUB")
cbxAuftraggeberfurAlleSendungen.Visible = False
If ATILLA_NEUERAKTENDECKEL Then
UsrCntlEintragAvisoAtilla.Visible = True
@@ -269,7 +276,7 @@ Public Class frmEintragAviso
kdFrächter.Text = ""
If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_abteilung <> "QS" Then
If VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG <> "" Then
cboGrenzstelle.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG
cboGrenzstelle.changeItem(VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG)
End If
End If
Else
@@ -323,8 +330,8 @@ Public Class frmEintragAviso
Else
optUnbekannt.Checked = True
End If
cboGrenzstelle.Text = myAviso.Grenzstelle
cboImEx.Text = If(myAviso.ImEx, "")
cboGrenzstelle.changeItem(myAviso.Grenzstelle)
cboImEx.Text = If(myAviso.ImEx, "")
hStatus = myAviso.Status
If myAviso.Ankunft = LeerDatum Then
dtpAnkunft.Value = Now.Date
@@ -602,7 +609,7 @@ Public Class frmEintragAviso
End If
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "ATILLA" Then
If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("FIELDS_AVISO_Mandatory_FreachterKdNr") Then
If Not cbxFrächterUnbekannt.Checked Then
If kdFrächter.KdNr_value <= 0 Then
kdFrächter.Focus()
@@ -610,22 +617,28 @@ Public Class frmEintragAviso
Exit Sub
End If
End If
End If
If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("FIELDS_AVISO_Mandatory_AvisiererKdNr") Then
If kdAvisierer.KdNr_value <= 0 Then
kdAvisierer.Focus()
lblErr_KdNr.Visible = True
Exit Sub
End If
End If
Else
If cboGrenzstelle.Text.Trim = "" Then
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA <> "ATILLA" Then
If cboGrenzstelle._value.Trim = "" Then
' MsgBox("Bitte die Grenzstelle eingegeben.", vbInformation)
lblErr_Grenzstelle.Visible = True
cboGrenzstelle.Focus()
Exit Sub
End If
End If
If cGlobal.Aktive_ID = 0 Then ' nur wenn Neuanlage!
If datVoraussichtlichesEintreffen.Visible AndAlso CDate(datVoraussichtlichesEintreffen.Value.ToShortDateString) < CDate(dtpDatum.Value.ToShortDateString) Then 'ohne Uhrzeit
lblErrVorraussuchtlEintreffen.Visible = True
@@ -813,7 +826,7 @@ Public Class frmEintragAviso
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "ATILLA" Then
myAviso.Grenzstelle = "SUB"
Else
myAviso.Grenzstelle = cboGrenzstelle.Text
myAviso.Grenzstelle = cboGrenzstelle._value
' MsgBox(myAviso.Grenzstelle)
End If
@@ -921,7 +934,12 @@ Public Class frmEintragAviso
'If myAviso.FIRMA = "IMEX" Then
myAviso.Zollstelle = SDL.cProgramFunctions.isLeerNothing(txtBestimmungszollstelle._value)
If myAviso.Grenzstelle = "???" Then
myAviso.Zollstelle = SDL.cProgramFunctions.isLeerNothing(txtBestimmungszollstelle._value)
Else
myAviso.Zollstelle = Nothing
End If
myAviso.Warenort = If(pnl.Visible, cbxWarenort.Checked, False)
'End If
@@ -1003,7 +1021,7 @@ Public Class frmEintragAviso
End If
If cbxAktenzettelDrucken.Checked Then SendungOptions.PrintSendungATILLA("PRINT", TMP_SND_Atilla, myAviso, cboPrinter.Text)
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
Case "IMEX", "UNISPED", "AMBAR", "FRONTOFFICE", "VERIMEX"
Dim anzahlSendungen = ADMIN.getValueTxtBySql("SELECT count(*) FROM tblSendungen WHERE tblSnd_AvisoID=" & tmpId, "AVISO") ' bei Neuanlage=0
@@ -1034,7 +1052,7 @@ Public Class frmEintragAviso
If kdAvisierer.KdNr_value > 0 Then tblSnd_AuftraggeberKdNr = kdAvisierer.KdNr_value
tblSnd_Auftraggeber = kdAvisierer.Text
End If
AvisoDAL.insertSendungEmpty(tmpId, cnt, filiale_tmp, abfnr_tmp, 0, abfArt, tblSnd_AuftraggeberKdNr, tblSnd_Auftraggeber, fremd) ' INSERT
Next
@@ -1042,7 +1060,7 @@ Public Class frmEintragAviso
Else
lblSendungsanzahl.Visible = True
txtSendungen.Focus()
: Me.Cursor = Cursors.Default : Exit Sub
Me.Cursor = Cursors.Default : Exit Sub
End If
End If
@@ -1088,15 +1106,15 @@ Public Class frmEintragAviso
Else
lblSendungsanzahl.Visible = True
txtSendungen.Focus()
: Me.Cursor = Cursors.Default : Exit Sub
Me.Cursor = Cursors.Default : Exit Sub
End If
End If
End If
End Select
' If Not IsNumeric(txtSendungen.Text) Or txtSendungen.Text = "0" Then
'txtSendungen.Text = "1"
@@ -1131,13 +1149,13 @@ Public Class frmEintragAviso
Try
System.Diagnostics.Process.Start(hMail)
Catch ex As Exception
MsgBox("Beim Mail-Versenden ist ein Fehler aufgetreten: " & vbCrLf & vbCrLf & ex.Message)
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,,"Beim Mail-Versenden ist ein Fehler aufgetreten")
End Try
End If
End If
: Me.Cursor = Cursors.Default
Me.Cursor = Cursors.Default
'Jetzt wird Fenster geschlossen
Me.Close()
VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = tmpId
@@ -1148,7 +1166,7 @@ Public Class frmEintragAviso
Catch ex As Exception
Me.Cursor = Cursors.Default
MsgBox(ex.Message & ex.StackTrace)
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
End Sub
@@ -1174,7 +1192,7 @@ Public Class frmEintragAviso
End Sub
Sub getFilialeAndAbfertNr(ByVal cnt, ByRef filialeNr, ByRef abfertigungsNr, ByRef fremd)
If cnt <= txtSendungen.Text Then
Select Case cboGrenzstelle.Text
Select Case cboGrenzstelle._value
Case "SUB" : filialeNr = 4803
Case "SBG" : filialeNr = 5003
Case "WAI" : filialeNr = 5103
@@ -1369,7 +1387,7 @@ Public Class frmEintragAviso
Private Sub optOhneAviso_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles optOhneAviso.CheckedChanged
dtpAvisoEingangDatum.Visible = optAvisoEingang.Checked
dtpAvisoEingangZeit.Visible = optAvisoEingang.Checked
cboGrenzstelle.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG
cboGrenzstelle.changeItem(VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG)
If optOhneAviso.Checked Then optUnbekannt.Checked = True
If optOhneAviso.Checked Then cbxAktenzettelDrucken.Checked = True
@@ -1623,12 +1641,12 @@ Public Class frmEintragAviso
pnl.Visible = False
' cboImEx.Visible = (cboGrenzstelle.Text = "WAI" Or VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "IMEX" Or VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "UNISPED")
Label1.Visible = (cboGrenzstelle.Text = "WAI" Or VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "IMEX" Or VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "UNISPED")
Label1.Visible = (cboGrenzstelle._value = "WAI" Or VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "IMEX" Or VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "UNISPED")
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "VERAG", "FRONTOFFICE", "UNISPED", "IMEX", "AMBAR"
If cboGrenzstelle.Text = "???" Then
If cboGrenzstelle._value = "???" Then
txtBestimmungszollstelle.initSearchBox(Me.FindForm, "[basncd_dstnr] ,[basncd_dstnr] +' - ' + [basncd_name] +' (' +[basncd_alpha]+')' as displayPARAM,[basncd_dstnr] as Nr,[basncd_name] as Dienststelle,[basncd_alpha] as Land FROM basncd", {" [basncd_dstnr]", "basncd_name"}, " [basncd_gbdat] >= getdate() ", " basncd_alpha,[basncd_name]", "basncd_dstnr", "displayPARAM", "ATLAS", , 400, 200, {"displayPARAM", "basncd_dstnr"})
'txtBestimmungszollstelle.Visible = True
'lblZA.Visible = True
@@ -1743,7 +1761,7 @@ Public Class frmEintragAviso
End If
End If
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

185
Aviso/frmDokumenteSchicken.Designer.vb → Aviso/frmFreigabeSetzen.Designer.vb generated
View File

@@ -1,5 +1,5 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmDokumenteSchicken
Partial Class frmFreigabeSetzen
Inherits System.Windows.Forms.Form
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
@@ -22,58 +22,104 @@ Partial Class frmDokumenteSchicken
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmDokumenteSchicken))
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmFreigabeSetzen))
Me.pnl = New System.Windows.Forms.Panel()
Me.btn = New System.Windows.Forms.Button()
Me.Panel1 = New System.Windows.Forms.Panel()
Me.Button1 = New System.Windows.Forms.Button()
Me.Label6 = New System.Windows.Forms.Label()
Me.cbxInfoblattFurDigitalabfertigungDrucken = New System.Windows.Forms.CheckBox()
Me.Label2 = New System.Windows.Forms.Label()
Me.rtbSonstigeInfo = New System.Windows.Forms.RichTextBox()
Me.rtbDokumente = New System.Windows.Forms.RichTextBox()
Me.btnOK = New System.Windows.Forms.Button()
Me.Header = New System.Windows.Forms.Panel()
Me.Label1 = New System.Windows.Forms.Label()
Me.Button1 = New System.Windows.Forms.Button()
Me.lblTitle = New System.Windows.Forms.Label()
Me.btnClose = New System.Windows.Forms.Button()
Me.lblText = New System.Windows.Forms.Label()
Me.pnl.SuspendLayout()
Me.Header.SuspendLayout()
Me.Panel1.SuspendLayout()
Me.SuspendLayout()
'
'pnl
'
Me.pnl.BackColor = System.Drawing.Color.White
Me.pnl.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.pnl.Controls.Add(Me.btn)
Me.pnl.Controls.Add(Me.Panel1)
Me.pnl.Controls.Add(Me.cbxInfoblattFurDigitalabfertigungDrucken)
Me.pnl.Controls.Add(Me.Label2)
Me.pnl.Controls.Add(Me.rtbSonstigeInfo)
Me.pnl.Controls.Add(Me.rtbDokumente)
Me.pnl.Controls.Add(Me.btnOK)
Me.pnl.Controls.Add(Me.Header)
Me.pnl.Controls.Add(Me.lblTitle)
Me.pnl.Controls.Add(Me.btnClose)
Me.pnl.Controls.Add(Me.lblText)
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(316, 452)
Me.pnl.Size = New System.Drawing.Size(494, 392)
Me.pnl.TabIndex = 0
'
'btn
'
Me.btn.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.btn.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold)
Me.btn.ForeColor = System.Drawing.Color.White
Me.btn.Location = New System.Drawing.Point(274, 314)
Me.btn.Name = "btn"
Me.btn.Size = New System.Drawing.Size(206, 62)
Me.btn.TabIndex = 99
Me.btn.Text = "OK"
Me.btn.UseVisualStyleBackColor = False
'
'Panel1
'
Me.Panel1.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Panel1.Controls.Add(Me.Button1)
Me.Panel1.Controls.Add(Me.Label6)
Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top
Me.Panel1.Location = New System.Drawing.Point(0, 0)
Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(492, 41)
Me.Panel1.TabIndex = 98
'
'Button1
'
Me.Button1.BackColor = System.Drawing.Color.Red
Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button1.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold)
Me.Button1.ForeColor = System.Drawing.Color.White
Me.Button1.Location = New System.Drawing.Point(408, -1)
Me.Button1.Margin = New System.Windows.Forms.Padding(0)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(85, 33)
Me.Button1.TabIndex = 1
Me.Button1.Text = "x"
Me.Button1.UseVisualStyleBackColor = False
'
'Label6
'
Me.Label6.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold)
Me.Label6.ForeColor = System.Drawing.Color.White
Me.Label6.Location = New System.Drawing.Point(13, 6)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(467, 26)
Me.Label6.TabIndex = 51
Me.Label6.Text = "Freigabe setzen"
Me.Label6.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
'
'cbxInfoblattFurDigitalabfertigungDrucken
'
Me.cbxInfoblattFurDigitalabfertigungDrucken.AutoSize = True
Me.cbxInfoblattFurDigitalabfertigungDrucken.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!)
Me.cbxInfoblattFurDigitalabfertigungDrucken.Location = New System.Drawing.Point(11, 348)
Me.cbxInfoblattFurDigitalabfertigungDrucken.Location = New System.Drawing.Point(117, 285)
Me.cbxInfoblattFurDigitalabfertigungDrucken.Name = "cbxInfoblattFurDigitalabfertigungDrucken"
Me.cbxInfoblattFurDigitalabfertigungDrucken.Size = New System.Drawing.Size(300, 24)
Me.cbxInfoblattFurDigitalabfertigungDrucken.TabIndex = 97
Me.cbxInfoblattFurDigitalabfertigungDrucken.Text = "Infoblatt für Digitalabfertigung drucken"
Me.cbxInfoblattFurDigitalabfertigungDrucken.UseVisualStyleBackColor = True
Me.cbxInfoblattFurDigitalabfertigungDrucken.Visible = False
'
'Label2
'
Me.Label2.Cursor = System.Windows.Forms.Cursors.Hand
Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Underline), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label2.Location = New System.Drawing.Point(3, 183)
Me.Label2.Location = New System.Drawing.Point(3, 157)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(422, 25)
Me.Label2.TabIndex = 96
@@ -82,137 +128,56 @@ Partial Class frmDokumenteSchicken
'
'rtbSonstigeInfo
'
Me.rtbSonstigeInfo.Location = New System.Drawing.Point(6, 211)
Me.rtbSonstigeInfo.Location = New System.Drawing.Point(6, 185)
Me.rtbSonstigeInfo.Name = "rtbSonstigeInfo"
Me.rtbSonstigeInfo.Size = New System.Drawing.Size(301, 130)
Me.rtbSonstigeInfo.Size = New System.Drawing.Size(474, 94)
Me.rtbSonstigeInfo.TabIndex = 95
Me.rtbSonstigeInfo.Text = ""
'
'rtbDokumente
'
Me.rtbDokumente.Location = New System.Drawing.Point(6, 59)
Me.rtbDokumente.Location = New System.Drawing.Point(6, 69)
Me.rtbDokumente.Name = "rtbDokumente"
Me.rtbDokumente.Size = New System.Drawing.Size(301, 121)
Me.rtbDokumente.Size = New System.Drawing.Size(474, 85)
Me.rtbDokumente.TabIndex = 94
Me.rtbDokumente.Text = ""
'
'btnOK
'
Me.btnOK.DialogResult = System.Windows.Forms.DialogResult.OK
Me.btnOK.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnOK.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0!)
Me.btnOK.Location = New System.Drawing.Point(81, 389)
Me.btnOK.Name = "btnOK"
Me.btnOK.Size = New System.Drawing.Size(133, 50)
Me.btnOK.TabIndex = 93
Me.btnOK.Text = "OK"
Me.btnOK.UseVisualStyleBackColor = True
'
'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.Label1)
Me.Header.Controls.Add(Me.Button1)
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(314, 24)
Me.Header.TabIndex = 92
'
'Label1
'
Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label1.ForeColor = System.Drawing.Color.White
Me.Label1.Location = New System.Drawing.Point(3, 0)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(241, 24)
Me.Label1.TabIndex = 88
Me.Label1.Text = "Info"
Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
'
'Button1
'
Me.Button1.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Button1.BackColor = System.Drawing.Color.Red
Me.Button1.FlatAppearance.BorderColor = System.Drawing.Color.White
Me.Button1.FlatAppearance.BorderSize = 0
Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Button1.ForeColor = System.Drawing.Color.White
Me.Button1.Location = New System.Drawing.Point(280, -1)
Me.Button1.Name = "Button1"
Me.Button1.RightToLeft = System.Windows.Forms.RightToLeft.Yes
Me.Button1.Size = New System.Drawing.Size(35, 25)
Me.Button1.TabIndex = 86
Me.Button1.Text = "X"
Me.Button1.UseVisualStyleBackColor = False
'
'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(-4, 0)
Me.lblTitle.Name = "lblTitle"
Me.lblTitle.Size = New System.Drawing.Size(241, 24)
Me.lblTitle.TabIndex = 91
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(287, -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 = 90
Me.btnClose.Text = "X"
Me.btnClose.UseVisualStyleBackColor = False
'
'lblText
'
Me.lblText.Cursor = System.Windows.Forms.Cursors.Hand
Me.lblText.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Underline), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblText.Location = New System.Drawing.Point(3, 28)
Me.lblText.Location = New System.Drawing.Point(3, 38)
Me.lblText.Name = "lblText"
Me.lblText.Size = New System.Drawing.Size(422, 35)
Me.lblText.TabIndex = 89
Me.lblText.Text = "Folgende Dokumente sind an den Kunden zu senden:"
Me.lblText.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
'
'frmDokumenteSchicken
'frmFreigabeSetzen
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(316, 452)
Me.ClientSize = New System.Drawing.Size(494, 392)
Me.Controls.Add(Me.pnl)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Name = "frmDokumenteSchicken"
Me.Name = "frmFreigabeSetzen"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "frmDokumenteSchicken"
Me.pnl.ResumeLayout(False)
Me.pnl.PerformLayout()
Me.Header.ResumeLayout(False)
Me.Panel1.ResumeLayout(False)
Me.ResumeLayout(False)
End Sub
Friend WithEvents pnl As System.Windows.Forms.Panel
Public WithEvents lblText As System.Windows.Forms.Label
Public WithEvents lblTitle As System.Windows.Forms.Label
Friend WithEvents btnClose As System.Windows.Forms.Button
Friend WithEvents Header As System.Windows.Forms.Panel
Public WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents Button1 As System.Windows.Forms.Button
Friend WithEvents btnOK As System.Windows.Forms.Button
Public WithEvents rtbDokumente As System.Windows.Forms.RichTextBox
Public WithEvents Label2 As Label
Public WithEvents rtbSonstigeInfo As RichTextBox
Friend WithEvents cbxInfoblattFurDigitalabfertigungDrucken As CheckBox
Friend WithEvents Panel1 As Panel
Friend WithEvents Label6 As Label
Friend WithEvents Button1 As Button
Friend WithEvents btn As Button
End Class

0
Aviso/frmDokumenteSchicken.resx → Aviso/frmFreigabeSetzen.resx
View File

41
Aviso/frmFreigabeSetzen.vb Normal file
View File

@@ -0,0 +1,41 @@
Public Class frmFreigabeSetzen
Dim AVISO As VERAG_PROG_ALLGEMEIN.cAviso
Sub New(AVISO As VERAG_PROG_ALLGEMEIN.cAviso)
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
Me.AVISO = AVISO
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
Private Sub frmDokumenteSchicken_Shown(sender As Object, e As EventArgs) Handles Me.Shown
btn.Focus()
End Sub
Private Sub btnOK_Click(sender As Object, e As EventArgs) Handles btn.Click
If False Then
Try
If cbxInfoblattFurDigitalabfertigungDrucken.Checked And cbxInfoblattFurDigitalabfertigungDrucken.Visible Then
Dim path = SDL.FormularManagerNEU.Finish_AVISO(AVISO)
Dim oPS As New System.Drawing.Printing.PrinterSettings
If path <> "" Then VERAG_PROG_ALLGEMEIN.cFormularManager.PrintViaGS(path, oPS.PrinterName)
End If
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
End Try
End If
Me.DialogResult = DialogResult.OK
Me.Close()
End Sub
Private Sub frmDokumenteSchicken_Load(sender As Object, e As EventArgs) Handles Me.Load
If Not VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("PRINT_Freigabe_FinishDigital") Then
cbxInfoblattFurDigitalabfertigungDrucken.Visible = False
End If
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Me.DialogResult = DialogResult.Cancel
End Sub
End Class

110
Aviso/frmHauptfenster.Designer.vb generated
View File

@@ -239,6 +239,7 @@ Partial Class frmHauptfenster
Me.Button12 = New System.Windows.Forms.Button()
Me.btnNeu = New System.Windows.Forms.Button()
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)
@@ -322,7 +323,6 @@ Partial Class frmHauptfenster
Me.EUTaricToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.Timer_REFRESH = New System.Windows.Forms.Timer(Me.components)
Me.UsrCntlTestsystem1 = New VERAG_PROG_ALLGEMEIN.usrCntlTestsystem()
Me.UsrCntlBenachrichtigungen1 = New AVISO.usrCntlBenachrichtigungen()
Me.conMenuAviso.SuspendLayout()
Me.MenuStrip1.SuspendLayout()
Me.Top.SuspendLayout()
@@ -1381,7 +1381,7 @@ Partial Class frmHauptfenster
Me.pnlDetailsRechts.Dock = System.Windows.Forms.DockStyle.Fill
Me.pnlDetailsRechts.Location = New System.Drawing.Point(0, 0)
Me.pnlDetailsRechts.Name = "pnlDetailsRechts"
Me.pnlDetailsRechts.Size = New System.Drawing.Size(480, 599)
Me.pnlDetailsRechts.Size = New System.Drawing.Size(481, 599)
Me.pnlDetailsRechts.TabIndex = 0
'
'Label6
@@ -1866,8 +1866,8 @@ Partial Class frmHauptfenster
'
Me.SplitContainer2.Panel2.Controls.Add(Me.SplitContainer3)
Me.SplitContainer2.Panel2MinSize = 650
Me.SplitContainer2.Size = New System.Drawing.Size(885, 298)
Me.SplitContainer2.SplitterDistance = 234
Me.SplitContainer2.Size = New System.Drawing.Size(884, 300)
Me.SplitContainer2.SplitterDistance = 210
Me.SplitContainer2.SplitterWidth = 1
Me.SplitContainer2.TabIndex = 0
'
@@ -1881,7 +1881,7 @@ Partial Class frmHauptfenster
Me.pnlLinks.Dock = System.Windows.Forms.DockStyle.Fill
Me.pnlLinks.Location = New System.Drawing.Point(0, 86)
Me.pnlLinks.Name = "pnlLinks"
Me.pnlLinks.Size = New System.Drawing.Size(234, 212)
Me.pnlLinks.Size = New System.Drawing.Size(210, 214)
Me.pnlLinks.TabIndex = 0
'
'Panel2
@@ -1894,7 +1894,7 @@ Partial Class frmHauptfenster
Me.Panel2.Dock = System.Windows.Forms.DockStyle.Top
Me.Panel2.Location = New System.Drawing.Point(0, 0)
Me.Panel2.Name = "Panel2"
Me.Panel2.Size = New System.Drawing.Size(234, 111)
Me.Panel2.Size = New System.Drawing.Size(210, 111)
Me.Panel2.TabIndex = 10
'
'Label7
@@ -1916,7 +1916,7 @@ Partial Class frmHauptfenster
Me.lblErrVermerk.ForeColor = System.Drawing.Color.Red
Me.lblErrVermerk.Location = New System.Drawing.Point(12, 158)
Me.lblErrVermerk.Name = "lblErrVermerk"
Me.lblErrVermerk.Size = New System.Drawing.Size(208, 27)
Me.lblErrVermerk.Size = New System.Drawing.Size(184, 27)
Me.lblErrVermerk.TabIndex = 1
Me.lblErrVermerk.Text = "Bei diesem Status kann kein Vermerk erfasst werden!"
Me.lblErrVermerk.TextAlign = System.Drawing.ContentAlignment.BottomLeft
@@ -1939,7 +1939,7 @@ Partial Class frmHauptfenster
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(49, 180)
Me.Label20.Location = New System.Drawing.Point(49, 182)
Me.Label20.Name = "Label20"
Me.Label20.Size = New System.Drawing.Size(28, 19)
Me.Label20.TabIndex = 9
@@ -1953,7 +1953,7 @@ Partial Class frmHauptfenster
Me.picAVISOMessenger.BackgroundImage = Global.AVISO.My.Resources.Resources.aviso_messenger
Me.picAVISOMessenger.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.picAVISOMessenger.Cursor = System.Windows.Forms.Cursors.Hand
Me.picAVISOMessenger.Location = New System.Drawing.Point(1, 132)
Me.picAVISOMessenger.Location = New System.Drawing.Point(1, 134)
Me.picAVISOMessenger.Name = "picAVISOMessenger"
Me.picAVISOMessenger.Size = New System.Drawing.Size(59, 55)
Me.picAVISOMessenger.TabIndex = 7
@@ -1966,7 +1966,7 @@ Partial Class frmHauptfenster
Me.lblVersion.AutoSize = True
Me.lblVersion.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblVersion.ForeColor = System.Drawing.Color.Black
Me.lblVersion.Location = New System.Drawing.Point(3, 199)
Me.lblVersion.Location = New System.Drawing.Point(3, 201)
Me.lblVersion.Name = "lblVersion"
Me.lblVersion.Size = New System.Drawing.Size(47, 13)
Me.lblVersion.TabIndex = 6
@@ -1991,7 +1991,7 @@ Partial Class frmHauptfenster
Me.pnlLinksOben.Dock = System.Windows.Forms.DockStyle.Top
Me.pnlLinksOben.Location = New System.Drawing.Point(0, 0)
Me.pnlLinksOben.Name = "pnlLinksOben"
Me.pnlLinksOben.Size = New System.Drawing.Size(234, 86)
Me.pnlLinksOben.Size = New System.Drawing.Size(210, 86)
Me.pnlLinksOben.TabIndex = 1
'
'Label22
@@ -2052,10 +2052,19 @@ Partial Class frmHauptfenster
'SplitContainer3.Panel2
'
Me.SplitContainer3.Panel2.Controls.Add(Me.pnl)
Me.SplitContainer3.Size = New System.Drawing.Size(650, 298)
Me.SplitContainer3.SplitterDistance = 164
Me.SplitContainer3.Size = New System.Drawing.Size(673, 300)
Me.SplitContainer3.SplitterDistance = 169
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(169, 300)
Me.UsrCntlBenachrichtigungen1.TabIndex = 0
'
'pnl
'
Me.pnl.Controls.Add(Me.Button10)
@@ -2064,7 +2073,7 @@ Partial Class frmHauptfenster
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(482, 298)
Me.pnl.Size = New System.Drawing.Size(500, 300)
Me.pnl.TabIndex = 0
'
'Button10
@@ -2097,7 +2106,8 @@ Partial Class frmHauptfenster
Me.gridMyAviso.Name = "gridMyAviso"
Me.gridMyAviso.ReadOnly = True
Me.gridMyAviso.RowHeadersVisible = False
Me.gridMyAviso.Size = New System.Drawing.Size(482, 277)
Me.gridMyAviso.RowHeadersWidth = 62
Me.gridMyAviso.Size = New System.Drawing.Size(500, 277)
Me.gridMyAviso.TabIndex = 0
'
'Panel6
@@ -2115,7 +2125,7 @@ Partial Class frmHauptfenster
Me.Panel6.Dock = System.Windows.Forms.DockStyle.Top
Me.Panel6.Location = New System.Drawing.Point(0, 0)
Me.Panel6.Name = "Panel6"
Me.Panel6.Size = New System.Drawing.Size(482, 21)
Me.Panel6.Size = New System.Drawing.Size(500, 21)
Me.Panel6.TabIndex = 1
'
'lblMeineAviso
@@ -2137,10 +2147,11 @@ Partial Class frmHauptfenster
Me.cboMy_Grenzstelle.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.cboMy_Grenzstelle.BackColor = System.Drawing.Color.WhiteSmoke
Me.cboMy_Grenzstelle.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cboMy_Grenzstelle.DropDownWidth = 120
Me.cboMy_Grenzstelle.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.cboMy_Grenzstelle.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
Me.cboMy_Grenzstelle.FormattingEnabled = True
Me.cboMy_Grenzstelle.Location = New System.Drawing.Point(163, 1)
Me.cboMy_Grenzstelle.Location = New System.Drawing.Point(181, 1)
Me.cboMy_Grenzstelle.Name = "cboMy_Grenzstelle"
Me.cboMy_Grenzstelle.Size = New System.Drawing.Size(64, 21)
Me.cboMy_Grenzstelle.TabIndex = 26
@@ -2150,7 +2161,7 @@ Partial Class frmHauptfenster
Me.Label18.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label18.AutoSize = True
Me.Label18.ForeColor = System.Drawing.Color.White
Me.Label18.Location = New System.Drawing.Point(95, 4)
Me.Label18.Location = New System.Drawing.Point(113, 4)
Me.Label18.Name = "Label18"
Me.Label18.Size = New System.Drawing.Size(62, 13)
Me.Label18.TabIndex = 25
@@ -2161,7 +2172,7 @@ Partial Class frmHauptfenster
Me.cbx_My_LKW.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.cbx_My_LKW.AutoSize = True
Me.cbx_My_LKW.ForeColor = System.Drawing.Color.White
Me.cbx_My_LKW.Location = New System.Drawing.Point(39, 3)
Me.cbx_My_LKW.Location = New System.Drawing.Point(57, 3)
Me.cbx_My_LKW.Name = "cbx_My_LKW"
Me.cbx_My_LKW.Size = New System.Drawing.Size(50, 17)
Me.cbx_My_LKW.TabIndex = 24
@@ -2175,7 +2186,7 @@ Partial Class frmHauptfenster
Me.cboMy_QS.Checked = True
Me.cboMy_QS.CheckState = System.Windows.Forms.CheckState.Indeterminate
Me.cboMy_QS.ForeColor = System.Drawing.Color.White
Me.cboMy_QS.Location = New System.Drawing.Point(425, 3)
Me.cboMy_QS.Location = New System.Drawing.Point(443, 3)
Me.cboMy_QS.Name = "cboMy_QS"
Me.cboMy_QS.Size = New System.Drawing.Size(15, 14)
Me.cboMy_QS.TabIndex = 23
@@ -2189,7 +2200,7 @@ Partial Class frmHauptfenster
Me.cboMy_VB.Checked = True
Me.cboMy_VB.CheckState = System.Windows.Forms.CheckState.Indeterminate
Me.cboMy_VB.ForeColor = System.Drawing.Color.White
Me.cboMy_VB.Location = New System.Drawing.Point(446, 3)
Me.cboMy_VB.Location = New System.Drawing.Point(464, 3)
Me.cboMy_VB.Name = "cboMy_VB"
Me.cboMy_VB.Size = New System.Drawing.Size(15, 14)
Me.cboMy_VB.TabIndex = 22
@@ -2207,7 +2218,7 @@ Partial Class frmHauptfenster
Me.cboMyAvisoAnzeige.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.cboMyAvisoAnzeige.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
Me.cboMyAvisoAnzeige.FormattingEnabled = True
Me.cboMyAvisoAnzeige.Location = New System.Drawing.Point(282, 1)
Me.cboMyAvisoAnzeige.Location = New System.Drawing.Point(300, 1)
Me.cboMyAvisoAnzeige.Name = "cboMyAvisoAnzeige"
Me.cboMyAvisoAnzeige.Size = New System.Drawing.Size(127, 21)
Me.cboMyAvisoAnzeige.TabIndex = 21
@@ -2217,7 +2228,7 @@ Partial Class frmHauptfenster
Me.Label17.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label17.AutoSize = True
Me.Label17.ForeColor = System.Drawing.Color.White
Me.Label17.Location = New System.Drawing.Point(233, 3)
Me.Label17.Location = New System.Drawing.Point(251, 3)
Me.Label17.Name = "Label17"
Me.Label17.Size = New System.Drawing.Size(48, 13)
Me.Label17.TabIndex = 20
@@ -2227,7 +2238,7 @@ Partial Class frmHauptfenster
'
Me.lblAkte.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.lblAkte.ForeColor = System.Drawing.Color.White
Me.lblAkte.Location = New System.Drawing.Point(811, 6)
Me.lblAkte.Location = New System.Drawing.Point(829, 6)
Me.lblAkte.Name = "lblAkte"
Me.lblAkte.Size = New System.Drawing.Size(207, 19)
Me.lblAkte.TabIndex = 1
@@ -2261,7 +2272,7 @@ Partial Class frmHauptfenster
Me.tabVorgeschrieben.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.tabVorgeschrieben.Location = New System.Drawing.Point(4, 34)
Me.tabVorgeschrieben.Name = "tabVorgeschrieben"
Me.tabVorgeschrieben.Padding = New System.Windows.Forms.Padding(3)
Me.tabVorgeschrieben.Padding = New System.Windows.Forms.Padding(3, 3, 3, 3)
Me.tabVorgeschrieben.Size = New System.Drawing.Size(753, 0)
Me.tabVorgeschrieben.TabIndex = 3
Me.tabVorgeschrieben.Text = "3.Vorgeschrieben"
@@ -2272,7 +2283,7 @@ Partial Class frmHauptfenster
Me.tabFreigegeben.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.tabFreigegeben.Location = New System.Drawing.Point(4, 34)
Me.tabFreigegeben.Name = "tabFreigegeben"
Me.tabFreigegeben.Padding = New System.Windows.Forms.Padding(3)
Me.tabFreigegeben.Padding = New System.Windows.Forms.Padding(3, 3, 3, 3)
Me.tabFreigegeben.Size = New System.Drawing.Size(753, 0)
Me.tabFreigegeben.TabIndex = 5
Me.tabFreigegeben.Text = "5. Freigegeben"
@@ -2283,7 +2294,7 @@ Partial Class frmHauptfenster
Me.tabNichtEingetroffen.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.tabNichtEingetroffen.Location = New System.Drawing.Point(4, 34)
Me.tabNichtEingetroffen.Name = "tabNichtEingetroffen"
Me.tabNichtEingetroffen.Padding = New System.Windows.Forms.Padding(3)
Me.tabNichtEingetroffen.Padding = New System.Windows.Forms.Padding(3, 3, 3, 3)
Me.tabNichtEingetroffen.Size = New System.Drawing.Size(753, 0)
Me.tabNichtEingetroffen.TabIndex = 6
Me.tabNichtEingetroffen.Text = "Nicht eingetroffen"
@@ -2294,7 +2305,7 @@ Partial Class frmHauptfenster
Me.tabAnkunft.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.tabAnkunft.Location = New System.Drawing.Point(4, 34)
Me.tabAnkunft.Name = "tabAnkunft"
Me.tabAnkunft.Padding = New System.Windows.Forms.Padding(3)
Me.tabAnkunft.Padding = New System.Windows.Forms.Padding(3, 3, 3, 3)
Me.tabAnkunft.Size = New System.Drawing.Size(753, 0)
Me.tabAnkunft.TabIndex = 4
Me.tabAnkunft.Text = "4. Ankunft"
@@ -2305,7 +2316,7 @@ Partial Class frmHauptfenster
Me.tabVorbereitet.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.tabVorbereitet.Location = New System.Drawing.Point(4, 34)
Me.tabVorbereitet.Name = "tabVorbereitet"
Me.tabVorbereitet.Padding = New System.Windows.Forms.Padding(3)
Me.tabVorbereitet.Padding = New System.Windows.Forms.Padding(3, 3, 3, 3)
Me.tabVorbereitet.Size = New System.Drawing.Size(753, 0)
Me.tabVorbereitet.TabIndex = 2
Me.tabVorbereitet.Text = "2.Vorbereitet QS"
@@ -2315,7 +2326,7 @@ Partial Class frmHauptfenster
Me.pnlAktOption.Dock = System.Windows.Forms.DockStyle.Top
Me.pnlAktOption.Location = New System.Drawing.Point(0, 0)
Me.pnlAktOption.Name = "pnlAktOption"
Me.pnlAktOption.Size = New System.Drawing.Size(885, 5)
Me.pnlAktOption.Size = New System.Drawing.Size(884, 5)
Me.pnlAktOption.TabIndex = 1
'
'Button8
@@ -2325,7 +2336,7 @@ Partial Class frmHauptfenster
Me.Button8.ForeColor = System.Drawing.Color.Black
Me.Button8.Image = CType(resources.GetObject("Button8.Image"), System.Drawing.Image)
Me.Button8.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
Me.Button8.Location = New System.Drawing.Point(527, 214)
Me.Button8.Location = New System.Drawing.Point(525, 214)
Me.Button8.Name = "Button8"
Me.Button8.Size = New System.Drawing.Size(89, 34)
Me.Button8.TabIndex = 3
@@ -2342,7 +2353,7 @@ Partial Class frmHauptfenster
Me.btnFertig.ForeColor = System.Drawing.Color.Black
Me.btnFertig.Image = CType(resources.GetObject("btnFertig.Image"), System.Drawing.Image)
Me.btnFertig.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnFertig.Location = New System.Drawing.Point(631, 214)
Me.btnFertig.Location = New System.Drawing.Point(629, 214)
Me.btnFertig.Name = "btnFertig"
Me.btnFertig.Size = New System.Drawing.Size(102, 34)
Me.btnFertig.TabIndex = 0
@@ -2358,7 +2369,7 @@ Partial Class frmHauptfenster
Me.tabAlle.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.tabAlle.Location = New System.Drawing.Point(4, 34)
Me.tabAlle.Name = "tabAlle"
Me.tabAlle.Padding = New System.Windows.Forms.Padding(3)
Me.tabAlle.Padding = New System.Windows.Forms.Padding(3, 3, 3, 3)
Me.tabAlle.Size = New System.Drawing.Size(753, 0)
Me.tabAlle.TabIndex = 0
Me.tabAlle.Text = "Alle"
@@ -2369,7 +2380,7 @@ Partial Class frmHauptfenster
Me.tabErfasst.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.tabErfasst.Location = New System.Drawing.Point(4, 34)
Me.tabErfasst.Name = "tabErfasst"
Me.tabErfasst.Padding = New System.Windows.Forms.Padding(3)
Me.tabErfasst.Padding = New System.Windows.Forms.Padding(3, 3, 3, 3)
Me.tabErfasst.Size = New System.Drawing.Size(753, 0)
Me.tabErfasst.TabIndex = 1
Me.tabErfasst.Text = "1. Erfasst"
@@ -2413,7 +2424,7 @@ Partial Class frmHauptfenster
Me.SplitContainer1.Panel2.Controls.Add(Me.pnlDetailsRechts)
Me.SplitContainer1.Panel2MinSize = 300
Me.SplitContainer1.Size = New System.Drawing.Size(1372, 601)
Me.SplitContainer1.SplitterDistance = 889
Me.SplitContainer1.SplitterDistance = 888
Me.SplitContainer1.SplitterWidth = 1
Me.SplitContainer1.TabIndex = 7
'
@@ -2426,7 +2437,7 @@ Partial Class frmHauptfenster
Me.pnlDetailsLinks.Location = New System.Drawing.Point(0, 0)
Me.pnlDetailsLinks.MinimumSize = New System.Drawing.Size(324, 564)
Me.pnlDetailsLinks.Name = "pnlDetailsLinks"
Me.pnlDetailsLinks.Size = New System.Drawing.Size(887, 599)
Me.pnlDetailsLinks.Size = New System.Drawing.Size(886, 599)
Me.pnlDetailsLinks.TabIndex = 0
'
'splitMain
@@ -2449,8 +2460,8 @@ Partial Class frmHauptfenster
'
Me.splitMain.Panel2.Controls.Add(Me.SplitContainer2)
Me.splitMain.Panel2.Controls.Add(Me.pnlAktOption)
Me.splitMain.Size = New System.Drawing.Size(885, 597)
Me.splitMain.SplitterDistance = 290
Me.splitMain.Size = New System.Drawing.Size(884, 597)
Me.splitMain.SplitterDistance = 288
Me.splitMain.TabIndex = 0
'
'gridAviso
@@ -2472,6 +2483,7 @@ Partial Class frmHauptfenster
DataGridViewCellStyle3.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle3.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.gridAviso.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle3
Me.gridAviso.ColumnHeadersHeight = 25
Me.gridAviso.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.DisableResizing
DataGridViewCellStyle4.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle4.BackColor = System.Drawing.SystemColors.Window
@@ -2495,13 +2507,14 @@ Partial Class frmHauptfenster
DataGridViewCellStyle5.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.gridAviso.RowHeadersDefaultCellStyle = DataGridViewCellStyle5
Me.gridAviso.RowHeadersVisible = False
Me.gridAviso.RowHeadersWidth = 62
Me.gridAviso.RowHeadersWidthSizeMode = System.Windows.Forms.DataGridViewRowHeadersWidthSizeMode.DisableResizing
DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.gridAviso.RowsDefaultCellStyle = DataGridViewCellStyle6
Me.gridAviso.RowTemplate.ReadOnly = True
Me.gridAviso.RowTemplate.Resizable = System.Windows.Forms.DataGridViewTriState.[False]
Me.gridAviso.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.gridAviso.Size = New System.Drawing.Size(885, 82)
Me.gridAviso.Size = New System.Drawing.Size(884, 80)
Me.gridAviso.TabIndex = 1
Me.gridAviso.TabStop = False
'
@@ -2533,7 +2546,7 @@ Partial Class frmHauptfenster
Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top
Me.Panel1.Location = New System.Drawing.Point(0, 0)
Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(885, 208)
Me.Panel1.Size = New System.Drawing.Size(884, 208)
Me.Panel1.TabIndex = 2
'
'cboImEx
@@ -2582,6 +2595,7 @@ Partial Class frmHauptfenster
Me.cboTeams._value = ""
Me.cboTeams.BackColor = System.Drawing.Color.WhiteSmoke
Me.cboTeams.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cboTeams.DropDownWidth = 200
Me.cboTeams.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.cboTeams.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cboTeams.FormattingEnabled = True
@@ -2628,7 +2642,7 @@ Partial Class frmHauptfenster
Me.lblEintraege.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.lblEintraege.BackColor = System.Drawing.Color.Transparent
Me.lblEintraege.ForeColor = System.Drawing.Color.White
Me.lblEintraege.Location = New System.Drawing.Point(586, 56)
Me.lblEintraege.Location = New System.Drawing.Point(585, 56)
Me.lblEintraege.Name = "lblEintraege"
Me.lblEintraege.Size = New System.Drawing.Size(169, 15)
Me.lblEintraege.TabIndex = 14
@@ -2642,13 +2656,14 @@ Partial Class frmHauptfenster
Me.cboGrenzstelle._value = ""
Me.cboGrenzstelle.BackColor = System.Drawing.Color.WhiteSmoke
Me.cboGrenzstelle.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cboGrenzstelle.DropDownWidth = 200
Me.cboGrenzstelle.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.cboGrenzstelle.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cboGrenzstelle.FormattingEnabled = True
Me.cboGrenzstelle.Items.AddRange(New Object() {"ALLE", "SUB", "SBG", "WAI", "NKD", "NEU", "AMB", "???"})
Me.cboGrenzstelle.Location = New System.Drawing.Point(379, 30)
Me.cboGrenzstelle.Name = "cboGrenzstelle"
Me.cboGrenzstelle.Size = New System.Drawing.Size(67, 24)
Me.cboGrenzstelle.Size = New System.Drawing.Size(107, 24)
Me.cboGrenzstelle.TabIndex = 13
'
'Label4
@@ -2675,7 +2690,7 @@ Partial Class frmHauptfenster
Me.pnlTime.Controls.Add(Me.Label5)
Me.pnlTime.Location = New System.Drawing.Point(446, 0)
Me.pnlTime.Name = "pnlTime"
Me.pnlTime.Size = New System.Drawing.Size(439, 57)
Me.pnlTime.Size = New System.Drawing.Size(437, 57)
Me.pnlTime.TabIndex = 12
'
'MyComboBox1
@@ -3075,6 +3090,7 @@ Partial Class frmHauptfenster
'
'cntxt
'
Me.cntxt.ImageScalingSize = New System.Drawing.Size(24, 24)
Me.cntxt.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BundesanzeigerToolStripMenuItem, Me.EUTaricToolStripMenuItem})
Me.cntxt.Name = "cntxt"
Me.cntxt.Size = New System.Drawing.Size(158, 48)
@@ -3107,14 +3123,6 @@ Partial Class frmHauptfenster
Me.UsrCntlTestsystem1.Size = New System.Drawing.Size(152, 28)
Me.UsrCntlTestsystem1.TabIndex = 8
'
'UsrCntlBenachrichtigungen1
'
Me.UsrCntlBenachrichtigungen1.Dock = System.Windows.Forms.DockStyle.Fill
Me.UsrCntlBenachrichtigungen1.Location = New System.Drawing.Point(0, 0)
Me.UsrCntlBenachrichtigungen1.Name = "UsrCntlBenachrichtigungen1"
Me.UsrCntlBenachrichtigungen1.Size = New System.Drawing.Size(164, 298)
Me.UsrCntlBenachrichtigungen1.TabIndex = 0
'
'frmHauptfenster
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)

498
Aviso/frmHauptfenster.vb
View File

@@ -156,6 +156,8 @@ Public Class frmHauptfenster
Me.AutoScaleMode = AutoScaleMode.Dpi
hideErr.Interval = 3000
VERAGSQL = New VERAG_PROG_ALLGEMEIN.SQL
EnableDoubleBuffered(gridAviso)
EnableDoubleBuffered(gridMyAviso)
'Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
@@ -190,15 +192,19 @@ Public Class frmHauptfenster
Dim OptionenDAL As New cOptionenDAL
cboGrenzstelle.Items.Clear()
cboGrenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ALLE", ""))
cboGrenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SUB", "SUB"))
cboGrenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SBG", "SBG"))
cboGrenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("WAI", "WAI"))
cboGrenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("NKD", "NKD"))
cboGrenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SFD", "SFD"))
cboGrenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("NEU", "NEU"))
cboGrenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AMB", "AMB"))
cboGrenzstelle.fillWithSQL("SELECT [grz_Grenzstelle],[grz_BezeichnungCBO] FROM tblGrenzstelle where [grz_Firma]='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' OR grz_Cluster='" & VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER & "' AND grz_Aktiv=1 order by grz_Reihenfolge, grz_Grenzstelle", False, "AVISO", True,, "ALLE")
cboGrenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("???", "???"))
'cboGrenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ALLE", ""))
'cboGrenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SUB", "SUB"))
'cboGrenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SBG", "SBG"))
'cboGrenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("WAI", "WAI"))
'cboGrenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("NKD", "NKD"))
'cboGrenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SFD", "SFD"))
'cboGrenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("NEU", "NEU"))
'cboGrenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AMBAR", "AMB"))
'cboGrenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("WO: GE TRANSPORT", "WO_GE"))
''cboGrenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("WO: KITA", "WO_KITA"))
'cboGrenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("???", "???"))
cboGrenzstelle.changeItem("")
cboImEx.Items.Clear()
@@ -210,15 +216,19 @@ Public Class frmHauptfenster
cboMy_Grenzstelle.Items.Clear()
cboMy_Grenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ALLE", ""))
cboMy_Grenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SUB", "SUB"))
cboMy_Grenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SBG", "SBG"))
cboMy_Grenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("WAI", "WAI"))
cboMy_Grenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("NKD", "NKD"))
cboMy_Grenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SFD", "SFD"))
cboMy_Grenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("NEU", "NEU"))
cboMy_Grenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AMB", "AMB"))
cboMy_Grenzstelle.fillWithSQL("SELECT [grz_Grenzstelle],[grz_BezeichnungCBO] FROM tblGrenzstelle where [grz_Firma]='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' OR grz_Cluster='" & VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER & "' AND grz_Aktiv=1 order by grz_Reihenfolge, grz_Grenzstelle", False, "AVISO", True,, "ALLE")
cboMy_Grenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("???", "???"))
'cboMy_Grenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ALLE", ""))
'cboMy_Grenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SUB", "SUB"))
'cboMy_Grenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SBG", "SBG"))
'cboMy_Grenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("WAI", "WAI"))
'cboMy_Grenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("NKD", "NKD"))
'cboMy_Grenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SFD", "SFD"))
'cboMy_Grenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("NEU", "NEU"))
'cboMy_Grenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AMBAR", "AMB"))
'cboMy_Grenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("WO: GE TRANSPORT", "WO_GE"))
''cboGrenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("WO: KITA", "WO_KITA"))
'cboMy_Grenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("???", "???"))
cboMy_Grenzstelle.changeItem("")
cboMyAvisoAnzeige.Items.Clear()
@@ -265,9 +275,13 @@ Public Class frmHauptfenster
lblErweitereSuche.Visible = False
MDMParkplatzkartenToolStripMenuItem.Visible = False
' SplitContainer3.Panel1Collapsed = True
Button10.Visible = False
SplitContainer3.Panel1Collapsed = True
If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("AVISO_Weiterleiten", "AVISO") Then
Button10.Visible = True
SplitContainer3.Panel1Collapsed = True
End If
Case Else
If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("AVISO_Weiterleiten", "AVISO") Then
@@ -342,11 +356,16 @@ Public Class frmHauptfenster
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("VERIMEX", "AVISO") Then
'MenuStrip1.Items.Clear()
MenuStrip1.Items.Remove(FunktionenToolStripMenuItem)
'MenuStrip1.Items.Remove(FunktionenToolStripMenuItem)
' MenuStrip1.Items.Remove(StatistikToolStripMenuItem)
StatistikToolStripMenuItem.DropDownItems.Remove(SDLAuswertungenToolStripMenuItem1)
StatistikToolStripMenuItem.DropDownItems.Remove(SDLAuswertungenToolStripMenuItem)
For Each i In FunktionenToolStripMenuItem.DropDownItems
If i IsNot ToolStripMenuItem3 Then
i.Visible = False
End If
Next
'While MenuStrip1.Items.Count > 1
' MenuStrip1.Items.RemoveAt(1)
@@ -478,6 +497,7 @@ Public Class frmHauptfenster
End Sub
Sub initEAviso()
If VERAGSQL Is Nothing Then VERAGSQL = New VERAG_PROG_ALLGEMEIN.SQL '??
Label22.Text = VERAGSQL.getValueTxtBySql("SELECT count(*) FROM [tblNCTS_TR] where ncts_AVISO_einarbeitet=0 AND ncts_Partnersystem='ATEZ'", "FMZOLL") '"XX"
If Label22.Text = "0" Then Label22.Text = ""
Label22.Visible = Label22.Text <> ""
@@ -564,7 +584,7 @@ Public Class frmHauptfenster
' .Columns(10).Visible = False
' End If
.Columns("Grenzstelle").Width = 40
.Columns("Grenzstelle").Width = 55
.Columns("Grenzstelle").HeaderText = "Grenz."
.Columns("Grenzstelle").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
.Columns("Grenzstelle").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
@@ -650,7 +670,7 @@ Public Class frmHauptfenster
End With
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
@@ -662,57 +682,7 @@ Public Class frmHauptfenster
If id > 0 Then
pnlDetailsRechts.Visible = True
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
'Case "VERAG"
' If pnlDetailsRechts.Controls.Count = 0 Then
' Dim usrCntl As New usrcntlAktDetails(id)
' usrCntl.Dock = DockStyle.Fill
' pnlDetailsRechts.Controls.Add(usrCntl)
' Else
' If reloadIfSameId Then
' DirectCast(pnlDetailsRechts.Controls(0), usrcntlAktDetails).reload(id)
' Else
' If DirectCast(pnlDetailsRechts.Controls(0), usrcntlAktDetails).AvisoID <> id Then
' DirectCast(pnlDetailsRechts.Controls(0), usrcntlAktDetails).reload(id)
' End If
' End If
' End If
Case "ATILLA"
If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Or VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("DAKOSY", Me.FindForm) Then
If pnlDetailsRechts.Controls.Count = 0 Then
Dim usrCntl As New usrcntlAktDetailsATILLANeu(id)
usrCntl.Dock = DockStyle.Fill
pnlDetailsRechts.Controls.Add(usrCntl)
Else
DirectCast(pnlDetailsRechts.Controls(0), usrcntlAktDetailsATILLANeu).reload(id)
End If
Else
If pnlDetailsRechts.Controls.Count = 0 Then
Dim usrCntl As New usrcntlAktDetailsATILLA(id)
usrCntl.Dock = DockStyle.Fill
pnlDetailsRechts.Controls.Add(usrCntl)
Else
DirectCast(pnlDetailsRechts.Controls(0), usrcntlAktDetailsATILLA).reload(id)
End If
End If
Case Else
If pnlDetailsRechts.Controls.Count = 0 Then
Dim usrCntl As New usrcntlAktDetails(id)
usrCntl.Dock = DockStyle.Fill
pnlDetailsRechts.Controls.Add(usrCntl)
Else
If reloadIfSameId Then
DirectCast(pnlDetailsRechts.Controls(0), usrcntlAktDetails).reload(id)
Else
If DirectCast(pnlDetailsRechts.Controls(0), usrcntlAktDetails).AvisoID <> id Then
DirectCast(pnlDetailsRechts.Controls(0), usrcntlAktDetails).reload(id)
End If
End If
End If
End Select
showPnlRight(id, reloadIfSameId)
Else
pnlDetailsRechts.Visible = False
@@ -722,6 +692,41 @@ Public Class frmHauptfenster
Me.Cursor = Cursors.Default
End Sub
Sub showPnlRight(AvisoId, reloadIfSameId)
' MsgBox(VERAG_PROG_ALLGEMEIN.cAviso.getFirmaByAvisoId(AvisoId))
Select Case VERAG_PROG_ALLGEMEIN.cAviso.getFirmaByAvisoId(AvisoId)
Case "ATILLA"
'If pnlDetailsRechts.Controls.Count > 0 Then
' MsgBox(pnlDetailsRechts.Controls(0).Name)
'End If
If pnlDetailsRechts.Controls.Count = 0 OrElse pnlDetailsRechts.Controls(0).Name <> "usrcntlAktDetailsATILLANeu" Then
pnlDetailsRechts.Controls.Clear()
Dim usrCntl As New usrcntlAktDetailsATILLANeu(AvisoId)
usrCntl.Dock = DockStyle.Fill
pnlDetailsRechts.Controls.Add(usrCntl)
Else
DirectCast(pnlDetailsRechts.Controls(0), usrcntlAktDetailsATILLANeu).reload(AvisoId)
End If
Case Else
If pnlDetailsRechts.Controls.Count = 0 OrElse pnlDetailsRechts.Controls(0).Name <> "usrcntlAktDetails" Then
pnlDetailsRechts.Controls.Clear()
Dim usrCntl As New usrcntlAktDetails(AvisoId)
usrCntl.Dock = DockStyle.Fill
pnlDetailsRechts.Controls.Add(usrCntl)
Else
If reloadIfSameId Then
DirectCast(pnlDetailsRechts.Controls(0), usrcntlAktDetails).reload(AvisoId)
Else
If DirectCast(pnlDetailsRechts.Controls(0), usrcntlAktDetails).AvisoID <> AvisoId Then
DirectCast(pnlDetailsRechts.Controls(0), usrcntlAktDetails).reload(AvisoId)
End If
End If
End If
End Select
End Sub
' Dim AVISOBinding As New cBinding("AVISO")
Public Sub Aviso_anzeigen(hSort As String, Optional showDetails As Boolean = True)
@@ -833,8 +838,15 @@ Public Class frmHauptfenster
Dim search = txtSuche.Text.Trim
If search <> "" Then
hSQL += " AND (LKW_Nr LIKE '%" & search & "%' OR letzterMitarbeiter LIKE '%" & search & "%' OR Auftraggeber LIKE '%" & search & "%' OR Frächter LIKE '%" & search & "%' OR DakosyRef LIKE '%" & search & "%' )"
'If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "ATILLA" And search.Length = 8 Then 'AbfertigungsNr Suche für ATILLA, length, damit nicht unnötig der Verweis zu tblSendungen hergestellt wird --> performance
' hSQL += " AND (LKW_Nr LIKE '%" & search & "%' OR letzterMitarbeiter LIKE '%" & search & "%' OR Auftraggeber LIKE '%" & search & "%' OR Frächter LIKE '%" & search & "%' OR DakosyRef LIKE '%" & search & "%' OR (SELECT count(*) FROM tblSendungen WHERE AbfertigungsNr LIKE '%" & search & "%' AND FilialenNr=4801 AND tblSnd_AvisoID=AvisoId)>0 ) "
'Else
' hSQL += " AND (LKW_Nr LIKE '%" & search & "%' OR letzterMitarbeiter LIKE '%" & search & "%' OR Auftraggeber LIKE '%" & search & "%' OR Frächter LIKE '%" & search & "%' OR DakosyRef LIKE '%" & search & "%' )"
'End If
End If
hSQL += " ORDER BY Ankunft ASC, AvisoEingang ASC, Datum ASC"
' MsgBox(hSQL)
'If hSort = "" Then
@@ -955,15 +967,18 @@ Public Class frmHauptfenster
gridMyAviso.DefaultCellStyle.Font = gridFont
gridMyAviso.RowTemplate.Height = rowHeight 'muss vor Bindung sein
If gridMyAviso.Columns IsNot Nothing AndAlso gridMyAviso.ColumnCount > 0 Then ' Sunst komischer Fehler DataAreaMouseLeave
'gridMyAviso.Columns.Clear() 'Macht CellMouseLeave-Fehler?????
Try
Try
If gridMyAviso.Columns IsNot Nothing AndAlso gridMyAviso.ColumnCount > 0 Then ' Sunst komischer Fehler DataAreaMouseLeave
gridMyAviso.Columns.Clear()
Catch ex As Exception
End If
gridMyAviso.DataSource = Nothing
'gridMyAviso.Columns.Clear() 'Macht CellMouseLeave-Fehler?????
Catch ex As Exception
End Try
End Try
End If
'If gridMyAviso.ColumnCount = 0 Then Exit Sub
@@ -998,7 +1013,12 @@ Public Class frmHauptfenster
Dim sqlStrFirma As String = ""
If VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER <> "" And cbxCluster.Checked Then
sqlStrFirma &= " AND ( FIRMA='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' OR CLUSTER='" & VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER & "' ) "
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERIMEX" Then
sqlStrFirma &= " AND ( FIRMA='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' OR CLUSTER='" & VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER & "' OR FIRMA='ATILLA' ) "
Else
sqlStrFirma &= " AND ( FIRMA='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' OR CLUSTER='" & VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER & "' ) "
End If
Else
sqlStrFirma &= " AND FIRMA='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' "
End If
@@ -1080,6 +1100,8 @@ Public Class frmHauptfenster
If VERAGSQL Is Nothing Then VERAGSQL = New VERAG_PROG_ALLGEMEIN.SQL '? vlt hilfts...
Dim errOcc = False
gridMyAviso.DataSource = VERAGSQL.loadDgvBySql_Param(sqlStr, "AVISO", 1500, list, False, errOcc)
If errOcc Then
pic.Visible = True
@@ -1300,7 +1322,7 @@ Public Class frmHauptfenster
End With
Catch ex As Exception
MsgBox(ex.Message & vbNewLine & ex.StackTrace)
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
' Grid_aktiv = True
@@ -1341,7 +1363,7 @@ Public Class frmHauptfenster
End If
Catch ex As Exception
MsgBox(ex.Message & vbNewLine & ex.StackTrace)
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
End Sub
@@ -1407,8 +1429,7 @@ Public Class frmHauptfenster
Catch ex As Exception
MsgBox("gridMyAviso_CellFormatting" & vbNewLine & ex.Message & vbNewLine & ex.StackTrace)
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
End Sub
@@ -1631,7 +1652,7 @@ Public Class frmHauptfenster
DirectCast(pnlDetailsRechts.Controls(0), usrcntlAktDetails).openSnd(sndidTmp)
End Select
Catch ex As Exception
MsgBox(ex.Message)
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
txtSuche.Text = ""
End If
@@ -1675,7 +1696,7 @@ Public Class frmHauptfenster
Next
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name, "LOG")
End Try
End Sub
@@ -1753,6 +1774,7 @@ Public Class frmHauptfenster
If DateDiff(DateInterval.Second, hMerkZeit, Now) > 60 Then
avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID) 'hMerkZeit wird in aviso_anzeigen aktualisiert
UsrCntlBenachrichtigungen1.initDgvAvisoBenachrichtigungen(Grid_aktiv, gridFont)
End If
Catch ex As Exception
@@ -1878,7 +1900,7 @@ Public Class frmHauptfenster
btnRefresh.PerformClick() 'Aviso_anzeigen("")
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name, "LOG")
End Try
Me.Cursor = Cursors.Default
End Sub
@@ -2062,48 +2084,58 @@ Public Class frmHauptfenster
End If
VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = tmpid
Details_aktiv = True
If pnlDetailsRechts.Controls.Count > 0 Then
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "ATILLA"
If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Or VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("DAKOSY", Me.FindForm) Then
Dim usrcntl As usrcntlAktDetailsATILLANeu = DirectCast(pnlDetailsRechts.Controls(0), usrcntlAktDetailsATILLANeu)
If aktWithoutCheckTime Or usrcntl.AvisoID <> tmpid Then
Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
Else
If DateDiff(DateInterval.Second, usrcntl.aktiv, Now) > 60 Then 'Wenn die Details länger als 60 Sek inaktiv sind (Prüfung durch click und keydown)
Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
End If
End If
Else
Dim usrcntl As usrcntlAktDetailsATILLA = DirectCast(pnlDetailsRechts.Controls(0), usrcntlAktDetailsATILLA)
If aktWithoutCheckTime Or usrcntl.AvisoID <> tmpid Then
Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
Else
If DateDiff(DateInterval.Second, usrcntl.aktiv, Now) > 60 Then 'Wenn die Details länger als 60 Sek inaktiv sind (Prüfung durch click und keydown)
Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
End If
End If
End If
Case Else
Dim usrcntl As usrcntlAktDetails = DirectCast(pnlDetailsRechts.Controls(0), usrcntlAktDetails)
If aktWithoutCheckTime Or usrcntl.AvisoID <> tmpid Then
Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
Else
usrcntl.changeCurrentSndId()
If DateDiff(DateInterval.Second, usrcntl.aktiv, Now) > 60 Then 'Wenn die Details länger als 60 Sek inaktiv sind (Prüfung durch click und keydown)
Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
End If
End If
End Select
End If
Dim usrcntlAvisoID = -1
Dim usrcntlAktiv As DateTime
If pnlDetailsRechts.Controls(0).Name = "usrcntlAktDetailsATILLANeu" Then
usrcntlAvisoID = DirectCast(pnlDetailsRechts.Controls(0), usrcntlAktDetailsATILLANeu).AvisoID
usrcntlAktiv = DirectCast(pnlDetailsRechts.Controls(0), usrcntlAktDetailsATILLANeu).aktiv
Else
usrcntlAvisoID = DirectCast(pnlDetailsRechts.Controls(0), usrcntlAktDetails).AvisoID
usrcntlAktiv = DirectCast(pnlDetailsRechts.Controls(0), usrcntlAktDetails).aktiv
End If
If aktWithoutCheckTime Or usrcntlAvisoID <> tmpid Then
Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
Else
If DateDiff(DateInterval.Second, usrcntlAktiv, Now) > 60 Then 'Wenn die Details länger als 60 Sek inaktiv sind (Prüfung durch click und keydown)
Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
End If
End If
'Select Case VERAG_PROG_ALLGEMEIN.cAviso.getFirmaByAvisoId(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
' Case "ATILLA"
' If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Or VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("DAKOSY", Me.FindForm) Then
' Dim usrcntl As usrcntlAktDetailsATILLANeu = DirectCast(pnlDetailsRechts.Controls(0), usrcntlAktDetailsATILLANeu)
' If aktWithoutCheckTime Or usrcntl.AvisoID <> tmpid Then
' Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
' Else
' If DateDiff(DateInterval.Second, usrcntl.aktiv, Now) > 60 Then 'Wenn die Details länger als 60 Sek inaktiv sind (Prüfung durch click und keydown)
' Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
' End If
' End If
' End If
' Case Else
' Dim usrcntl As usrcntlAktDetails = DirectCast(pnlDetailsRechts.Controls(0), usrcntlAktDetails)
' If aktWithoutCheckTime Or usrcntl.AvisoID <> tmpid Then
' Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
' Else
' usrcntl.changeCurrentSndId()
' If DateDiff(DateInterval.Second, usrcntl.aktiv, Now) > 60 Then 'Wenn die Details länger als 60 Sek inaktiv sind (Prüfung durch click und keydown)
' Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
' End If
' End If
'End Select
End If
Catch ex As Exception
' pic.Visible = True
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name, "LOG")
End Try
End Sub
@@ -2134,7 +2166,7 @@ Public Class frmHauptfenster
Catch ex As Exception
MsgBox(ex.Message & vbNewLine & ex.StackTrace)
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
End Sub
@@ -3167,6 +3199,13 @@ Public Class frmHauptfenster
VERAG_PROG_ALLGEMEIN.cAllgemein.LOAD_DATA()
VERAG_PROG_ALLGEMEIN.cAllgemein.LOAD_BER()
closeOK = True
For Each ft As Form In Application.OpenForms
If ft.GetType.ToString = "SDL.frmSpeditionsbuchSuche" Then ft.Close()
If ft.GetType.ToString = "SDL.frmRechnungenSuche" Then ft.Close()
Next
Dim f As New frmHauptfenster
f.Show()
f.Visible = True
@@ -3519,6 +3558,7 @@ Public Class frmHauptfenster
End If
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
End Sub
@@ -3713,7 +3753,7 @@ Public Class AvisoStatusFunctions
End If
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name, "LOG",,,,, "ERR_HFST_SETDATE")
End Try
Return Now
End Function
@@ -4067,7 +4107,7 @@ Public Class AvisoStatusFunctions
Try
System.Diagnostics.Process.Start(hMail)
Catch ex As Exception
MsgBox("Beim Mail-Versenden ist ein Fehler aufgetreten: " & vbCrLf & vbCrLf & ex.Message)
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name, VERAG_PROG_ALLGEMEIN.ERROR_OP.SHOW, "Beim Mail-Versenden ist ein Fehler aufgetreten")
End Try
End If
' ----------------------------------
@@ -4542,7 +4582,7 @@ Public Class AvisoStatusFunctions
Return True
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
Return False
End Try
End Function
@@ -4643,7 +4683,7 @@ Public Class AvisoStatusFunctions
belegVorhanden = False
End If
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 If
End If
@@ -4677,6 +4717,11 @@ Public Class AvisoStatusFunctions
Dim tmpid = -1
'Status ist Ankunft - jetzt auf Freigabe setzen und Dauer berechnen
If allowEveryState Or Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Ankunft Then
If Not setFreigabeMsg(Aviso) Then
Return False
End If
Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Freigegeben
Aviso.Freigabe = Now
Aviso.Dauer = CInt(DateDiff(DateInterval.Minute, Aviso.Ankunft, Now))
@@ -4705,53 +4750,53 @@ Public Class AvisoStatusFunctions
AvisoDAL.addAenderung(tmpid, "LKW ist fertig - nicht gesetzt", "LKW ist fertig - nicht gesetzt, deshalb automatisch gesetzt mit FREIGABE")
End If
End If
'Wenn DE oder AT Zoll eingereicht -> automatisch fertigstellen XXXXXXXXXX
' MsgBox(AvisoDAL.VermerkExistsInAvisoByID(Aviso.AvisoID, 17))
If AvisoDAL.VermerkExistsInAvisoByID(Aviso.AvisoID, 17) Then
' MsgBox(AvisoDAL.VermerkExistsInAvisoByID(Aviso.AvisoID, 18))
If Not AvisoDAL.VermerkExistsInAvisoByID(Aviso.AvisoID, 18) Then
Dim myVermerk As New cVermerk
myVermerk.AvisoID = Aviso.AvisoID : myVermerk.Datum = Now
myVermerk.Mitarbeiter = VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter : myVermerk.MitarbeiterId = VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.MitarbeiterID
myVermerk.Hinweis_Vermerk = "DE Zoll fertig" : myVermerk.VermerkCodeId = 18
VermerkeDAL.SpeichernVermerk(myVermerk)
End If
End If
If AvisoDAL.VermerkExistsInAvisoByID(Aviso.AvisoID, 19) Then
If Not AvisoDAL.VermerkExistsInAvisoByID(Aviso.AvisoID, 20) Then
Dim myVermerk As New cVermerk
myVermerk.AvisoID = Aviso.AvisoID : myVermerk.Datum = Now
myVermerk.Mitarbeiter = VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter : myVermerk.MitarbeiterId = VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.MitarbeiterID
myVermerk.Hinweis_Vermerk = "AT Zoll fertig" : myVermerk.VermerkCodeId = 20
VermerkeDAL.SpeichernVermerk(myVermerk)
End If
End If
'nach dem erfolgreichem Speichern wird jetzt noch ein automatisches Mail für den Frächter und Auftraggeber erstellt
SendFreigabeEmail(Aviso)
showFreigabeMsg(Aviso)
If True Then
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("AUTONACHERFASSUNG", CONTROL.FindForm) Then
Dim doAutoNacherf = True ' (vbYes = MsgBox("Autonacherfassung durchführen?", vbYesNoCancel))
If doAutoNacherf Then
AUTONACHERFASSUNG(CONTROL, AvisoID)
'Wenn DE oder AT Zoll eingereicht -> automatisch fertigstellen XXXXXXXXXX
' MsgBox(AvisoDAL.VermerkExistsInAvisoByID(Aviso.AvisoID, 17))
If AvisoDAL.VermerkExistsInAvisoByID(Aviso.AvisoID, 17) Then
' MsgBox(AvisoDAL.VermerkExistsInAvisoByID(Aviso.AvisoID, 18))
If Not AvisoDAL.VermerkExistsInAvisoByID(Aviso.AvisoID, 18) Then
Dim myVermerk As New cVermerk
myVermerk.AvisoID = Aviso.AvisoID : myVermerk.Datum = Now
myVermerk.Mitarbeiter = VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter : myVermerk.MitarbeiterId = VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.MitarbeiterID
myVermerk.Hinweis_Vermerk = "DE Zoll fertig" : myVermerk.VermerkCodeId = 18
VermerkeDAL.SpeichernVermerk(myVermerk)
End If
End If
If AvisoDAL.VermerkExistsInAvisoByID(Aviso.AvisoID, 19) Then
If Not AvisoDAL.VermerkExistsInAvisoByID(Aviso.AvisoID, 20) Then
Dim myVermerk As New cVermerk
myVermerk.AvisoID = Aviso.AvisoID : myVermerk.Datum = Now
myVermerk.Mitarbeiter = VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter : myVermerk.MitarbeiterId = VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.MitarbeiterID
myVermerk.Hinweis_Vermerk = "AT Zoll fertig" : myVermerk.VermerkCodeId = 20
VermerkeDAL.SpeichernVermerk(myVermerk)
End If
End If
'nach dem erfolgreichem Speichern wird jetzt noch ein automatisches Mail für den Frächter und Auftraggeber erstellt
SendFreigabeEmail(Aviso)
If True Then
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("AUTONACHERFASSUNG", CONTROL.FindForm) Then
Dim doAutoNacherf = True ' (vbYes = MsgBox("Autonacherfassung durchführen?", vbYesNoCancel))
If doAutoNacherf Then
AUTONACHERFASSUNG(CONTROL, AvisoID)
End If
End If
End If
End If
Return (tmpid > 0)
End Function
Sub showFreigabeMsg(AVISO As VERAG_PROG_ALLGEMEIN.cAviso)
Function setFreigabeMsg(AVISO As VERAG_PROG_ALLGEMEIN.cAviso) As Boolean
Dim text = ""
Dim text_Freigabe = ""
@@ -4772,15 +4817,45 @@ Public Class AvisoStatusFunctions
text_Freigabe &= AVISO.Freigabe_Info
End If
If text <> "" Or text_Freigabe <> "" Then
If True Then ' If text <> "" Or text_Freigabe <> "" Then
Dim f As New frmDokumenteSchicken(AVISO)
Dim f As New frmFreigabeSetzen(AVISO)
f.rtbDokumente.Text = text
f.rtbSonstigeInfo.Text = text_Freigabe
f.cbxInfoblattFurDigitalabfertigungDrucken.Checked = (SQL.DLookup("COUNT(*)", "Vermerke", " AvisoID=" & AVISO.AvisoID & " and VermerkeCode=82", "AVISO", 0) > 0)
f.ShowDialog()
If AVISO.Grenzstelle = "SUB" Then ' Nur in Suben!
f.cbxInfoblattFurDigitalabfertigungDrucken.Checked = (SQL.DLookup("COUNT(*)", "Vermerke", " AvisoID=" & AVISO.AvisoID & " and VermerkeCode=82", "AVISO", 0) > 0)
End If
If f.ShowDialog() = DialogResult.Cancel Then
Return False
End If
End If
Return True
End Function
Shared Sub printFinish(myAviso As VERAG_PROG_ALLGEMEIN.cAviso)
Try
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("PRINT_Freigabe_FinishDigital") Then
If myAviso.Grenzstelle = "SUB" Then ' Nur in Suben!
If (SQL.DLookup("COUNT(*)", "Vermerke", " AvisoID=" & myAviso.AvisoID & " and VermerkeCode=82", "AVISO", 0) > 0) Then
Dim path = SDL.FormularManagerNEU.Finish_AVISO(myAviso)
Dim oPS As New System.Drawing.Printing.PrinterSettings
If path <> "" Then
VERAG_PROG_ALLGEMEIN.cFormularManager.PrintViaGS(path, oPS.PrinterName)
MsgBox("Finish-Zettel wird gedruckt!")
End If
End If
End If
End If
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
End Sub
Public Sub AUTONACHERFASSUNG(CONTROL As Control, AvisoID As Integer)
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("VERIMEX", "AVISO") Then
MsgBox("Keine Berechtigung!")
@@ -4834,7 +4909,7 @@ Public Class AvisoStatusFunctions
Next
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
CONTROL.FindForm.Cursor = Cursors.Default
End Sub
@@ -4937,7 +5012,7 @@ Public Class AvisoStatusFunctions
End If
Try
If frmHauptfenster.pnlDetailsRechts.Controls.Count > 0 Then
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Select Case VERAG_PROG_ALLGEMEIN.cAviso.getFirmaByAvisoId(AvisoID)
'Case "VERAG"
' If DirectCast(frmHauptfenster.pnlDetailsRechts.Controls(0), usrcntlAktDetails).AvisoID = AvisoID Then
' DirectCast(frmHauptfenster.pnlDetailsRechts.Controls(0), usrcntlAktDetails).showInfo("Akt übernommen", 2)
@@ -4947,10 +5022,6 @@ Public Class AvisoStatusFunctions
If DirectCast(frmHauptfenster.pnlDetailsRechts.Controls(0), usrcntlAktDetailsATILLANeu).AvisoID = AvisoID Then
DirectCast(frmHauptfenster.pnlDetailsRechts.Controls(0), usrcntlAktDetailsATILLANeu).showInfo("Akt übernommen", 2)
End If
Else
If DirectCast(frmHauptfenster.pnlDetailsRechts.Controls(0), usrcntlAktDetailsATILLA).AvisoID = AvisoID Then
DirectCast(frmHauptfenster.pnlDetailsRechts.Controls(0), usrcntlAktDetailsATILLA).showInfo("Akt übernommen", 2)
End If
End If
Case Else
If DirectCast(frmHauptfenster.pnlDetailsRechts.Controls(0), usrcntlAktDetails).AvisoID = AvisoID Then
@@ -5015,7 +5086,7 @@ Public Class AvisoStatusFunctions
Return True
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
Return False
End Try
@@ -5165,6 +5236,16 @@ Public Class AvisoStatusFunctions
SENDUNG_TMP.saveSachbearbeiter = True
If SENDUNG_TMP.tblSnd_Vorgeschrieben IsNot Nothing Then
MsgBox("Sendung wurde bereits auf 'Vorgeschrieben' gesetzt - Status nicht mehr möglich!")
Return False
End If
If SENDUNG_TMP.tblSnd_Vorbereitet IsNot Nothing Then
MsgBox("Sendung wurde bereits auf 'QS Vorbereitet' gesetzt - Status nicht mehr möglich!")
Return False
End If
If SENDUNG_TMP.tblSnd_AbklaerungTR Is Nothing Then
SENDUNG_TMP.tblSnd_AbklaerungTR_MA = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID
SENDUNG_TMP.tblSnd_FilialeAbklaerung = VERAG_PROG_ALLGEMEIN.cAllgemein.getSTAMMFILIALE
@@ -5239,18 +5320,20 @@ Public Class AvisoStatusFunctions
Shared Function getGrenzstelleZollstelle(hGrenzstelle As String, AVISO As VERAG_PROG_ALLGEMEIN.cAviso) As String
If hGrenzstelle <> "" Then
If hGrenzstelle.Replace("???", "") <> "" Then
Dim Standorte As New cStandorteDAL
Dim Standort As New cStandort
Standort = Standorte.LesenStandort(0, hGrenzstelle, "")
If Not IsNothing(Standort) Then
Return Standort.Standort_Text.Trim
End If
Else
If AVISO.Zollstelle IsNot Nothing AndAlso AVISO.Zollstelle.ToString <> "" Then
hGrenzstelle = VERAGSQL.getValueTxtBySql("SELECT [basncd_name] FROM basncd WHERE basncd_dstnr='" & AVISO.Zollstelle & "' ", "ATLAS")
End If
End If
If AVISO.Zollstelle IsNot Nothing AndAlso AVISO.Zollstelle.ToString <> "" Then
hGrenzstelle = VERAGSQL.getValueTxtBySql("SELECT [basncd_name] FROM basncd WHERE basncd_dstnr='" & AVISO.Zollstelle & "' ", "ATLAS")
End If
Return hGrenzstelle
Return hGrenzstelle.Replace("???", "")
End Function
@@ -5291,6 +5374,11 @@ Public Class AvisoStatusFunctions
hText = hText.Replace("%Firma_simple%", "ATILLA")
hText = hText.Replace("%Firma%", "ATILLA Spedition GmbH")
Case "AMBAR"
hText = hText.Replace("%Firma_simple%", "AMBAR")
hText = hText.Replace("%FirmaTR%", "<b>Ambar Logistic Bad Reichenhall</b>")
hText = hText.Replace("%Firma%", "<b>Ambar Logistic in Bad Reichenhall</b>")
Case Else
hText = hText.Replace("%Platzhalter2%", "")
@@ -5340,13 +5428,28 @@ Public Class AvisoStatusFunctions
Try
Dim PathTmp = (New VERAG_PROG_ALLGEMEIN.cDATENSERVER(DsId)).GET_TOP1_PATH(False)
If PathTmp <> "" Then anhaenge.Add(PathTmp) : found = True
Catch ex As Exception : MsgBox(ex.Message & ex.StackTrace) : End Try
Catch ex As Exception : VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) : End Try
If Not found Then
AvisoStatusFunctions.insertSendungsVermerk(s.tblSnd_SendungID, AVISO.AvisoID, "ERR: VBD nicht gefunden: " & s.FilialenNr & "/" & s.AbfertigungsNr, 47)
'AvisoStatusFunctions.insertVermerkAllg(AVISO.AvisoID, "ERR: VBD nicht gefunden: " & s.FilialenNr & "/" & s.AbfertigungsNr, 46, , "(AUTO)")
MsgBox("ACHTUNG: Das Versandbegleitdokument konnte nicht automatisiert ermittelt werden." & vbNewLine & "Bitte dem Kunden das VBD per E-Mail zustellen!" & vbNewLine & vbNewLine & "Sendung: " & s.FilialenNr & "/" & s.AbfertigungsNr)
End If
End If
Case 7 'Ausfuhr
getDataFronDY_AES(s.tblSnd_SendungID, AtcMrn, DsId, s.FilialenNr, s.AbfertigungsNr, DsId2)
MsgBox(DsId)
If KUNDE_ERW.EmailFreigabe_ABDPDF And IsNumeric(DsId) Then 'VBD anhängen
Try
Dim PathTmp = (New VERAG_PROG_ALLGEMEIN.cDATENSERVER(DsId)).GET_TOP1_PATH(False)
If PathTmp <> "" Then anhaenge.Add(PathTmp) : found = True
Catch ex As Exception : VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) : End Try
If Not found Then
AvisoStatusFunctions.insertSendungsVermerk(s.tblSnd_SendungID, AVISO.AvisoID, "ERR: ABD nicht gefunden: " & s.FilialenNr & "/" & s.AbfertigungsNr, 47)
'AvisoStatusFunctions.insertVermerkAllg(AVISO.AvisoID, "ERR: VBD nicht gefunden: " & s.FilialenNr & "/" & s.AbfertigungsNr, 46, , "(AUTO)")
MsgBox("ACHTUNG: Das Ausfuhrbegleitdokument konnte nicht automatisiert ermittelt werden." & vbNewLine & "Bitte dem Kunden das ABD per E-Mail zustellen!" & vbNewLine & vbNewLine & "Sendung: " & s.FilialenNr & "/" & s.AbfertigungsNr)
End If
End If
Case Else
getDataFronDY_EZA(s.tblSnd_SendungID, AtcMrn, DsId, s.FilialenNr, s.AbfertigungsNr, DsId2)
If s.tblSnd_Abfertigungsart_ID = 23 Then
@@ -5369,7 +5472,7 @@ Public Class AvisoStatusFunctions
Dim PathTmp2 = (New VERAG_PROG_ALLGEMEIN.cDATENSERVER(DsId2)).GET_TOP1_PATH(False)
If PathTmp2 <> "" Then anhaenge.Add(PathTmp2) : found = True
End If
Catch ex As Exception : MsgBox(ex.Message & ex.StackTrace) : End Try
Catch ex As Exception : VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) : End Try
If Not found Then
AvisoStatusFunctions.insertSendungsVermerk(s.tblSnd_SendungID, AVISO.AvisoID, "ERR: Steuerbescheid nicht gefunden: " & s.FilialenNr & "/" & s.AbfertigungsNr, 47)
' AvisoStatusFunctions.insertVermerkAllg(AVISO.AvisoID, "ERR: Steuerbescheid nicht gefunden: " & s.FilialenNr & "/" & s.AbfertigungsNr, 46, , "(AUTO)")
@@ -5401,8 +5504,8 @@ Public Class AvisoStatusFunctions
Platzhalter_ersetzen = hText
End Function
Private Shared VERAGSQL As New VERAG_PROG_ALLGEMEIN.SQL
Private Shared VERAGSQL As New VERAG_PROG_ALLGEMEIN.SQL
Shared Function getEZOLL_Steuerbescheid(KUNDE_ERW As VERAG_PROG_ALLGEMEIN.cKundenErweitert, AVISO As VERAG_PROG_ALLGEMEIN.cAviso, SENDUNG As VERAG_PROG_ALLGEMEIN.cSendungen) As List(Of String)
Dim LIST As New List(Of String)
@@ -5455,7 +5558,7 @@ Public Class AvisoStatusFunctions
End Select
End If
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
Return False
@@ -5524,6 +5627,27 @@ Public Class AvisoStatusFunctions
Return False
End Function
Shared Function getDataFronDY_AES(SendungsId, ByRef AtcMrn, ByRef dsId, FilialenNr, AbfertigungsNr, ByRef dsId2) As Boolean
If SendungsId Is Nothing Then Return False
If Not IsNumeric(AbfertigungsNr) Then Return False
If AbfertigungsNr <= 0 Then Return False
Dim dt = VERAGSQL.loadDgvBySql("SELECT isnull(dy_ABD_dsId,'') as DsId, isnull(aes_MRN,'') as ATC FROM tblDakosy_Zollanmeldungen inner join tblDakosy_AES on dy_id=aes_dyaAnmID where dy_SendungsId='" & SendungsId & "' and dy_status <= 70 order by dy_status desc, dy_Erstellung desc", "FMZOLL")
If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
AtcMrn = dt.Rows(0)("ATC")
dsId = dt.Rows(0)("DsId")
Return True
Else
Try 'AT-Zollsystem
'Dim sql As New VERAG_PROG_ALLGEMEIN.SQL
'AtcMrn = sql.getValueTxtBySql("SELECT CRN FROM zsAnmRefs WHERE (VorgangID = 'EF') AND (LRN LIKE '" & FilialenNr & "/" & AbfertigungsNr & "%' OR LRN LIKE '" & FilialenNr & "-" & AbfertigungsNr & "%') ORDER BY GeaendertAm DESC", "EZOLL")
'dsId = sql.getValueTxtBySql("SELECT TOP 1 DokumentId_Steuerbeleg FROM [Speditionsbuch] where DokumentId_Steuerbeleg is not null AND FilialenNr='" & FilialenNr & "' AND AbfertigungsNr='" & AbfertigungsNr & "' ", "FMZOLL")
'dsId2 = sql.getValueTxtBySql("SELECT TOP 1 DokumentId_Mitteilung FROM [Speditionsbuch] where DokumentId_Mitteilung is not null AND FilialenNr='" & FilialenNr & "' AND AbfertigungsNr='" & AbfertigungsNr & "' ", "FMZOLL")
'....... FEHLT NOCH !!!!
Catch : End Try
End If
Return False
End Function
Function SpeditionsbuchEintrag(AvisoID As Integer, SendungID As Integer) As posNr
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("VERIMEX", "AVISO") Then
@@ -5589,7 +5713,7 @@ Public Class AvisoStatusFunctions
Return posNr
Catch ex As Exception
MsgBox(ex.Message & vbNewLine & ex.StackTrace)
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
Return Nothing
End Try
End Function

414
Aviso/frmLaufzettel.Designer.vb generated Normal file
View File

@@ -0,0 +1,414 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmLaufzettel
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.components = New System.ComponentModel.Container()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmLaufzettel))
Me.lbl = New System.Windows.Forms.Label()
Me.cbxDokumenteDrucken = New System.Windows.Forms.CheckBox()
Me.cbxDigitalLZ = New System.Windows.Forms.CheckBox()
Me.CheckBox2 = New System.Windows.Forms.CheckBox()
Me.CheckBox3 = New System.Windows.Forms.CheckBox()
Me.CheckBox4 = New System.Windows.Forms.CheckBox()
Me.dgvLaufzettelDruck = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.clmnLzPrint_ID = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.clmnLzPrint_Name = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.PrintDocId = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.printTyp = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.dgvDigitalMailanfügen = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.clmnLzMail_ID = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.clmnLzMail_Name = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.DocId = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.btnLaufzettelDrucken = New System.Windows.Forms.Button()
Me.MyPanel1 = New VERAG_PROG_ALLGEMEIN.MyPanel(Me.components)
Me.cbxVPSplit = New System.Windows.Forms.CheckBox()
Me.pnlZumZoll = New System.Windows.Forms.Panel()
Me.Button3 = New System.Windows.Forms.Button()
Me.btnDIGITAL = New System.Windows.Forms.Button()
Me.Button1 = New System.Windows.Forms.Button()
Me.pnl = New System.Windows.Forms.Panel()
Me.btn = New System.Windows.Forms.Button()
Me.Button2 = New System.Windows.Forms.Button()
Me.cboPrinter = New VERAG_PROG_ALLGEMEIN.MyComboBox()
CType(Me.dgvLaufzettelDruck, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.dgvDigitalMailanfügen, System.ComponentModel.ISupportInitialize).BeginInit()
Me.MyPanel1.SuspendLayout()
Me.pnlZumZoll.SuspendLayout()
Me.pnl.SuspendLayout()
Me.SuspendLayout()
'
'lbl
'
Me.lbl.AutoSize = True
Me.lbl.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lbl.ForeColor = System.Drawing.Color.White
Me.lbl.Location = New System.Drawing.Point(11, 8)
Me.lbl.Name = "lbl"
Me.lbl.Size = New System.Drawing.Size(88, 24)
Me.lbl.TabIndex = 0
Me.lbl.Text = "Laufzettel"
'
'cbxDokumenteDrucken
'
Me.cbxDokumenteDrucken.AutoSize = True
Me.cbxDokumenteDrucken.Checked = True
Me.cbxDokumenteDrucken.CheckState = System.Windows.Forms.CheckState.Checked
Me.cbxDokumenteDrucken.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold)
Me.cbxDokumenteDrucken.Location = New System.Drawing.Point(17, 25)
Me.cbxDokumenteDrucken.Name = "cbxDokumenteDrucken"
Me.cbxDokumenteDrucken.Size = New System.Drawing.Size(189, 24)
Me.cbxDokumenteDrucken.TabIndex = 1
Me.cbxDokumenteDrucken.Text = "Dokumente drucken"
Me.cbxDokumenteDrucken.UseVisualStyleBackColor = True
'
'cbxDigitalLZ
'
Me.cbxDigitalLZ.AutoSize = True
Me.cbxDigitalLZ.Enabled = False
Me.cbxDigitalLZ.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold)
Me.cbxDigitalLZ.Location = New System.Drawing.Point(284, 25)
Me.cbxDigitalLZ.Name = "cbxDigitalLZ"
Me.cbxDigitalLZ.Size = New System.Drawing.Size(239, 24)
Me.cbxDigitalLZ.TabIndex = 2
Me.cbxDigitalLZ.Text = "DIGITAL: An Mail anfügen"
Me.cbxDigitalLZ.UseVisualStyleBackColor = True
'
'CheckBox2
'
Me.CheckBox2.AutoSize = True
Me.CheckBox2.Checked = True
Me.CheckBox2.CheckState = System.Windows.Forms.CheckState.Checked
Me.CheckBox2.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold)
Me.CheckBox2.Location = New System.Drawing.Point(18, 14)
Me.CheckBox2.Name = "CheckBox2"
Me.CheckBox2.Size = New System.Drawing.Size(230, 24)
Me.CheckBox2.TabIndex = 3
Me.CheckBox2.Text = """zum Zoll"" Zettel drucken"
Me.CheckBox2.UseVisualStyleBackColor = True
'
'CheckBox3
'
Me.CheckBox3.AutoSize = True
Me.CheckBox3.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!)
Me.CheckBox3.Location = New System.Drawing.Point(284, 14)
Me.CheckBox3.Name = "CheckBox3"
Me.CheckBox3.Size = New System.Drawing.Size(77, 24)
Me.CheckBox3.TabIndex = 4
Me.CheckBox3.Text = "AT Zoll"
Me.CheckBox3.UseVisualStyleBackColor = True
'
'CheckBox4
'
Me.CheckBox4.AutoSize = True
Me.CheckBox4.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!)
Me.CheckBox4.Location = New System.Drawing.Point(376, 14)
Me.CheckBox4.Name = "CheckBox4"
Me.CheckBox4.Size = New System.Drawing.Size(80, 24)
Me.CheckBox4.TabIndex = 5
Me.CheckBox4.Text = "DE Zoll"
Me.CheckBox4.UseVisualStyleBackColor = True
'
'dgvLaufzettelDruck
'
Me.dgvLaufzettelDruck.AKTUALISIERUNGS_INTERVALL = -1
Me.dgvLaufzettelDruck.AllowUserToAddRows = False
Me.dgvLaufzettelDruck.AllowUserToResizeColumns = False
Me.dgvLaufzettelDruck.AllowUserToResizeRows = False
Me.dgvLaufzettelDruck.BackgroundColor = System.Drawing.Color.White
Me.dgvLaufzettelDruck.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvLaufzettelDruck.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.clmnLzPrint_ID, Me.clmnLzPrint_Name, Me.PrintDocId, Me.printTyp})
Me.dgvLaufzettelDruck.Location = New System.Drawing.Point(18, 53)
Me.dgvLaufzettelDruck.Name = "dgvLaufzettelDruck"
Me.dgvLaufzettelDruck.ReadOnly = True
Me.dgvLaufzettelDruck.RowHeadersVisible = False
Me.dgvLaufzettelDruck.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.dgvLaufzettelDruck.Size = New System.Drawing.Size(260, 266)
Me.dgvLaufzettelDruck.TabIndex = 6
'
'clmnLzPrint_ID
'
Me.clmnLzPrint_ID.HeaderText = "Column1"
Me.clmnLzPrint_ID.Name = "clmnLzPrint_ID"
Me.clmnLzPrint_ID.ReadOnly = True
Me.clmnLzPrint_ID.Visible = False
'
'clmnLzPrint_Name
'
Me.clmnLzPrint_Name.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
Me.clmnLzPrint_Name.HeaderText = "Datei"
Me.clmnLzPrint_Name.Name = "clmnLzPrint_Name"
Me.clmnLzPrint_Name.ReadOnly = True
'
'PrintDocId
'
Me.PrintDocId.HeaderText = "printDocId"
Me.PrintDocId.Name = "PrintDocId"
Me.PrintDocId.ReadOnly = True
Me.PrintDocId.Visible = False
'
'printTyp
'
Me.printTyp.HeaderText = "printTyp"
Me.printTyp.Name = "printTyp"
Me.printTyp.ReadOnly = True
Me.printTyp.Visible = False
'
'dgvDigitalMailanfügen
'
Me.dgvDigitalMailanfügen.AKTUALISIERUNGS_INTERVALL = -1
Me.dgvDigitalMailanfügen.AllowUserToAddRows = False
Me.dgvDigitalMailanfügen.AllowUserToResizeColumns = False
Me.dgvDigitalMailanfügen.AllowUserToResizeRows = False
Me.dgvDigitalMailanfügen.BackgroundColor = System.Drawing.Color.White
Me.dgvDigitalMailanfügen.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvDigitalMailanfügen.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.clmnLzMail_ID, Me.clmnLzMail_Name, Me.DocId})
Me.dgvDigitalMailanfügen.Enabled = False
Me.dgvDigitalMailanfügen.Location = New System.Drawing.Point(284, 53)
Me.dgvDigitalMailanfügen.Name = "dgvDigitalMailanfügen"
Me.dgvDigitalMailanfügen.ReadOnly = True
Me.dgvDigitalMailanfügen.RowHeadersVisible = False
Me.dgvDigitalMailanfügen.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.dgvDigitalMailanfügen.Size = New System.Drawing.Size(260, 365)
Me.dgvDigitalMailanfügen.TabIndex = 7
'
'clmnLzMail_ID
'
Me.clmnLzMail_ID.HeaderText = "Column1"
Me.clmnLzMail_ID.Name = "clmnLzMail_ID"
Me.clmnLzMail_ID.ReadOnly = True
Me.clmnLzMail_ID.Visible = False
'
'clmnLzMail_Name
'
Me.clmnLzMail_Name.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
Me.clmnLzMail_Name.HeaderText = "Datei"
Me.clmnLzMail_Name.Name = "clmnLzMail_Name"
Me.clmnLzMail_Name.ReadOnly = True
'
'DocId
'
Me.DocId.HeaderText = "DocId"
Me.DocId.Name = "DocId"
Me.DocId.ReadOnly = True
Me.DocId.Visible = False
'
'btnLaufzettelDrucken
'
Me.btnLaufzettelDrucken.BackColor = System.Drawing.Color.PapayaWhip
Me.btnLaufzettelDrucken.Enabled = False
Me.btnLaufzettelDrucken.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnLaufzettelDrucken.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!)
Me.btnLaufzettelDrucken.Image = Global.AVISO.My.Resources.Resources.printer
Me.btnLaufzettelDrucken.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnLaufzettelDrucken.Location = New System.Drawing.Point(18, 424)
Me.btnLaufzettelDrucken.Name = "btnLaufzettelDrucken"
Me.btnLaufzettelDrucken.Padding = New System.Windows.Forms.Padding(10, 0, 20, 0)
Me.btnLaufzettelDrucken.Size = New System.Drawing.Size(260, 69)
Me.btnLaufzettelDrucken.TabIndex = 8
Me.btnLaufzettelDrucken.Text = "Laufzettel drucken"
Me.btnLaufzettelDrucken.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnLaufzettelDrucken.UseVisualStyleBackColor = False
'
'MyPanel1
'
Me.MyPanel1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.MyPanel1.Controls.Add(Me.cboPrinter)
Me.MyPanel1.Controls.Add(Me.cbxVPSplit)
Me.MyPanel1.Controls.Add(Me.pnlZumZoll)
Me.MyPanel1.Controls.Add(Me.Button3)
Me.MyPanel1.Controls.Add(Me.btnDIGITAL)
Me.MyPanel1.Controls.Add(Me.Button1)
Me.MyPanel1.Controls.Add(Me.btnLaufzettelDrucken)
Me.MyPanel1.Controls.Add(Me.cbxDokumenteDrucken)
Me.MyPanel1.Controls.Add(Me.dgvDigitalMailanfügen)
Me.MyPanel1.Controls.Add(Me.dgvLaufzettelDruck)
Me.MyPanel1.Controls.Add(Me.cbxDigitalLZ)
Me.MyPanel1.Dock = System.Windows.Forms.DockStyle.Fill
Me.MyPanel1.Location = New System.Drawing.Point(0, 45)
Me.MyPanel1.Name = "MyPanel1"
Me.MyPanel1.Size = New System.Drawing.Size(564, 571)
Me.MyPanel1.TabIndex = 9
'
'cbxVPSplit
'
Me.cbxVPSplit.AutoSize = True
Me.cbxVPSplit.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
Me.cbxVPSplit.Location = New System.Drawing.Point(18, 400)
Me.cbxVPSplit.Name = "cbxVPSplit"
Me.cbxVPSplit.Size = New System.Drawing.Size(173, 21)
Me.cbxVPSplit.TabIndex = 6
Me.cbxVPSplit.Text = "nach Vorpapier splitten"
Me.cbxVPSplit.UseVisualStyleBackColor = True
'
'pnlZumZoll
'
Me.pnlZumZoll.BackColor = System.Drawing.Color.PapayaWhip
Me.pnlZumZoll.Controls.Add(Me.Button2)
Me.pnlZumZoll.Controls.Add(Me.CheckBox2)
Me.pnlZumZoll.Controls.Add(Me.CheckBox3)
Me.pnlZumZoll.Controls.Add(Me.CheckBox4)
Me.pnlZumZoll.Dock = System.Windows.Forms.DockStyle.Bottom
Me.pnlZumZoll.Location = New System.Drawing.Point(0, 520)
Me.pnlZumZoll.Name = "pnlZumZoll"
Me.pnlZumZoll.Size = New System.Drawing.Size(562, 49)
Me.pnlZumZoll.TabIndex = 12
'
'Button3
'
Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button3.Location = New System.Drawing.Point(18, 325)
Me.Button3.Name = "Button3"
Me.Button3.Size = New System.Drawing.Size(260, 36)
Me.Button3.TabIndex = 11
Me.Button3.Text = "nur Anlagen drucken"
Me.Button3.UseVisualStyleBackColor = True
'
'btnDIGITAL
'
Me.btnDIGITAL.BackColor = System.Drawing.Color.PapayaWhip
Me.btnDIGITAL.Enabled = False
Me.btnDIGITAL.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnDIGITAL.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!)
Me.btnDIGITAL.Image = Global.AVISO.My.Resources.Resources.digitalerAkt_small
Me.btnDIGITAL.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnDIGITAL.Location = New System.Drawing.Point(284, 424)
Me.btnDIGITAL.Name = "btnDIGITAL"
Me.btnDIGITAL.Padding = New System.Windows.Forms.Padding(10, 0, 20, 0)
Me.btnDIGITAL.Size = New System.Drawing.Size(260, 69)
Me.btnDIGITAL.TabIndex = 10
Me.btnDIGITAL.Text = "Laufzettel DIGITAL" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "E-Mail öffnen"
Me.btnDIGITAL.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnDIGITAL.UseVisualStyleBackColor = False
'
'Button1
'
Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button1.Location = New System.Drawing.Point(18, 363)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(260, 36)
Me.Button1.TabIndex = 9
Me.Button1.Text = "Laufzettel anzeigen"
Me.Button1.UseVisualStyleBackColor = True
'
'pnl
'
Me.pnl.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.pnl.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.pnl.Controls.Add(Me.btn)
Me.pnl.Controls.Add(Me.lbl)
Me.pnl.Dock = System.Windows.Forms.DockStyle.Top
Me.pnl.Location = New System.Drawing.Point(0, 0)
Me.pnl.Name = "pnl"
Me.pnl.Size = New System.Drawing.Size(564, 45)
Me.pnl.TabIndex = 10
'
'btn
'
Me.btn.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.btn.BackColor = System.Drawing.Color.Red
Me.btn.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btn.ForeColor = System.Drawing.Color.White
Me.btn.Location = New System.Drawing.Point(483, -1)
Me.btn.Margin = New System.Windows.Forms.Padding(0)
Me.btn.Name = "btn"
Me.btn.Size = New System.Drawing.Size(80, 45)
Me.btn.TabIndex = 0
Me.btn.Text = "X"
Me.btn.UseVisualStyleBackColor = False
'
'Button2
'
Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button2.Location = New System.Drawing.Point(468, 8)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(83, 36)
Me.Button2.TabIndex = 13
Me.Button2.Text = "nur z.Zoll drucken"
Me.Button2.UseVisualStyleBackColor = True
'
'cboPrinter
'
Me.cboPrinter._allowedValuesFreiText = Nothing
Me.cboPrinter._allowFreiText = False
Me.cboPrinter._value = ""
Me.cboPrinter.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cboPrinter.DropDownWidth = 300
Me.cboPrinter.FormattingEnabled = True
Me.cboPrinter.Location = New System.Drawing.Point(18, 495)
Me.cboPrinter.Name = "cboPrinter"
Me.cboPrinter.Size = New System.Drawing.Size(260, 21)
Me.cboPrinter.TabIndex = 23
'
'frmLaufzettel
'
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(564, 616)
Me.Controls.Add(Me.MyPanel1)
Me.Controls.Add(Me.pnl)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Name = "frmLaufzettel"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "Laufzettel"
CType(Me.dgvLaufzettelDruck, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.dgvDigitalMailanfügen, System.ComponentModel.ISupportInitialize).EndInit()
Me.MyPanel1.ResumeLayout(False)
Me.MyPanel1.PerformLayout()
Me.pnlZumZoll.ResumeLayout(False)
Me.pnlZumZoll.PerformLayout()
Me.pnl.ResumeLayout(False)
Me.pnl.PerformLayout()
Me.ResumeLayout(False)
End Sub
Friend WithEvents lbl As Label
Friend WithEvents cbxDokumenteDrucken As CheckBox
Friend WithEvents cbxDigitalLZ As CheckBox
Friend WithEvents CheckBox2 As CheckBox
Friend WithEvents CheckBox3 As CheckBox
Friend WithEvents CheckBox4 As CheckBox
Friend WithEvents dgvLaufzettelDruck As VERAG_PROG_ALLGEMEIN.MyDatagridview
Friend WithEvents dgvDigitalMailanfügen As VERAG_PROG_ALLGEMEIN.MyDatagridview
Friend WithEvents btnLaufzettelDrucken As Button
Friend WithEvents MyPanel1 As VERAG_PROG_ALLGEMEIN.MyPanel
Friend WithEvents pnl As Panel
Friend WithEvents btn As Button
Friend WithEvents Button1 As Button
Friend WithEvents Button3 As Button
Friend WithEvents btnDIGITAL As Button
Friend WithEvents pnlZumZoll As Panel
Friend WithEvents cbxVPSplit As CheckBox
Friend WithEvents clmnLzMail_ID As DataGridViewTextBoxColumn
Friend WithEvents clmnLzMail_Name As DataGridViewTextBoxColumn
Friend WithEvents DocId As DataGridViewTextBoxColumn
Friend WithEvents clmnLzPrint_ID As DataGridViewTextBoxColumn
Friend WithEvents clmnLzPrint_Name As DataGridViewTextBoxColumn
Friend WithEvents PrintDocId As DataGridViewTextBoxColumn
Friend WithEvents printTyp As DataGridViewTextBoxColumn
Friend WithEvents Button2 As Button
Friend WithEvents cboPrinter As VERAG_PROG_ALLGEMEIN.MyComboBox
End Class

1274
Aviso/frmLaufzettel.resx Normal file
View File

File diff suppressed because it is too large Load Diff

521
Aviso/frmLaufzettel.vb Normal file
View File

@@ -0,0 +1,521 @@
Imports System.Drawing.Printing
Imports Microsoft.Office.Interop
Public Class frmLaufzettel
Dim AvisoID = -1
Dim DIGITAL As Boolean = False
Dim AVISO As VERAG_PROG_ALLGEMEIN.cAviso = Nothing
Dim SENDUNG_LIST As List(Of VERAG_PROG_ALLGEMEIN.cSendungen) = Nothing
Dim DIGITAL_T1 As Boolean = False
Dim DIGITAL_Rg As Boolean = False
Dim jeVP As Boolean = False
Sub New()
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
Sub New(AvisoID As Integer, SENDUNG_LIST As List(Of VERAG_PROG_ALLGEMEIN.cSendungen), DIGITAL As Boolean, DIGITAL_T1 As Boolean, DIGITAL_rg As Boolean, jeVP As Boolean)
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
Me.AvisoID = AvisoID
AVISO = VERAG_PROG_ALLGEMEIN.cAviso.getAvisoById(AvisoID)
Me.SENDUNG_LIST = SENDUNG_LIST
Me.DIGITAL = DIGITAL
Me.DIGITAL_T1 = DIGITAL_T1
Me.DIGITAL_Rg = DIGITAL_rg
Me.jeVP = jeVP
End Sub
Sub New(AVISO As VERAG_PROG_ALLGEMEIN.cAviso, SENDUNG_LIST As List(Of VERAG_PROG_ALLGEMEIN.cSendungen), DIGITAL As Boolean, DIGITAL_T1 As Boolean, DIGITAL_rg As Boolean, jeVP As Boolean)
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
Me.AvisoID = AVISO.AvisoID
Me.AVISO = AVISO
Me.SENDUNG_LIST = SENDUNG_LIST
Me.DIGITAL = DIGITAL
Me.DIGITAL_T1 = DIGITAL_T1
Me.DIGITAL_Rg = DIGITAL_rg
Me.jeVP = jeVP
End Sub
Public Shared Sub initDrucker(cboPrinter As ComboBox, Optional srch As String = "")
' alle installierten Drucker ermitteln und
' in in ein ArrayList-Objekt speichern
Dim sPrinters As New ArrayList
For Each sPrinter As String In PrinterSettings.InstalledPrinters
sPrinters.Add(sPrinter)
Next
' Array sortieren
sPrinters.Sort()
' jetzt alle Drucker in sortierter Reihenfolge in einer
' ComboBox zur Auswahl anbieten
Dim oPS As New System.Drawing.Printing.PrinterSettings
For i As Integer = 0 To sPrinters.Count - 1
cboPrinter.Items.Add(sPrinters(i))
Next
If sPrinters.Count > 0 Then
cboPrinter.SelectedIndex = 0
If srch <> "" Then
For Each i In cboPrinter.Items
If i.ToString.ToUpper.Contains(srch.ToUpper) Then
cboPrinter.SelectedItem = i
Exit Sub
End If
Next
Else
For Each i In cboPrinter.Items
If i.ToString = oPS.PrinterName Then
cboPrinter.SelectedItem = i
Exit Sub
End If
Next
End If
End If
End Sub
Sub initLZ()
cbxVPSplit.Checked = jeVP
dgvDigitalMailanfügen.Rows.Clear()
dgvLaufzettelDruck.Rows.Clear()
Dim ANH_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge)
VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge.LOAD_LIST_ByAviso(ANH_LIST, AvisoID) 'LÄDT alle Aviso-Anhänge
For Each ll In ANH_LIST
If ll.anh_LaufzettelDruck Then
dgvLaufzettelDruck.Rows.Add(ll.anh_id, ll.anh_Name, ll.anh_docId, ll.anh_Typ)
'Select Case ll.anh_Typ
' Case "PDF" : VERAG_PROG_ALLGEMEIN.cFormularManager.PrintViaSpirePDF({VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(ll.anh_docId)})
' ' Case "BILD" : VERAG_PROG_ALLGEMEIN.cFormularManager.Print_PICTURE({VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(ll.anh_docId)})
' Case Else : Process.Start(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(ll.anh_docId))
'End Select
End If
Next
'If loadAttachRg Then
If DIGITAL Then
If DIGITAL_T1 Then
'Falls CMR, Vorpapier in den Unterlagen vorhanden, werden diese beigefügt
For Each l In ANH_LIST
Select Case l.anh_Art.ToString.ToUpper
Case "VORPAPIER" ', "CMR"
dgvDigitalMailanfügen.Rows.Add(l.anh_id, l.anh_Name, l.anh_docId)
End Select
Next
End If
If DIGITAL_Rg Then
For Each s In SENDUNG_LIST
Select Case s.tblSnd_Abfertigungsart_ID
'Falls RECHNUNGen in den Unterlagen vorhanden, werden diese beigefügt
Case "5", "45", "28", "26", "38" 'T1, Ü-T1, DE-FISK
Dim ANH_LIST_SND As New List(Of VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge)
VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge.LOAD_LIST_BySendung(ANH_LIST_SND, s.tblSnd_SendungID) 'LÄDT alle Aviso-Anhänge
For Each l In ANH_LIST_SND
Select Case l.anh_Art.ToString.ToUpper
Case "RECHNUNG", "HANDELSRECHNUNG"
dgvDigitalMailanfügen.Rows.Add(l.anh_id, l.anh_Name, l.anh_docId)
'Mail.Attachments.Add(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(l.anh_docId), Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue)
End Select
Next
End Select
Next
End If
'Markierte Anhänge
For Each l In ANH_LIST
'Markierte:
If l.anh_GestellungslisteAnfuegen Then
dgvDigitalMailanfügen.Rows.Add(l.anh_id, l.anh_Name, l.anh_docId)
' Mail.Attachments.Add(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(l.anh_docId), Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue)
End If
Next
End If
End Sub
Private Sub frmLaufzettel_Load(sender As Object, e As EventArgs) Handles Me.Load
initDrucker(cboPrinter)
If DIGITAL Then
cbxDigitalLZ.Enabled = True
dgvDigitalMailanfügen.Enabled = True
btnDIGITAL.Enabled = True
cbxDigitalLZ.Checked = True
CheckBox2.Checked = False
pnlZumZoll.Visible = False
Else
btnLaufzettelDrucken.Enabled = True
End If
'pnlZumZoll
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA <> "FRONTOFFICE" And VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG <> "WAI" Then
CheckBox2.Checked = False ' Wenn nicht FO, dann normal nicht gewählt...
If VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG <> "SUB" And VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG <> "WAI" Then '... und nur in SUBEN ersichtlich
pnlZumZoll.Visible = False
End If
End If
If SENDUNG_LIST Is Nothing Then
SENDUNG_LIST = New List(Of VERAG_PROG_ALLGEMEIN.cSendungen)
VERAG_PROG_ALLGEMEIN.cSendungen.LOAD_LIST(SENDUNG_LIST, -1, AvisoID) 'LÄDT alle SENDUNGSDATEN
End If
initLZ()
resetDGV(dgvDigitalMailanfügen)
resetDGV(dgvLaufzettelDruck)
End Sub
Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click
Me.Close()
End Sub
Private Sub btnLaufzettelDrucken_Click(sender As Object, e As EventArgs) Handles btnLaufzettelDrucken.Click
doLZ(False)
Me.Close()
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
AVISO.LOAD_Vorpapiere()
Dim VP_Enum = VERAG_PROG_ALLGEMEIN.cSendungen.VP_Enum(SENDUNG_LIST) 'Filtert nach eindeutigen Vorpapieren
Dim paths As New List(Of String)
If Not genLZ(paths, False, VP_Enum) Then
Exit Sub
End If
If paths.Count = 1 Then '1 Gestellungsliste
Process.Start(paths(0))
ElseIf paths.Count > 0 Then 'Mehrere Gestellungslisten zusammenführen
Dim outputFile As String = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath("Gestellungsliste_Merge.pdf", ".pdf", True,, "Merge") ' "result.pdf"
VERAG_PROG_ALLGEMEIN.cFormularManager.mergePDFs(paths, outputFile)
Process.Start(outputFile)
End If
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
printLZAnlagen()
End Sub
Sub printLZAnlagen()
' If cbxDigitalLZ.Checked Then
resetDGV(dgvLaufzettelDruck)
For Each r As DataGridViewRow In dgvLaufzettelDruck.Rows
Try
Dim typ = r.Cells("printTyp").Value
Dim path = VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(r.Cells("printDocId").Value)
Select Case typ
Case "PDF" : VERAG_PROG_ALLGEMEIN.cFormularManager.PrintViaSpirePDF({path}, cboPrinter.SelectedItem.ToString)
' Case "BILD" : VERAG_PROG_ALLGEMEIN.cFormularManager.Print_PICTURE({VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(ll.anh_docId)})
Case Else : Process.Start(path)
End Select
r.DefaultCellStyle.BackColor = Color.LimeGreen
dgvLaufzettelDruck.Refresh()
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,, )
End Try
Next
'End If
End Sub
Sub printzZAnlagen()
' Fahrer zum Zoll!
'------------------------------------------------
If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("PRINT_zumZOLL") Then
If CheckBox2.Checked Then
If VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG = "WAI" Then
Try
Dim path = SDL.FormularManagerNEU.zumZOLL_AVISO_WAI(AVISO)
If path <> "" Then VERAG_PROG_ALLGEMEIN.cFormularManager.PrintViaGS(path, cboPrinter.SelectedItem.ToString) '(New System.Drawing.Printing.PrinterSettings).PrinterName)
Catch ex As Exception : MsgBox(ex.Message & ex.StackTrace) : End Try
Else
Try
Dim path = SDL.FormularManagerNEU.zumZOLL_AVISO(AVISO, If(CheckBox3.Checked, "AT", If(CheckBox4.Checked, "DE", "")))
If path <> "" Then VERAG_PROG_ALLGEMEIN.cFormularManager.PrintViaGS(path, cboPrinter.SelectedItem.ToString) '(New System.Drawing.Printing.PrinterSettings).PrinterName)
Catch ex As Exception : MsgBox(ex.Message & ex.StackTrace) : End Try
End If
End If
End If
'------------------------------------------------
End Sub
Sub resetDGV(dgv As DataGridView)
dgv.ClearSelection()
For Each r As DataGridViewRow In dgv.Rows
r.DefaultCellStyle.BackColor = Color.White
Next
End Sub
Sub doLZ(digitalDruck)
Me.Cursor = Cursors.WaitCursor
resetDGV(dgvDigitalMailanfügen)
resetDGV(dgvLaufzettelDruck)
Me.Refresh()
If Not digitalDruck Then
printzZAnlagen()
End If
' Dim loadAttachRg = True ' (sender Is Button15)
'Dim ANH_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge)
'VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge.LOAD_LIST_ByAviso(ANH_LIST, AvisoID) 'LÄDT alle Aviso-Anhänge
'For Each l In ANH_LIST
' If l.anh_LaufzettelDruck Then
' If vbYes = MsgBox("Es wurden Anhänge zum Drucken markiert! Sollen diese gedruckt werden?", vbYesNoCancel) Then
' For Each ll In ANH_LIST
' If ll.anh_LaufzettelDruck Then
' Select Case ll.anh_Typ
' Case "PDF" : VERAG_PROG_ALLGEMEIN.cFormularManager.PrintViaSpirePDF({VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(ll.anh_docId)})
' ' Case "BILD" : VERAG_PROG_ALLGEMEIN.cFormularManager.Print_PICTURE({VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(ll.anh_docId)})
' Case Else : Process.Start(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(ll.anh_docId))
' End Select
' End If
' Next
' End If
' Exit For
' End If
'Next
'DIGITALE ABFERTIGUNG:
If (digitalDruck) Or cbxVPSplit.Checked Then ' digital oder splittung --> per Vorpapier
Try
Dim SENDUNG_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cSendungen)
VERAG_PROG_ALLGEMEIN.cSendungen.LOAD_LIST(SENDUNG_LIST, -1, AvisoID) 'LÄDT alle SENDUNGSDATEN
AVISO.LOAD_Vorpapiere()
Dim VP_Enum = VERAG_PROG_ALLGEMEIN.cSendungen.VP_Enum(SENDUNG_LIST) 'Filtert nach eindeutigen Vorpapieren
Dim paths As New List(Of String)
If Not genLZ(paths, digitalDruck, VP_Enum) Then
Me.Cursor = Cursors.Default
Exit Sub
End If
'AVISO.LOAD_Vorpapiere()
'Dim VP_Enum = VERAG_PROG_ALLGEMEIN.cSendungen.VP_Enum(SENDUNG_LIST) 'Filtert nach eindeutigen Vorpapieren
'Dim paths As New List(Of String)
'If pruef Then paths.Add(SDL.FormularManagerNEU.LaufzettelZollDE_VP(AvisoID, False,, "XXXX"))
'For Each VP In VP_Enum
' paths.Add(SDL.FormularManagerNEU.LaufzettelZollDE_VP(AvisoID, False,, VP))
'Next
If digitalDruck Then 'NUR BEI DIGITALANMELDUNG!
Dim outl As New Outlook.Application
Dim Mail As Microsoft.Office.Interop.Outlook.MailItem
Mail = outl.CreateItem(0)
Dim tX As VERAG_PROG_ALLGEMEIN.cTextkonserve = Nothing
Select Case AVISO.Grenzstelle
Case "SUB"
Mail.To = "abfertigung.za-suben@zoll.bund.de"
tX = New VERAG_PROG_ALLGEMEIN.cTextkonserve("LAUFZETTEL_DIGITAL", "LAUFZETTEL_DE_DIGITAL_SUB", "DE", VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA)
Case "WAI"
Mail.To = ""
tX = New VERAG_PROG_ALLGEMEIN.cTextkonserve("LAUFZETTEL_DIGITAL", "LAUFZETTEL_DE_DIGITAL_WAI", "DE", VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA)
Case "SBG"
Mail.To = ""
tX = New VERAG_PROG_ALLGEMEIN.cTextkonserve("LAUFZETTEL_DIGITAL", "LAUFZETTEL_DE_DIGITAL_SBG", "DE", VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA)
Case Else
Mail.To = ""
tX = New VERAG_PROG_ALLGEMEIN.cTextkonserve("LAUFZETTEL_DIGITAL", "LAUFZETTEL_DE_DIGITAL_SUB", "DE", VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA)
End Select
Dim MAIL_SUBJ = tX.txt_betreff.Replace("%LKWKennzeichen%", AVISO.LKW_Nr)
Dim MAIL_BODY = tX.txt_text.Replace("%LKWKennzeichen%", AVISO.LKW_Nr)
addVPList(MAIL_BODY, VP_Enum)
Mail.HTMLBody = "<div style=""font-family:Calibri, Arial"">" & MAIL_BODY & SDL.cFakturierung.getSignature("DE", tX.txt_firmaSig, True, True) & "</div>"
Mail.Subject = MAIL_SUBJ
If VP_Enum.Count > 1 Then
Mail.Subject &= ", " & VP_Enum.Count & "x Vorpapier"
ElseIf VP_Enum.Count = 1 Then
Mail.Subject &= ", " & VP_Enum(0)
End If
For Each p In paths
Mail.Attachments.Add(p, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue, , "Gestellungsliste.pdf")
Next
If cbxDigitalLZ.Checked Then
For Each r As DataGridViewRow In dgvDigitalMailanfügen.Rows
Try
Dim path = VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(r.Cells("DocId").Value)
Mail.Attachments.Add(path, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue)
r.DefaultCellStyle.BackColor = Color.LimeGreen
dgvDigitalMailanfügen.Refresh()
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,, )
End Try
Next
End If
'If loadAttachRg Then
' If cbxLZT1.Visible AndAlso cbxLZT1.Checked Then
' 'Falls CMR, Vorpapier in den Unterlagen vorhanden, werden diese beigefügt
' For Each l In ANH_LIST
' Select Case l.anh_Art.ToString.ToUpper
' Case "VORPAPIER" ', "CMR"
' Mail.Attachments.Add(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(l.anh_docId), Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue)
' End Select
' Next
' End If
' If cbxLZRg.Visible AndAlso cbxLZRg.Checked Then
' For Each s In SENDUNG_LIST
' Select Case s.tblSnd_Abfertigungsart_ID
' 'Falls RECHNUNGen in den Unterlagen vorhanden, werden diese beigefügt
' Case "5", "45", "28", "26", "38" 'T1, Ü-T1, DE-FISK
' Dim ANH_LIST_SND As New List(Of VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge)
' VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge.LOAD_LIST_BySendung(ANH_LIST_SND, s.tblSnd_SendungID) 'LÄDT alle Aviso-Anhänge
' For Each l In ANH_LIST_SND
' Select Case l.anh_Art.ToString.ToUpper
' Case "RECHNUNG", "HANDELSRECHNUNG"
' Mail.Attachments.Add(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(l.anh_docId), Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue)
' End Select
' Next
' End Select
' Next
' End If
'End If
'Markierte Anhänge
'For Each l In ANH_LIST
' 'Markierte:
' If l.anh_GestellungslisteAnfuegen Then
' Mail.Attachments.Add(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(l.anh_docId), Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue)
' End If
'Next
Mail.Display()
Else 'Keine Digitalabfertigung, DRUCK!
Try
For Each p In paths
VERAG_PROG_ALLGEMEIN.cFormularManager.PrintViaSpirePDF({p}, cboPrinter.SelectedItem.ToString)
Next
'If paths.Count = 1 Then '1 Gestellungsliste
' Process.Start(paths(0))
'ElseIf paths.Count > 0 Then 'Mehrere Gestellungslisten zusammenführen
' Dim outputFile As String = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath("Gestellungsliste_Merge.pdf", ".pdf", True,, "Merge") ' "result.pdf"
' VERAG_PROG_ALLGEMEIN.cFormularManager.mergePDFs(paths, outputFile)
' Process.Start(outputFile)
'End If
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,, )
End Try
End If
Catch ex As Exception
MsgBox("Fehler beim erstellen der E-Mail:" & vbNewLine & ex.Message & ex.StackTrace)
End Try
Else
Dim path = SDL.FormularManagerNEU.LaufzettelZollDE(AvisoID, False)
If path <> "" Then
'Process.Start(path)
VERAG_PROG_ALLGEMEIN.cFormularManager.PrintViaSpirePDF({path}, cboPrinter.SelectedItem.ToString)
End If
End If
If cbxDokumenteDrucken.Checked Then
printLZAnlagen()
End If
Me.Cursor = Cursors.Default
End Sub
Function genLZ(ByRef paths As List(Of String), digitalDruck As Boolean, VP_Enum As List(Of String)) As Boolean
Dim pruef = False
For Each s In SENDUNG_LIST
Select Case s.tblSnd_Abfertigungsart_ID.ToString
Case "38", "26" 'AT - Keine Prüfung
Case Else
If If(s.tblSnd_Vorpapier, "") = "" And If(s.tblSnd_Vorpapier2, "") = "" And If(s.tblSnd_Vorpapier3, "") = "" Then
pruef = True
End If
End Select
Next
If pruef Then ' VP fehlen
If Not digitalDruck Then 'Wenn LZ Druck
If vbYes <> MsgBox("Nicht alle Sendungen haben ein Vorpapier eingetragen!" & vbNewLine & "Soll der Laufzettel trotzdem erstellt werden?", vbYesNoCancel) Then
Return False
End If
Else ' Digitalabfertigungn
MsgBox("Nicht alle Sendungen haben ein Vorpapier eingetragen!" & vbNewLine & "Laufzettelerstellung wird abgebrochen.")
Return False
End If
End If
paths = New List(Of String)
If pruef Then paths.Add(SDL.FormularManagerNEU.LaufzettelZollDE_VP(AvisoID, False,, "XXXX"))
For Each VP In VP_Enum
paths.Add(SDL.FormularManagerNEU.LaufzettelZollDE_VP(AvisoID, False,, VP))
Next
Return True
End Function
Sub addVPList(ByRef MAIL_BODY As String, VP_Enum As List(Of String))
Dim Platzhalter = "<br><br><table style=""font-family:Calibri;"" border=""1"" bordercolor=""#000"" cellspacing=""0"">"
Platzhalter &= "<tr><th width=200>Vorpapier:</th><th width=200></th><th></th></tr>"
For Each VP In VP_Enum
Platzhalter &= "<tr><td>" & VP & "</td><td></t></tr>"
Next
Platzhalter &= "</table>"
MAIL_BODY = MAIL_BODY.Replace("%Platzhalter%", Platzhalter)
End Sub
Private Sub btnDIGITAL_Click(sender As Object, e As EventArgs) Handles btnDIGITAL.Click
doLZ(True)
End Sub
Private Sub CheckBox3_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox3.CheckedChanged
If sender.checked Then
CheckBox4.Checked = False
End If
End Sub
Private Sub CheckBox4_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox4.CheckedChanged
If sender.checked Then
CheckBox3.Checked = False
End If
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
printzZAnlagen()
End Sub
End Class

120
Aviso/frmSendungsdetailsNEU.Designer.vb generated
View File

@@ -23,8 +23,8 @@ Partial Class frmSendungsdetailsNEU
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmSendungsdetailsNEU))
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()
@@ -35,8 +35,10 @@ Partial Class frmSendungsdetailsNEU
Me.Panel4 = New System.Windows.Forms.Panel()
Me.TabControl1 = New System.Windows.Forms.TabControl()
Me.tbAnhang = New System.Windows.Forms.TabPage()
Me.btnDirektAnfuegen = New System.Windows.Forms.Button()
Me.dgvAnhang = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.Panel19 = New System.Windows.Forms.Panel()
Me.btnQuckScan = New System.Windows.Forms.Button()
Me.Panel21 = New System.Windows.Forms.Panel()
Me.Label53 = New System.Windows.Forms.Label()
Me.btnEORIPruef = New System.Windows.Forms.Button()
@@ -48,7 +50,6 @@ Partial Class frmSendungsdetailsNEU
Me.btnPDFZusammenfueren = New System.Windows.Forms.Button()
Me.btnMailVorlage = New System.Windows.Forms.Button()
Me.btnOptionen = New System.Windows.Forms.Button()
Me.btnDirektAnfuegen = New System.Windows.Forms.Button()
Me.btnImportAssi = New System.Windows.Forms.Button()
Me.lblAnhaenge = New System.Windows.Forms.Label()
Me.tbKundenInfo = New System.Windows.Forms.TabPage()
@@ -72,6 +73,10 @@ Partial Class frmSendungsdetailsNEU
Me.ToolStripMenuItem20 = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripMenuItem18 = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripMenuItem19 = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripMenuItem21 = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripMenuItem22 = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripMenuItem23 = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripMenuItem24 = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripMenuItem12 = New System.Windows.Forms.ToolStripMenuItem()
Me.TabPage1 = New System.Windows.Forms.TabPage()
Me.pnlKundenZolltarif = New System.Windows.Forms.Panel()
@@ -371,6 +376,7 @@ Partial Class frmSendungsdetailsNEU
Me.ContextMenuStrip2 = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.ToolStripMenuItem14 = New System.Windows.Forms.ToolStripMenuItem()
Me.NurÖffnenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.AbrechungFremdeGrenzeAktDruckenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.pnl.SuspendLayout()
Me.Panel4.SuspendLayout()
Me.TabControl1.SuspendLayout()
@@ -471,6 +477,7 @@ Partial Class frmSendungsdetailsNEU
'
'tbAnhang
'
Me.tbAnhang.Controls.Add(Me.btnDirektAnfuegen)
Me.tbAnhang.Controls.Add(Me.dgvAnhang)
Me.tbAnhang.Controls.Add(Me.Panel19)
Me.tbAnhang.Location = New System.Drawing.Point(4, 22)
@@ -480,6 +487,21 @@ Partial Class frmSendungsdetailsNEU
Me.tbAnhang.Text = "Anhang"
Me.tbAnhang.UseVisualStyleBackColor = True
'
'btnDirektAnfuegen
'
Me.btnDirektAnfuegen.Enabled = False
Me.btnDirektAnfuegen.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnDirektAnfuegen.Image = CType(resources.GetObject("btnDirektAnfuegen.Image"), System.Drawing.Image)
Me.btnDirektAnfuegen.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnDirektAnfuegen.Location = New System.Drawing.Point(648, 75)
Me.btnDirektAnfuegen.Name = "btnDirektAnfuegen"
Me.btnDirektAnfuegen.Size = New System.Drawing.Size(142, 34)
Me.btnDirektAnfuegen.TabIndex = 4
Me.btnDirektAnfuegen.Text = "Direkt anfügen ..."
Me.btnDirektAnfuegen.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnDirektAnfuegen.UseVisualStyleBackColor = True
Me.btnDirektAnfuegen.Visible = False
'
'dgvAnhang
'
Me.dgvAnhang.AKTUALISIERUNGS_INTERVALL = -1
@@ -508,11 +530,11 @@ Partial Class frmSendungsdetailsNEU
'
'Panel19
'
Me.Panel19.Controls.Add(Me.btnQuckScan)
Me.Panel19.Controls.Add(Me.Panel21)
Me.Panel19.Controls.Add(Me.btnPDFZusammenfueren)
Me.Panel19.Controls.Add(Me.btnMailVorlage)
Me.Panel19.Controls.Add(Me.btnOptionen)
Me.Panel19.Controls.Add(Me.btnDirektAnfuegen)
Me.Panel19.Controls.Add(Me.btnImportAssi)
Me.Panel19.Controls.Add(Me.lblAnhaenge)
Me.Panel19.Dock = System.Windows.Forms.DockStyle.Top
@@ -521,6 +543,21 @@ Partial Class frmSendungsdetailsNEU
Me.Panel19.Size = New System.Drawing.Size(1206, 45)
Me.Panel19.TabIndex = 0
'
'btnQuckScan
'
Me.btnQuckScan.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.btnQuckScan.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnQuckScan.Image = CType(resources.GetObject("btnQuckScan.Image"), System.Drawing.Image)
Me.btnQuckScan.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnQuckScan.Location = New System.Drawing.Point(631, 5)
Me.btnQuckScan.Name = "btnQuckScan"
Me.btnQuckScan.Size = New System.Drawing.Size(107, 34)
Me.btnQuckScan.TabIndex = 108
Me.btnQuckScan.Text = "Quick-Scan"
Me.btnQuckScan.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnQuckScan.UseVisualStyleBackColor = True
Me.btnQuckScan.Visible = False
'
'Panel21
'
Me.Panel21.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
@@ -655,20 +692,6 @@ Partial Class frmSendungsdetailsNEU
Me.btnOptionen.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnOptionen.UseVisualStyleBackColor = True
'
'btnDirektAnfuegen
'
Me.btnDirektAnfuegen.Enabled = False
Me.btnDirektAnfuegen.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnDirektAnfuegen.Image = CType(resources.GetObject("btnDirektAnfuegen.Image"), System.Drawing.Image)
Me.btnDirektAnfuegen.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnDirektAnfuegen.Location = New System.Drawing.Point(630, 5)
Me.btnDirektAnfuegen.Name = "btnDirektAnfuegen"
Me.btnDirektAnfuegen.Size = New System.Drawing.Size(129, 34)
Me.btnDirektAnfuegen.TabIndex = 4
Me.btnDirektAnfuegen.Text = "Direkt anfügen ..."
Me.btnDirektAnfuegen.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnDirektAnfuegen.UseVisualStyleBackColor = True
'
'btnImportAssi
'
Me.btnImportAssi.FlatStyle = System.Windows.Forms.FlatStyle.Flat
@@ -800,7 +823,7 @@ Partial Class frmSendungsdetailsNEU
'
'MenuStrip
'
Me.MenuStrip.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem13, Me.ToolStripMenuItem7, Me.ToolStripMenuItem6, Me.ToolStripMenuItem11, Me.ToolStripMenuItem17, Me.ToolStripMenuItem12})
Me.MenuStrip.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem13, Me.ToolStripMenuItem7, Me.ToolStripMenuItem6, Me.ToolStripMenuItem11, Me.ToolStripMenuItem17, Me.ToolStripMenuItem21, Me.ToolStripMenuItem12})
Me.MenuStrip.Location = New System.Drawing.Point(0, 0)
Me.MenuStrip.Name = "MenuStrip"
Me.MenuStrip.Size = New System.Drawing.Size(1206, 24)
@@ -906,6 +929,40 @@ Partial Class frmSendungsdetailsNEU
Me.ToolStripMenuItem19.Size = New System.Drawing.Size(95, 22)
Me.ToolStripMenuItem19.Text = "T2"
'
'ToolStripMenuItem21
'
Me.ToolStripMenuItem21.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem22, Me.ToolStripMenuItem23, Me.ToolStripMenuItem24})
Me.ToolStripMenuItem21.Image = Global.AVISO.My.Resources.Resources.plus
Me.ToolStripMenuItem21.Name = "ToolStripMenuItem21"
Me.ToolStripMenuItem21.Padding = New System.Windows.Forms.Padding(8, 0, 8, 0)
Me.ToolStripMenuItem21.Size = New System.Drawing.Size(71, 20)
Me.ToolStripMenuItem21.Text = " MIC"
Me.ToolStripMenuItem21.ToolTipText = "Neue Zollanmeldung"
'
'ToolStripMenuItem22
'
Me.ToolStripMenuItem22.Image = Global.AVISO.My.Resources.Resources.weiterleiten_small1
Me.ToolStripMenuItem22.Name = "ToolStripMenuItem22"
Me.ToolStripMenuItem22.Size = New System.Drawing.Size(176, 22)
Me.ToolStripMenuItem22.Text = "MIC Import senden"
'
'ToolStripMenuItem23
'
Me.ToolStripMenuItem23.Font = New System.Drawing.Font("Segoe UI", 9.0!)
Me.ToolStripMenuItem23.Image = Global.AVISO.My.Resources.Resources.weiterleiten_small1
Me.ToolStripMenuItem23.Name = "ToolStripMenuItem23"
Me.ToolStripMenuItem23.Size = New System.Drawing.Size(176, 22)
Me.ToolStripMenuItem23.Text = "MIC Transit senden"
'
'ToolStripMenuItem24
'
Me.ToolStripMenuItem24.Enabled = False
Me.ToolStripMenuItem24.Font = New System.Drawing.Font("Segoe UI", 9.0!)
Me.ToolStripMenuItem24.Image = Global.AVISO.My.Resources.Resources.weiterleiten_small1
Me.ToolStripMenuItem24.Name = "ToolStripMenuItem24"
Me.ToolStripMenuItem24.Size = New System.Drawing.Size(176, 22)
Me.ToolStripMenuItem24.Text = "MIC Export senden"
'
'ToolStripMenuItem12
'
Me.ToolStripMenuItem12.Image = Global.AVISO.My.Resources.Resources.android_note
@@ -4409,40 +4466,40 @@ Partial Class frmSendungsdetailsNEU
'
'cntxtAnh
'
Me.cntxtAnh.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.MarkiertePDFsDruckenToolStripMenuItem, Me.EMailAnfügenToolStripMenuItem, Me.KopierenZwischenablageToolStripMenuItem, Me.LaufzetteldruckJANEINToolStripMenuItem, Me.GestellungslisteAnfügenJANEINToolStripMenuItem})
Me.cntxtAnh.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.MarkiertePDFsDruckenToolStripMenuItem, Me.EMailAnfügenToolStripMenuItem, Me.KopierenZwischenablageToolStripMenuItem, Me.LaufzetteldruckJANEINToolStripMenuItem, Me.GestellungslisteAnfügenJANEINToolStripMenuItem, Me.AbrechungFremdeGrenzeAktDruckenToolStripMenuItem})
Me.cntxtAnh.Name = "cntxtAnh"
Me.cntxtAnh.Size = New System.Drawing.Size(251, 114)
Me.cntxtAnh.Size = New System.Drawing.Size(286, 158)
'
'MarkiertePDFsDruckenToolStripMenuItem
'
Me.MarkiertePDFsDruckenToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.pdfprint
Me.MarkiertePDFsDruckenToolStripMenuItem.Name = "MarkiertePDFsDruckenToolStripMenuItem"
Me.MarkiertePDFsDruckenToolStripMenuItem.Size = New System.Drawing.Size(250, 22)
Me.MarkiertePDFsDruckenToolStripMenuItem.Size = New System.Drawing.Size(285, 22)
Me.MarkiertePDFsDruckenToolStripMenuItem.Text = "Markierte PDFs drucken"
'
'EMailAnfügenToolStripMenuItem
'
Me.EMailAnfügenToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.email_big1
Me.EMailAnfügenToolStripMenuItem.Name = "EMailAnfügenToolStripMenuItem"
Me.EMailAnfügenToolStripMenuItem.Size = New System.Drawing.Size(250, 22)
Me.EMailAnfügenToolStripMenuItem.Size = New System.Drawing.Size(285, 22)
Me.EMailAnfügenToolStripMenuItem.Text = "E-Mail anfügen"
'
'KopierenZwischenablageToolStripMenuItem
'
Me.KopierenZwischenablageToolStripMenuItem.Name = "KopierenZwischenablageToolStripMenuItem"
Me.KopierenZwischenablageToolStripMenuItem.Size = New System.Drawing.Size(250, 22)
Me.KopierenZwischenablageToolStripMenuItem.Size = New System.Drawing.Size(285, 22)
Me.KopierenZwischenablageToolStripMenuItem.Text = "Kopieren (Zwischenablage)"
'
'LaufzetteldruckJANEINToolStripMenuItem
'
Me.LaufzetteldruckJANEINToolStripMenuItem.Name = "LaufzetteldruckJANEINToolStripMenuItem"
Me.LaufzetteldruckJANEINToolStripMenuItem.Size = New System.Drawing.Size(250, 22)
Me.LaufzetteldruckJANEINToolStripMenuItem.Size = New System.Drawing.Size(285, 22)
Me.LaufzetteldruckJANEINToolStripMenuItem.Text = "Laufzetteldruck JA/NEIN"
'
'GestellungslisteAnfügenJANEINToolStripMenuItem
'
Me.GestellungslisteAnfügenJANEINToolStripMenuItem.Name = "GestellungslisteAnfügenJANEINToolStripMenuItem"
Me.GestellungslisteAnfügenJANEINToolStripMenuItem.Size = New System.Drawing.Size(250, 22)
Me.GestellungslisteAnfügenJANEINToolStripMenuItem.Size = New System.Drawing.Size(285, 22)
Me.GestellungslisteAnfügenJANEINToolStripMenuItem.Text = "Gestellungsliste anfügen JA/NEIN"
'
'ToolStripMenuItem3
@@ -4779,6 +4836,13 @@ Partial Class frmSendungsdetailsNEU
Me.NurÖffnenToolStripMenuItem.Size = New System.Drawing.Size(247, 22)
Me.NurÖffnenToolStripMenuItem.Text = "nur öffnen"
'
'AbrechungFremdeGrenzeAktDruckenToolStripMenuItem
'
Me.AbrechungFremdeGrenzeAktDruckenToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.printer
Me.AbrechungFremdeGrenzeAktDruckenToolStripMenuItem.Name = "AbrechungFremdeGrenzeAktDruckenToolStripMenuItem"
Me.AbrechungFremdeGrenzeAktDruckenToolStripMenuItem.Size = New System.Drawing.Size(285, 22)
Me.AbrechungFremdeGrenzeAktDruckenToolStripMenuItem.Text = "Abrechung: Fremde Grenze Akt drucken"
'
'frmSendungsdetailsNEU
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!)
@@ -5214,4 +5278,10 @@ Partial Class frmSendungsdetailsNEU
Public WithEvents txtAnzahlPos As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label4 As Label
Friend WithEvents AuftragATANAKToolStripMenuItem As ToolStripMenuItem
Friend WithEvents btnQuckScan As Button
Friend WithEvents ToolStripMenuItem21 As ToolStripMenuItem
Friend WithEvents ToolStripMenuItem22 As ToolStripMenuItem
Friend WithEvents ToolStripMenuItem23 As ToolStripMenuItem
Friend WithEvents ToolStripMenuItem24 As ToolStripMenuItem
Friend WithEvents AbrechungFremdeGrenzeAktDruckenToolStripMenuItem As ToolStripMenuItem
End Class

67
Aviso/frmSendungsdetailsNEU.resx
View File

@@ -118,6 +118,65 @@
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="btnDirektAnfuegen.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABQAAAAUCAYAAACNiR0NAAAABGdBTUEAALGPC/xhBQAAAIdJREFUOE/V
kEEKgCAQRfVKeaaOEXSL6hbRNrC9dQ3PUd/IxagLGcZFA48PjjyYrzCd1vqWAC7TTog8wFiBTUUR7Igw
fK6ZIRVFsGsolKCtEFl7cmneGpBEuIGeyZoJJSBCpAcXE18Sindow4LJngklIELk8j1wmEpC8Q5PMDNx
mVCCPwiVeQBaqAV4Jfq5XQAAAABJRU5ErkJggg==
</value>
</data>
<data name="btnQuckScan.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAAB4AAAAeCAYAAAA7MK6iAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m
dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAApmSURBVEhLrZd3WFRHF8YvXWUJgtQtCihRqkGC6Ec0
xk4MJioaoiYSwEIEgoKIUSCJESWQxKBCsKCAofe+9F1pC+wuvTcpokiRFpSob2ZXA/nqP1/med6duTPn
nN89M3PvnaUAUGFht6mSslJxe3Jyclt+Qf6XqWmp59Mz0q+TOjwpOSkjKSkpLzEpMS8hMaEqPiG+iaiZ
tCuIRH25iYmJ2cQuLiU1JZT4hGRkZFzIyMzwzszMPPbw4cNdotgPWoWUo89lMUf8kx4fRhUW5Kv09vXH
NTU3oaWlBW1tbejo6EBnZye6u7tw/3437vfcR29PD3p7e2fV0zt33UPGuoldd3c3Ors6xf7t7e1obW3F
8MhoUVd18QoP35/nwNu+iqdu/hLS3MCvwOCDXtL1Ang5Q+rfX7X/z/L86RSejg8hJy3xmblrqAzpegVW
dUhYG3Q9FJwSHrKLysDhN4MjaJ1VkUj8FnCFbWKxi8qRmpWHtOw85HDKUVLTgbL6LpTWdoLX0I2Kph5U
NfdC2NaPmrY+COtbMDAwgMK8fBi5JX48C978ddqHafd4sA9mw8T2EpZutMWK9x2x3PK1th+F7tbDpD6G
ZZvtoKy/EfLaZpDXMoOS3gax/XLLY2KbN4mNyEfkv0JUk/5N7jdwNCSXJNCAIyGlJ2fBi5zYEvt/ZufZ
hhTAyDECEjQGGaH+iyRBySiAmr8I1DxlUNLy/8FmTpJKOjA5mYC9gTlwDOW2stwK5s+CVV2LqIVfpCmu
d7s9usbhCjRMPyIjBCBylpAmoAWQmK8ESQV1SC9kQEZ5MWQWaUFWeQlklBZDSpEOiQUqoGRpxEfqld9r
qRlugalDEHZ+HQNtj1wjBedcMVP8wziRQal5llOLHeMPLbOwxiK9d0DTsYCC7lYoG3wAFWMrqL61E2pE
6iYiWZH2DqgabYOKwSYoL18HRZ3VoLGMIaemCykFDRJZEhLScnhDxwzL138MQ/c0T+VTJRTTNVtyDuyS
S7FOFS5keAtlVd8/fU1SRu6lLMlKfokZaCKRtVTQXv0XkWstUzJmIoYtoOtDRlUXFI1OslaBjIoWmRUW
mQ0mZOQXQsvKLZHlU0OjnypcRHfOnMuY6VJIMd1yacyva2QZR6M+VNYxfaGktRLK2sZEK6GkZYyFS4yh
uNgYCqyVWMB4C3KMVZDUXAUJuhlklqyFov5maL97ALrbDmO+znqoGbwLDcMN0NB9G6zPbzhq+tRKEIaK
pkvaHFjTOVUElqJ7CajFey9E6JjugPbO89Dadw3MXYFQsboK1Y/I2u8OBHNfIJbaXIbR/gCsc7iMD8mO
PXIxEudusBGUWYsMYS+2u4eDWu2DJbv8obV6D1g73DiMs+ULmG55spouf8lY83g6RT9ZQDFPFSiu2HWm
33CXJ1ifJoD2bhSW7InEP1zisME9ETt9UnDw+wwcv5qDszfz4R9TjJC0SoTn1CC6oA4JRXXgVrej5tEU
9A6mgDILg/FnAdB/32WGeSJTj+7OoRjOeXNgulMmpe7GoXS+TFq7xsYbq1wjQP8kDjSzEKhv/BmH3P3g
5ncLJy6FwfNyDHyCU3DxDhs/RhUhOKkUYVl8xBFoRnkr8oSdePRkDLz6PtC2/4qF1tex/tNvoO2csEXd
rZhiOP3TrmZTSidLKOMvo+x3OPnjbe8MaOxNgOr2MMhaxWG17Q18ExSN01dT4HMjE34ReQiMu4eb6TxE
5lUjpbgJufx2lDT2orpzEM29IyQsUNE1DrUj8TC394PZybseyu48inmiaA6s6V5EKbhwKKvTIcEOl0Kx
yicfi6xioLYnCqr2mZDfF4cvLkQhOKEAAZFF+CWZZJnNR3xRPTJ55HVa043K1gdo6h1Gz9AkRqd/x/OX
YjZSGwax0vEKdntcKVQ7UUJYFXNgaTV98hToUhcu+fd5xXFg7FWENyx/hfpniWA4ZmL+sQIYOCUjPLkI
EWw+okiWqSVNyBN0oLSxDzVdg+h4OIbB8aeY/pP4l5Ih6AT5Kr3QWGaqKKVmMAcWlWXq841L8rMRmC+A
4Tku5C0joHk4DQxnNliexZA4UoBTIYWorG1BenkLOLX3UdU2l+XY9PP/+R1raOuGkY66tYhFLufA9nZ2
Xs9GHyG6ohm0z9LI43AdlE0SJOyyIOVYCMqJB+poLhK4jWjvf4yGnmEMPHmKp/+a4MuXeDg8iYrGB4hm
1+NiBA+JnGo8GR3G2bPnwv8NnJKcXCn69nLqurD1TCbeOZWFbb5cWAaUwfJyFaxu1MPIvxruJNDg8Bju
D46jc2AYnf2DqO/oI349iCnpwPeJ1Th67R62e2fB0IHsE+vbCEwuw8zUCAT8qkE5OTnpWbAaKePj46QJ
PH78GMOPB0hrBs+mJzA9OYaJ0SGMDw/iGWlX1jYj914lKgT1KKuqRTmpSwWNKKvrQDn5Ftd2DqD70ROM
Tk3jOYkyOTWBkeFhcWxRMTAwMCTVKzCLybJ4Qp69Fy9e4B6Xi9xsNspKilFOxCstRTW/CnU1QtQK+Wis
r0G1UIDGhga0t7WihRyVGurrUFctQENdDbERQFBVKfbjlZahmMsBp6gQ4xMTYrCpqan1LPjNN5cfmpiY
xLOZZ/juuwvw8PgK58/7wtfXD35+Abh6NQgxsTG4ezccsXExKCY31NLajGYC5XAKERMTjajoSNwJC8cP
P1wW+/j6XiKxfMWxfHy+FZ+/XpL137Jl67ezYAsLC7+Zmd8xPT2NwCtXcYWAIiOjER0di7j4eMTGxiM5
ORUpKSkEHIuEhHhkZ2cjJycH5FQJcgIlY6nENhHRMbEIC49AaWkJSoj8A34iN/MTOTR2ERRgY/NJzCyY
3EWUuJeU0Nt3SLA0lJWVi1VRUQk+XyBWdXUtauvqwSN9XG4xybwUVVUC1NbWQSAQkjZfbF9cXIKmpmbU
EdvUtHTcuhWKR48GxfEdHA5zSfUKrK2tc7eOOHeS6bhzJwx9ff0YH58gG20Iw8MjGBl9AtEeGBsbF0u0
LFOTv2GS1KJr0dgosRkZGcHjoSHxBu3pER13e0nfqHjGiu8Vo40cc9esWVs4CybFVV9PD7a2tti/f//s
tPwdZWhoGPZ29ti3dy/MzMxEsB9J9yz4baLB9zZuwob3NoK1mIVVpquwafMm7NmzB3b2dnA94QpvH2/4
+/sjKCiITN8t3L5zm9Q3ce3aNbKh/MgL4iyOOx3HgYMHYLnDEu+ssxDHIk8raa8XgUQ6MAum0WhKUlJS
XvLytB5NTc2XklKvD3p/g+bNkwOdQQeDyZwisWNZLNbcc0zeJpSMjAxdWlr6A2VlZTcTE5OAnVY7Iw4d
OpTt7Oxc6e7u3nrmzJn+c+fODZF6/PTp05Oenp5TRL+JRPqmyNi4l5fXCKkHSObtHh4eVU5OTmybj23C
1q9bd3Hp0qWfE6i+kpLS3D+JP4ukpCQlLy9P0el0WbIeimS9GSSIXnBwsHlsbOyWrKys3Vwu9yCPx7MX
CARHhELhMT6ff7SiosJe1M9ms3fHxcVtJVNvTsDLra2tNczNzeWZTKbEvHnzXlNETFB/AFyHwBGvedXw
AAAAAElFTkSuQmCC
</value>
</data>
<data name="btnEORIPruef.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAASwAAAEsCAYAAAB5fY51AAAABGdBTUEAALGPC/xhBQAAAAd0SU1FB9YD
@@ -1462,14 +1521,6 @@
kEEKgCAQRfVKeaaOEXSL6hbRNrC9dQ3PUd/IxagLGcZFA48PjjyYrzCd1vqWAC7TTog8wFiBTUUR7Igw
fK6ZIRVFsGsolKCtEFl7cmneGpBEuIGeyZoJJSBCpAcXE18Sindow4LJngklIELk8j1wmEpC8Q5PMDNx
mVCCPwiVeQBaqAV4Jfq5XQAAAABJRU5ErkJggg==
</value>
</data>
<data name="btnDirektAnfuegen.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABQAAAAUCAYAAACNiR0NAAAABGdBTUEAALGPC/xhBQAAAIdJREFUOE/V
kEEKgCAQRfVKeaaOEXSL6hbRNrC9dQ3PUd/IxagLGcZFA48PjjyYrzCd1vqWAC7TTog8wFiBTUUR7Igw
fK6ZIRVFsGsolKCtEFl7cmneGpBEuIGeyZoJJSBCpAcXE18Sindow4LJngklIELk8j1wmEpC8Q5PMDNx
mVCCPwiVeQBaqAV4Jfq5XQAAAABJRU5ErkJggg==
</value>
</data>
<data name="btnImportAssi.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">

196
Aviso/frmSendungsdetailsNEU.vb
View File

@@ -209,7 +209,7 @@ Public Class frmSendungsdetailsNEU
initDataBinding()
End If
'bsSendungen.Position = tmpsendId ' bsSendungen.Find("tblSnd_SendungID", SendungID)
Catch ex As Exception : MsgBox(ex.Message) : End Try
Catch ex As Exception : VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) : End Try
e.Handled = True
e.SuppressKeyPress = True
End If
@@ -326,14 +326,18 @@ Public Class frmSendungsdetailsNEU
TabControl1.TabPages.Remove(tbZollabfertigung)
End If
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Vorauskasse", Me) Then
btnImportaviso.Visible = True
btnVorauszahlung.Visible = True
' ToolStripMenuItem13.Enabled = True
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("AVISO_ANHAENGE_QuickScan", Me) Then
btnQuckScan.Visible = True
End If
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Vorauskasse", Me) Then
btnImportaviso.Visible = True
btnVorauszahlung.Visible = True
' ToolStripMenuItem13.Enabled = True
End If
cboFiliale._allowFreiText = Nothing
cboFiliale._allowFreiText = Nothing
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER
Case "FRONTOFFICE"
cboFiliale._allowFreiText = Nothing
@@ -487,7 +491,7 @@ Public Class frmSendungsdetailsNEU
'If RadioButton.Checked Then initKundenzolltarifChecked(txtAuftraggeber)
If cboZolltarif._value = 0 Then initKundenzolltarifChecked(txtAuftraggeber)
Catch ex As Exception
MsgBox(ex.Message & vbNewLine & ex.StackTrace)
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
initWarnKd_AndKdInfo(txtAuftraggeber, picWarnAuftraggeber)
@@ -566,7 +570,7 @@ Public Class frmSendungsdetailsNEU
Catch ex As Exception
closeWithoutSave = True
MsgBox("Fehler beim Laden der Sendungsdaten." & ex.Message & ex.StackTrace)
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,, "Fehler beim Laden der Sendungsdaten.")
Me.Close()
End Try
End Sub
@@ -650,7 +654,7 @@ Public Class frmSendungsdetailsNEU
End If
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
@@ -718,7 +722,7 @@ Public Class frmSendungsdetailsNEU
Catch ex As Exception
'evtl. bei poschanged fehler
MsgBox("BUTTON; " & ex.Message & ex.StackTrace)
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
End Sub
@@ -876,6 +880,15 @@ Public Class frmSendungsdetailsNEU
newRow.tblSnd_Colli = ""
newRow.tblSnd_Gewicht = ""
newRow.tblSnd_Colli = ""
newRow.tblSnd_VG_MA = Nothing
newRow.tblSnd_Vorgeschrieben = Nothing
newRow.tblSnd_QS_MA = Nothing
newRow.tblSnd_Vorbereitet = Nothing
newRow.tblSnd_AbklaerungTR = Nothing
newRow.tblSnd_AbklaerungTR_MA = Nothing
newRow.tblSnd_SendungID = -1
newRow.ABRECHNUNG.Clear()
SENDUNG_LIST.Add(newRow)
@@ -1215,7 +1228,7 @@ Public Class frmSendungsdetailsNEU
pnlT1.Controls.Add(usrcntl_ATA)
Case 44
usrcntl_ATB.txtATBT1.Text = loadValue(SENDUNG_LIST(CURRENT_INDEX).tblSnd_ATB_T1, "")
usrcntl_ATB.txtATbNr.Text = loadValue(SENDUNG_LIST(CURRENT_INDEX).tblSnd_ATB_Nr, "")
usrcntl_ATB.txtATBNr.Text = loadValue(SENDUNG_LIST(CURRENT_INDEX).tblSnd_ATB_Nr, "")
pnlT1.Controls.Add(usrcntl_ATB)
End Select
@@ -1269,7 +1282,7 @@ Public Class frmSendungsdetailsNEU
'SAVE_ME ??????!!!!!!!
Catch ex As Exception
MsgBox("ERR: " & ex.Message & ex.StackTrace)
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
loaded = True
' Me.Enabled = True
@@ -1361,7 +1374,7 @@ Public Class frmSendungsdetailsNEU
lblgesGewicht.Text = If(gesGewicht = 0, "-", gesGewicht.ToString("N1")) & " kg"
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 binddata(o As Object, bindingParam As String, bindingSource As BindingSource, dataName As String, Optional bindingNullValue As Object = Nothing, Optional formatString As String = "")
@@ -1595,7 +1608,7 @@ Public Class frmSendungsdetailsNEU
SENDUNG_LIST(CURRENT_INDEX).tblSnd_Vorpapier3 = cboVorpapier3.Text.Trim
SENDUNG_LIST(CURRENT_INDEX).tblSnd_Vorpapier3_Pos = txtVorpapier3Pos.Text.Trim
SENDUNG_LIST(CURRENT_INDEX).tblSnd_anzahlHandling = txtAnzahlPos.Text.Trim
'SENDUNG_LIST(CURRENT_INDEX).tblSnd_anzahlPOS = txtAnzahlPos.Text.Trim
End Sub
@@ -1732,7 +1745,7 @@ Public Class frmSendungsdetailsNEU
Catch ex As Exception
MsgBox("Fehler beim initialisieren der Drucker!" & ex.Message & ex.StackTrace)
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,, "Fehler beim initialisieren der Drucker!")
End Try
End Sub
@@ -1987,12 +2000,25 @@ Public Class frmSendungsdetailsNEU
End If
Button4.Enabled = btnLeihgeld.Enabled
cntlAvisierer_Eust.Visible = True
cntlAuftr_Eust.Visible = True
cntlEmpf_Eust.Visible = True
cntlAbsender_Eust.Visible = True
cntlFrachtf_Eust.Visible = True
pnlT1.Controls.Clear()
Select Case cboAbfertigungsart._value
Case "5", "6", "24", "33", "34"
pnlT1.Controls.Add(usrcntl_NCTS)
Case "26", "28"
pnlT1.Controls.Add(usrcntl_FISKAL)
cntlAvisierer_Eust.value = "" : cntlAvisierer_Eust.Visible = False
cntlAuftr_Eust.value = "" : cntlAuftr_Eust.Visible = False
cntlEmpf_Eust.value = "" : cntlEmpf_Eust.Visible = False
cntlAbsender_Eust.value = "" : cntlAbsender_Eust.Visible = False
cntlFrachtf_Eust.value = "" : cntlFrachtf_Eust.Visible = False
Case "23"
pnlT1.Controls.Add(usrcntl_ATA)
Case "44"
@@ -2031,7 +2057,7 @@ Public Class frmSendungsdetailsNEU
End With
Catch ex As Exception
MsgBox("Offert-ERR: " & ex.Message)
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
End Sub
@@ -2089,7 +2115,7 @@ Public Class frmSendungsdetailsNEU
End With
Catch ex As Exception
MsgBox("Belege-ERR: " & ex.Message)
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
End Sub
@@ -3108,7 +3134,7 @@ Public Class frmSendungsdetailsNEU
End If
SAVE_ME()
Catch ex As Exception
MsgBox(ex.Message)
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
initDataBinding()
End Sub
@@ -3466,7 +3492,7 @@ Public Class frmSendungsdetailsNEU
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
Me.Cursor = Cursors.Default
' frmNacherfassung.showAll()
@@ -3595,10 +3621,10 @@ Public Class frmSendungsdetailsNEU
Private Sub tbcntr_SelectedIndexChanged(sender As Object, e As EventArgs) Handles tbcntr.SelectedIndexChanged
If tbcntr.SelectedTab Is tbVorkosten Then
initDGVVorkosten
initDGVVorkosten()
ElseIf tbcntr.SelectedTab Is tbBAR Then
initDGVBelege()
End If
End If
End Sub
Sub initDGVVorkosten()
@@ -3627,11 +3653,16 @@ Public Class frmSendungsdetailsNEU
Try
If TabControl1.SelectedTab Is tbAnhang Then
If dgvAnhang.SelectedRows.Count > 0 Then
Process.Start(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(dgvAnhang.SelectedRows(0).Cells("anh_docId").Value))
Dim docPath = VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(dgvAnhang.SelectedRows(0).Cells("anh_docId").Value)
If Not IO.File.Exists(docPath) Then
MsgBox("Die Datei existiert nicht!")
Else
Process.Start(docPath)
End If
End If
End If
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
@@ -3741,11 +3772,11 @@ Public Class frmSendungsdetailsNEU
Mail.Display()
Catch ex As Exception
MsgBox("Fehler beim Öffnen der Mail!")
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,, "Fehler beim Öffnen der Mail!")
End Try
End If
Catch ex As Exception
MsgBox("Fehler beim Öffnen der Mail!")
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,, "Fehler beim Öffnen der Mail!")
End Try
End Sub
@@ -3807,7 +3838,7 @@ Public Class frmSendungsdetailsNEU
Process.Start(outputFile)
' VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.OPEN_PATH()
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 If
End Sub
@@ -3909,11 +3940,11 @@ Public Class frmSendungsdetailsNEU
Mail.Display()
Catch ex As Exception
MsgBox("Fehler beim Öffnen der Mail!")
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,, "Fehler beim Öffnen der Mail!")
End Try
End If
Catch ex As Exception
MsgBox("Fehler beim Öffnen der Mail!")
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,, "Fehler beim Öffnen der Mail!")
End Try
End Sub
@@ -4030,7 +4061,7 @@ Public Class frmSendungsdetailsNEU
Case 1 : btnUIDPruef.BackgroundImage = My.Resources.del
End Select
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
Me.Cursor = Cursors.Default
End Sub
@@ -4064,7 +4095,7 @@ Public Class frmSendungsdetailsNEU
Case 1 : btnEORIPruef.BackgroundImage = My.Resources.del
End Select
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
Me.Cursor = Cursors.Default
@@ -4095,7 +4126,7 @@ Public Class frmSendungsdetailsNEU
'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
'Me.Cursor = Cursors.Default
End Sub
@@ -4196,7 +4227,7 @@ Public Class frmSendungsdetailsNEU
initDGVVorkosten()
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
@@ -4216,7 +4247,7 @@ Public Class frmSendungsdetailsNEU
Dim VK_ID = -1
Private Sub dgvVorkosten_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvVorkosten.CellDoubleClick, dgvVorkosten.CellContentDoubleClick
If e.RowIndex >=0 Then
If e.RowIndex >= 0 Then
Try
' Dim VK = SENDUNG_LIST(CURRENT_INDEX).VORKOSTEN.Find(Function(x) x.sndvk_id = dgvVorkosten.SelectedRows(0).Cells("clmnVK_id").Value)
Dim VK = SENDUNG_LIST(CURRENT_INDEX).VORKOSTEN(dgvVorkosten.SelectedRows(0).Cells("clmnVK_id").Value)
@@ -4229,7 +4260,7 @@ Public Class frmSendungsdetailsNEU
btnVorkostenAdd.BackgroundImage = My.Resources.stift
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 If
End Sub
@@ -4280,8 +4311,8 @@ Public Class frmSendungsdetailsNEU
End While
My.Computer.FileSystem.WriteAllBytes(Path, My.Resources.ATANAK_Instructions_Import, False)
Catch ex As System.Exception
' MsgBox(ex.Message)
MsgBox("ERROR 01: " & ex.Message & vbNewLine & ex.StackTrace)
' VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
Me.Cursor = Cursors.Default
Exit Sub
@@ -4329,7 +4360,7 @@ Public Class frmSendungsdetailsNEU
End If
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
Me.Cursor = Cursors.Default
End Sub
@@ -4363,8 +4394,8 @@ Public Class frmSendungsdetailsNEU
End While
My.Computer.FileSystem.WriteAllBytes(Path, My.Resources.ATANAK_Instructions_Export, False)
Catch ex As System.Exception
' MsgBox(ex.Message)
MsgBox("ERROR 01: " & ex.Message & vbNewLine & ex.StackTrace)
' VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
Me.Cursor = Cursors.Default
Exit Sub
@@ -4411,7 +4442,7 @@ Public Class frmSendungsdetailsNEU
End If
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
Me.Cursor = Cursors.Default
End Sub
@@ -4445,8 +4476,9 @@ Public Class frmSendungsdetailsNEU
End While
My.Computer.FileSystem.WriteAllBytes(Path, My.Resources.ATANAK_Instructions_Export_T1, False)
Catch ex As System.Exception
' MsgBox(ex.Message)
MsgBox("ERROR 01: " & ex.Message & vbNewLine & ex.StackTrace)
' VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
Me.Cursor = Cursors.Default
Exit Sub
@@ -4492,7 +4524,7 @@ Public Class frmSendungsdetailsNEU
End If
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
Me.Cursor = Cursors.Default
End Sub
@@ -4539,12 +4571,86 @@ Public Class frmSendungsdetailsNEU
Mail.Display()
Catch ex As Exception
MsgBox("Fehler beim Öffnen der Mail!")
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,, "Fehler beim Öffnen der Mail!")
End Try
End If
Catch ex As Exception
MsgBox("Fehler beim Öffnen der Mail!")
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,, "Fehler beim Öffnen der Mail!")
End Try
End Sub
Private Sub btnQuckScan_Click(sender As Object, e As EventArgs) Handles btnQuckScan.Click
Try
Me.Cursor = Cursors.WaitCursor
If frmSendungAnhangImport.quickScan(AvisoId, SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID) Then
initAnhang()
End If
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,, "Fehler QuickScan")
End Try
Me.Cursor = Cursors.Default
End Sub
Private Sub ToolStripMenuItem22_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem22.Click
' VERAG_PROG_ALLGEMEIN.cMIC.send_MIC_AvisoSendung(AVISO, SENDUNG_LIST(CURRENT_INDEX))
End Sub
Private Sub ToolStripMenuItem23_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem23.Click
SAVE_ME()
If Not IsNumeric(SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr) OrElse CInt(SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr) < 100000 Then MsgBox("Abfertigungsnummer angeben!") : Exit Sub
Dim frMZA As New SDL.frmZollanmeldung("T1", Nothing, AVISO, SENDUNG_LIST(CURRENT_INDEX), Now.ToString("yy"), "MIC")
frMZA.Show()
AddHandler frMZA.FormClosed, Sub()
initdgvZollAnmeldungen()
End Sub
End Sub
Private Sub AbrechungFremdeGrenzeAktDruckenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AbrechungFremdeGrenzeAktDruckenToolStripMenuItem.Click
Dim SENDUNG = SENDUNG_LIST(CURRENT_INDEX)
If IsNumeric(SENDUNG.AbfertigungsNr) AndAlso CInt(SENDUNG.AbfertigungsNr) > 100000 Then
Else
MsgBox("Abfertigungsnummer angeben!")
Exit Sub
End If
If Not SENDUNG.tblSnd_Fremdspedition And SENDUNG.tblSnd_Abfertigungsart_ID <= 0 Then
MsgBox("Abfertigungsart angeben!")
Exit Sub
End If
Dim Printername = ""
Dim oPS As New System.Drawing.Printing.PrinterSettings
Try
Printername = oPS.PrinterName
Catch ex As System.Exception
End Try
'Aktendeckel
SendungOptions.PrintSendung("PRINT", Me.SENDUNG_LIST(CURRENT_INDEX), Me.AVISO, Printername, If(sender Is LaufzettelDruckenToolStripMenuItem, "LAUFZETTEL", "AKT"), SENDUNG_LIST.Count)
'Steuerbescheide drucken
Dim SP_LIST As New VERAG_PROG_ALLGEMEIN.cSpeditionsbuchList(SENDUNG.FilialenNr, SENDUNG.AbfertigungsNr)
For Each s In SP_LIST.LIST
If s.DokumentId_Steuerbeleg IsNot Nothing AndAlso s.DokumentId_Steuerbeleg > 0 Then
VERAG_PROG_ALLGEMEIN.cFormularManager.PrintViaSpirePDF({VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(s.DokumentId_Steuerbeleg)})
End If
If s.DokumentId_Mitteilung IsNot Nothing AndAlso s.DokumentId_Mitteilung > 0 Then
VERAG_PROG_ALLGEMEIN.cFormularManager.PrintViaSpirePDF({VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(s.DokumentId_Mitteilung)})
End If
Next
'Handelsrechnungen
Dim ANH_LIST_SND As New List(Of VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge)
VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge.LOAD_LIST_BySendung(ANH_LIST_SND, SENDUNG.tblSnd_SendungID) 'LÄDT alle Aviso-Anhänge
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)})
End Select
Next
End Sub
End Class

13
Aviso/frmZollstopp.Designer.vb generated
View File

@@ -32,6 +32,7 @@ Partial Class frmZollstopp
Me.btnOffnen = New System.Windows.Forms.Button()
Me.Label3 = New System.Windows.Forms.Label()
Me.rtbAbsender = New VERAG_PROG_ALLGEMEIN.MyRichTextBox()
Me.lklEmpfangerUbernehmen = New System.Windows.Forms.LinkLabel()
Me.SuspendLayout()
'
'rtbZollstop
@@ -139,12 +140,23 @@ Partial Class frmZollstopp
Me.rtbAbsender.TabIndex = 1
Me.rtbAbsender.Text = ""
'
'lklEmpfangerUbernehmen
'
Me.lklEmpfangerUbernehmen.AutoSize = True
Me.lklEmpfangerUbernehmen.Location = New System.Drawing.Point(413, 260)
Me.lklEmpfangerUbernehmen.Name = "lklEmpfangerUbernehmen"
Me.lklEmpfangerUbernehmen.Size = New System.Drawing.Size(120, 13)
Me.lklEmpfangerUbernehmen.TabIndex = 9
Me.lklEmpfangerUbernehmen.TabStop = True
Me.lklEmpfangerUbernehmen.Text = "Empfänger übernehmen"
'
'frmZollstopp
'
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(551, 626)
Me.Controls.Add(Me.lklEmpfangerUbernehmen)
Me.Controls.Add(Me.Label3)
Me.Controls.Add(Me.rtbAbsender)
Me.Controls.Add(Me.btnOffnen)
@@ -172,4 +184,5 @@ Partial Class frmZollstopp
Friend WithEvents btnOffnen As Button
Friend WithEvents Label3 As Label
Friend WithEvents rtbAbsender As VERAG_PROG_ALLGEMEIN.MyRichTextBox
Friend WithEvents lklEmpfangerUbernehmen As LinkLabel
End Class

5
Aviso/frmZollstopp.vb
View File

@@ -13,7 +13,6 @@
Private Sub frmZollstopp_Load(sender As Object, e As EventArgs) Handles Me.Load
If SND Is Nothing Then Me.Close()
rtbAbsender.Text = SND.tblSnd_Absender
rtbEntladestelle.Text = SND.getEmpfaengerAdress()
rtbZollstop.Text = SND.getNCTSAdress()
End Sub
@@ -31,4 +30,8 @@
End Try
Me.Cursor = DefaultCursor
End Sub
Private Sub lklEmpfangerUbernehmen_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles lklEmpfangerUbernehmen.LinkClicked
rtbEntladestelle.Text = SND.getEmpfaengerAdress()
End Sub
End Class

18
Aviso/usrCntlBenachrichtigungen.vb
View File

@@ -49,7 +49,7 @@
whereMA &= " ) "
Dim sqlStr As String = "SELECT tblAvisoBenachrichtigungen.*, LKW_Nr, Status FROM [tblAvisoBenachrichtigungen] INNER JOIN AVISO on AvisoId=ab_AvisoID WHERE ab_status=0 " & whereMA & " ORDER BY ANKUNFT desc,ab_Datum ASC"
Dim sqlStr As String = "SELECT tblAvisoBenachrichtigungen.*, LKW_Nr, Status FROM [tblAvisoBenachrichtigungen] INNER JOIN AVISO on AvisoId=ab_AvisoID WHERE ab_status=0 " & whereMA & " ORDER BY CASE WHEN ANKUNFT <'01.01.2001' THEN '01.01.2999' ELSE ANKUNFT end ASC,ab_Datum ASC"
Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
@@ -184,6 +184,22 @@
'NEIN; weils zB Waidhaus dann alles sieht und übernimmt
'If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER IsNot Nothing Then
' If CInt(If(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId, "-1")) <= 0 Then cbxTeams.Checked = True
'End If
'Nur VERIMEX
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "VERIMEX"
If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER IsNot Nothing Then
If CInt(If(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId, "-1")) <= 0 Then cbxTeams.Checked = True
End If
Case "ATILLA"
cbxCluster.Visible = False
cbxTeams.Visible = False
End Select
' MyComboBox2.changeItem(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId)
End Sub

156
Aviso/usrcntlAktDetails.Designer.vb generated
View File

@@ -62,10 +62,12 @@ Partial Class usrcntlAktDetails
Me.btn = New System.Windows.Forms.Button()
Me.dgvSendungen = New System.Windows.Forms.DataGridView()
Me.Panel7 = New System.Windows.Forms.Panel()
Me.btnQuckScan = New System.Windows.Forms.Button()
Me.picArrowDown = New System.Windows.Forms.PictureBox()
Me.Panel4 = New System.Windows.Forms.Panel()
Me.Button2 = New System.Windows.Forms.Button()
Me.cbxVPSplit = New System.Windows.Forms.CheckBox()
Me.Button15 = New System.Windows.Forms.Button()
Me.btnLZDruckDIGITAL = New System.Windows.Forms.Button()
Me.btnSendungslisteUNISPED = New System.Windows.Forms.Button()
Me.cbxAlleFirmen = New System.Windows.Forms.CheckBox()
Me.Button12 = New System.Windows.Forms.Button()
@@ -74,7 +76,7 @@ Partial Class usrcntlAktDetails
Me.cboFormulareRgAn = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.Label4 = New System.Windows.Forms.Label()
Me.Button8 = New System.Windows.Forms.Button()
Me.Button10 = New System.Windows.Forms.Button()
Me.btnLZDruck = New System.Windows.Forms.Button()
Me.Button9 = New System.Windows.Forms.Button()
Me.btnKasse_LG = New System.Windows.Forms.Button()
Me.cbxLZRg = New VERAG_PROG_ALLGEMEIN.MyCheckbox(Me.components)
@@ -154,6 +156,7 @@ Partial Class usrcntlAktDetails
Me.DispolisteTRToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.DispolisteENToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.pnlOptionen = New System.Windows.Forms.Panel()
Me.btnWlanTicket = New System.Windows.Forms.Button()
Me.Button13 = New System.Windows.Forms.Button()
Me.Button14 = New System.Windows.Forms.Button()
Me.btnLöschen = New System.Windows.Forms.Button()
@@ -239,6 +242,7 @@ Partial Class usrcntlAktDetails
'
'SplitContainer.Panel2
'
Me.SplitContainer.Panel2.Controls.Add(Me.btnQuckScan)
Me.SplitContainer.Panel2.Controls.Add(Me.picArrowDown)
Me.SplitContainer.Panel2.Controls.Add(Me.Panel4)
Me.SplitContainer.Panel2.Controls.Add(Me.Button18)
@@ -247,7 +251,7 @@ Partial Class usrcntlAktDetails
Me.SplitContainer.Panel2.Controls.Add(Me.addVermerk)
Me.SplitContainer.Panel2.Controls.Add(Me.pnlMAInfo)
Me.SplitContainer.Size = New System.Drawing.Size(575, 496)
Me.SplitContainer.SplitterDistance = 230
Me.SplitContainer.SplitterDistance = 228
Me.SplitContainer.TabIndex = 91
'
'pnlAlt
@@ -260,7 +264,7 @@ Partial Class usrcntlAktDetails
Me.pnlAlt.Dock = System.Windows.Forms.DockStyle.Fill
Me.pnlAlt.Location = New System.Drawing.Point(0, 0)
Me.pnlAlt.Name = "pnlAlt"
Me.pnlAlt.Size = New System.Drawing.Size(575, 230)
Me.pnlAlt.Size = New System.Drawing.Size(575, 228)
Me.pnlAlt.TabIndex = 72
Me.pnlAlt.Visible = False
'
@@ -589,6 +593,7 @@ Partial Class usrcntlAktDetails
DataGridViewCellStyle2.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvSendungen.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle2
Me.dgvSendungen.ColumnHeadersHeight = 34
Me.dgvSendungen.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.DisableResizing
DataGridViewCellStyle3.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle3.BackColor = System.Drawing.SystemColors.Window
@@ -612,6 +617,7 @@ Partial Class usrcntlAktDetails
DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvSendungen.RowHeadersDefaultCellStyle = DataGridViewCellStyle4
Me.dgvSendungen.RowHeadersVisible = False
Me.dgvSendungen.RowHeadersWidth = 62
Me.dgvSendungen.RowHeadersWidthSizeMode = System.Windows.Forms.DataGridViewRowHeadersWidthSizeMode.DisableResizing
DataGridViewCellStyle5.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvSendungen.RowsDefaultCellStyle = DataGridViewCellStyle5
@@ -621,7 +627,7 @@ Partial Class usrcntlAktDetails
Me.dgvSendungen.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.dgvSendungen.ShowCellErrors = False
Me.dgvSendungen.ShowRowErrors = False
Me.dgvSendungen.Size = New System.Drawing.Size(575, 230)
Me.dgvSendungen.Size = New System.Drawing.Size(575, 228)
Me.dgvSendungen.TabIndex = 71
Me.dgvSendungen.TabStop = False
'
@@ -633,16 +639,31 @@ Partial Class usrcntlAktDetails
Me.Panel7.Location = New System.Drawing.Point(4, 19)
Me.Panel7.MaximumSize = New System.Drawing.Size(2, 250)
Me.Panel7.Name = "Panel7"
Me.Panel7.Size = New System.Drawing.Size(1, 105)
Me.Panel7.Size = New System.Drawing.Size(1, 103)
Me.Panel7.TabIndex = 15
'
'btnQuckScan
'
Me.btnQuckScan.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.btnQuckScan.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnQuckScan.Image = CType(resources.GetObject("btnQuckScan.Image"), System.Drawing.Image)
Me.btnQuckScan.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnQuckScan.Location = New System.Drawing.Point(468, 194)
Me.btnQuckScan.Name = "btnQuckScan"
Me.btnQuckScan.Size = New System.Drawing.Size(107, 34)
Me.btnQuckScan.TabIndex = 107
Me.btnQuckScan.Text = "Quick-Scan"
Me.btnQuckScan.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnQuckScan.UseVisualStyleBackColor = True
Me.btnQuckScan.Visible = False
'
'picArrowDown
'
Me.picArrowDown.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.picArrowDown.BackgroundImage = Global.AVISO.My.Resources.Resources.arrow_down_orange
Me.picArrowDown.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
Me.picArrowDown.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.picArrowDown.Location = New System.Drawing.Point(1, 225)
Me.picArrowDown.Location = New System.Drawing.Point(1, 226)
Me.picArrowDown.Name = "picArrowDown"
Me.picArrowDown.Size = New System.Drawing.Size(34, 34)
Me.picArrowDown.TabIndex = 104
@@ -654,8 +675,9 @@ Partial Class usrcntlAktDetails
Me.Panel4.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Panel4.BackColor = System.Drawing.Color.PapayaWhip
Me.Panel4.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.Panel4.Controls.Add(Me.Button2)
Me.Panel4.Controls.Add(Me.cbxVPSplit)
Me.Panel4.Controls.Add(Me.Button15)
Me.Panel4.Controls.Add(Me.btnLZDruckDIGITAL)
Me.Panel4.Controls.Add(Me.btnSendungslisteUNISPED)
Me.Panel4.Controls.Add(Me.cbxAlleFirmen)
Me.Panel4.Controls.Add(Me.Button12)
@@ -664,20 +686,39 @@ Partial Class usrcntlAktDetails
Me.Panel4.Controls.Add(Me.cboFormulareRgAn)
Me.Panel4.Controls.Add(Me.Label4)
Me.Panel4.Controls.Add(Me.Button8)
Me.Panel4.Controls.Add(Me.Button10)
Me.Panel4.Controls.Add(Me.btnLZDruck)
Me.Panel4.Controls.Add(Me.Button9)
Me.Panel4.Controls.Add(Me.btnKasse_LG)
Me.Panel4.Controls.Add(Me.cbxLZRg)
Me.Panel4.Controls.Add(Me.cbxLZT1)
Me.Panel4.Location = New System.Drawing.Point(204, 27)
Me.Panel4.Location = New System.Drawing.Point(203, 27)
Me.Panel4.Name = "Panel4"
Me.Panel4.Size = New System.Drawing.Size(265, 227)
Me.Panel4.TabIndex = 102
Me.Panel4.Visible = False
'
'Button2
'
Me.Button2.BackColor = System.Drawing.Color.White
Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button2.ForeColor = System.Drawing.Color.Black
Me.Button2.Image = Global.AVISO.My.Resources.Resources.spedbuch_small
Me.Button2.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button2.Location = New System.Drawing.Point(52, 166)
Me.Button2.Margin = New System.Windows.Forms.Padding(0)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(76, 20)
Me.Button2.TabIndex = 117
Me.Button2.Text = "TEST"
Me.Button2.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.Button2.UseVisualStyleBackColor = False
Me.Button2.Visible = False
'
'cbxVPSplit
'
Me.cbxVPSplit.AutoSize = True
Me.cbxVPSplit.Checked = True
Me.cbxVPSplit.CheckState = System.Windows.Forms.CheckState.Checked
Me.cbxVPSplit.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cbxVPSplit.Location = New System.Drawing.Point(207, 5)
Me.cbxVPSplit.Name = "cbxVPSplit"
@@ -686,22 +727,22 @@ Partial Class usrcntlAktDetails
Me.cbxVPSplit.Text = "je VP"
Me.cbxVPSplit.UseVisualStyleBackColor = True
'
'Button15
'btnLZDruckDIGITAL
'
Me.Button15.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Button15.BackColor = System.Drawing.Color.White
Me.Button15.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button15.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
Me.Button15.ForeColor = System.Drawing.Color.Black
Me.Button15.Image = Global.AVISO.My.Resources.Resources.digitalerAkt_small
Me.Button15.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button15.Location = New System.Drawing.Point(134, 57)
Me.Button15.Name = "Button15"
Me.Button15.Size = New System.Drawing.Size(128, 36)
Me.Button15.TabIndex = 113
Me.Button15.Text = "Laufzettel" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "DIGITAL"
Me.Button15.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.Button15.UseVisualStyleBackColor = False
Me.btnLZDruckDIGITAL.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.btnLZDruckDIGITAL.BackColor = System.Drawing.Color.White
Me.btnLZDruckDIGITAL.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnLZDruckDIGITAL.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
Me.btnLZDruckDIGITAL.ForeColor = System.Drawing.Color.Black
Me.btnLZDruckDIGITAL.Image = Global.AVISO.My.Resources.Resources.digitalerAkt_small
Me.btnLZDruckDIGITAL.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnLZDruckDIGITAL.Location = New System.Drawing.Point(134, 57)
Me.btnLZDruckDIGITAL.Name = "btnLZDruckDIGITAL"
Me.btnLZDruckDIGITAL.Size = New System.Drawing.Size(128, 36)
Me.btnLZDruckDIGITAL.TabIndex = 113
Me.btnLZDruckDIGITAL.Text = "Laufzettel" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "DIGITAL"
Me.btnLZDruckDIGITAL.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnLZDruckDIGITAL.UseVisualStyleBackColor = False
'
'btnSendungslisteUNISPED
'
@@ -819,21 +860,21 @@ Partial Class usrcntlAktDetails
Me.Button8.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.Button8.UseVisualStyleBackColor = False
'
'Button10
'btnLZDruck
'
Me.Button10.BackColor = System.Drawing.Color.White
Me.Button10.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button10.ForeColor = System.Drawing.Color.Black
Me.Button10.Image = Global.AVISO.My.Resources.Resources.spedbuch_small
Me.Button10.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button10.Location = New System.Drawing.Point(134, 22)
Me.Button10.Margin = New System.Windows.Forms.Padding(0)
Me.Button10.Name = "Button10"
Me.Button10.Size = New System.Drawing.Size(128, 36)
Me.Button10.TabIndex = 6
Me.Button10.Text = "Laufzettel" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Zoll DE"
Me.Button10.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.Button10.UseVisualStyleBackColor = False
Me.btnLZDruck.BackColor = System.Drawing.Color.White
Me.btnLZDruck.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnLZDruck.ForeColor = System.Drawing.Color.Black
Me.btnLZDruck.Image = Global.AVISO.My.Resources.Resources.spedbuch_small
Me.btnLZDruck.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnLZDruck.Location = New System.Drawing.Point(134, 22)
Me.btnLZDruck.Margin = New System.Windows.Forms.Padding(0)
Me.btnLZDruck.Name = "btnLZDruck"
Me.btnLZDruck.Size = New System.Drawing.Size(128, 36)
Me.btnLZDruck.TabIndex = 6
Me.btnLZDruck.Text = "Laufzettel" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Zoll DE"
Me.btnLZDruck.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnLZDruck.UseVisualStyleBackColor = False
'
'Button9
'
@@ -901,9 +942,9 @@ Partial Class usrcntlAktDetails
Me.Button18.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button18.Image = CType(resources.GetObject("Button18.Image"), System.Drawing.Image)
Me.Button18.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button18.Location = New System.Drawing.Point(446, 225)
Me.Button18.Location = New System.Drawing.Point(447, 226)
Me.Button18.Name = "Button18"
Me.Button18.Size = New System.Drawing.Size(129, 34)
Me.Button18.Size = New System.Drawing.Size(128, 34)
Me.Button18.TabIndex = 103
Me.Button18.Text = "Import-Assistent ..."
Me.Button18.TextAlign = System.Drawing.ContentAlignment.MiddleRight
@@ -927,6 +968,7 @@ Partial Class usrcntlAktDetails
DataGridViewCellStyle7.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle7.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.gridVermerke.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle7
Me.gridVermerke.ColumnHeadersHeight = 34
Me.gridVermerke.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.DisableResizing
DataGridViewCellStyle8.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle8.BackColor = System.Drawing.SystemColors.Window
@@ -950,6 +992,7 @@ Partial Class usrcntlAktDetails
DataGridViewCellStyle9.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.gridVermerke.RowHeadersDefaultCellStyle = DataGridViewCellStyle9
Me.gridVermerke.RowHeadersVisible = False
Me.gridVermerke.RowHeadersWidth = 62
Me.gridVermerke.RowHeadersWidthSizeMode = System.Windows.Forms.DataGridViewRowHeadersWidthSizeMode.DisableResizing
DataGridViewCellStyle10.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.gridVermerke.RowsDefaultCellStyle = DataGridViewCellStyle10
@@ -959,7 +1002,7 @@ Partial Class usrcntlAktDetails
Me.gridVermerke.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.gridVermerke.ShowCellErrors = False
Me.gridVermerke.ShowRowErrors = False
Me.gridVermerke.Size = New System.Drawing.Size(575, 204)
Me.gridVermerke.Size = New System.Drawing.Size(575, 206)
Me.gridVermerke.TabIndex = 70
Me.gridVermerke.TabStop = False
'
@@ -1107,7 +1150,7 @@ Partial Class usrcntlAktDetails
Me.pnlMAInfo.Controls.Add(Me.txtMAinfo_Vorgeschrieben)
Me.pnlMAInfo.Controls.Add(Me.txtMAinfo_VorbereitetQs)
Me.pnlMAInfo.Dock = System.Windows.Forms.DockStyle.Bottom
Me.pnlMAInfo.Location = New System.Drawing.Point(0, 234)
Me.pnlMAInfo.Location = New System.Drawing.Point(0, 236)
Me.pnlMAInfo.Name = "pnlMAInfo"
Me.pnlMAInfo.Size = New System.Drawing.Size(575, 28)
Me.pnlMAInfo.TabIndex = 106
@@ -1889,6 +1932,7 @@ Partial Class usrcntlAktDetails
Me.pnlOptionen.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.pnlOptionen.BackColor = System.Drawing.Color.Black
Me.pnlOptionen.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.pnlOptionen.Controls.Add(Me.btnWlanTicket)
Me.pnlOptionen.Controls.Add(Me.Button13)
Me.pnlOptionen.Controls.Add(Me.Button14)
Me.pnlOptionen.Controls.Add(Me.btnLöschen)
@@ -1900,6 +1944,22 @@ Partial Class usrcntlAktDetails
Me.pnlOptionen.TabIndex = 82
Me.pnlOptionen.Visible = False
'
'btnWlanTicket
'
Me.btnWlanTicket.BackColor = System.Drawing.Color.White
Me.btnWlanTicket.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnWlanTicket.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
Me.btnWlanTicket.ForeColor = System.Drawing.Color.Black
Me.btnWlanTicket.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnWlanTicket.Location = New System.Drawing.Point(3, 151)
Me.btnWlanTicket.Name = "btnWlanTicket"
Me.btnWlanTicket.Size = New System.Drawing.Size(109, 28)
Me.btnWlanTicket.TabIndex = 103
Me.btnWlanTicket.TabStop = False
Me.btnWlanTicket.Text = "WLAN Ticket"
Me.btnWlanTicket.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnWlanTicket.UseVisualStyleBackColor = False
'
'Button13
'
Me.Button13.BackColor = System.Drawing.Color.White
@@ -1980,8 +2040,7 @@ Partial Class usrcntlAktDetails
'
'usrcntlAktDetails
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Dpi
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.None
Me.Controls.Add(Me.pnlOptionen)
Me.Controls.Add(Me.pnlDetailsRechts)
Me.Name = "usrcntlAktDetails"
@@ -2138,7 +2197,7 @@ Partial Class usrcntlAktDetails
Friend WithEvents tbAnhang As TabPage
Friend WithEvents Button18 As Button
Friend WithEvents Button9 As Button
Friend WithEvents Button10 As Button
Friend WithEvents btnLZDruck As Button
Friend WithEvents cboFormulareRgAn As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents Label4 As Label
Friend WithEvents Button11 As Button
@@ -2160,8 +2219,11 @@ Partial Class usrcntlAktDetails
Friend WithEvents MitarbeiterAnzeigenToolStripMenuItem As ToolStripMenuItem
Friend WithEvents txtMAinfo_AbklaerungTR As TextBox
Friend WithEvents picMAinfo_AbklaerungTR As PictureBox
Friend WithEvents Button15 As Button
Friend WithEvents btnLZDruckDIGITAL As Button
Friend WithEvents cbxLZRg As VERAG_PROG_ALLGEMEIN.MyCheckbox
Friend WithEvents cbxLZT1 As VERAG_PROG_ALLGEMEIN.MyCheckbox
Friend WithEvents cbxVPSplit As CheckBox
Friend WithEvents Button2 As Button
Friend WithEvents btnQuckScan As Button
Friend WithEvents btnWlanTicket As Button
End Class

51
Aviso/usrcntlAktDetails.resx
View File

@@ -118,6 +118,57 @@
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="btnQuckScan.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAAB4AAAAeCAYAAAA7MK6iAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m
dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAApmSURBVEhLrZd3WFRHF8YvXWUJgtQtCihRqkGC6Ec0
xk4MJioaoiYSwEIEgoKIUSCJESWQxKBCsKCAofe+9F1pC+wuvTcpokiRFpSob2ZXA/nqP1/med6duTPn
nN89M3PvnaUAUGFht6mSslJxe3Jyclt+Qf6XqWmp59Mz0q+TOjwpOSkjKSkpLzEpMS8hMaEqPiG+iaiZ
tCuIRH25iYmJ2cQuLiU1JZT4hGRkZFzIyMzwzszMPPbw4cNdotgPWoWUo89lMUf8kx4fRhUW5Kv09vXH
NTU3oaWlBW1tbejo6EBnZye6u7tw/3437vfcR29PD3p7e2fV0zt33UPGuoldd3c3Ors6xf7t7e1obW3F
8MhoUVd18QoP35/nwNu+iqdu/hLS3MCvwOCDXtL1Ang5Q+rfX7X/z/L86RSejg8hJy3xmblrqAzpegVW
dUhYG3Q9FJwSHrKLysDhN4MjaJ1VkUj8FnCFbWKxi8qRmpWHtOw85HDKUVLTgbL6LpTWdoLX0I2Kph5U
NfdC2NaPmrY+COtbMDAwgMK8fBi5JX48C978ddqHafd4sA9mw8T2EpZutMWK9x2x3PK1th+F7tbDpD6G
ZZvtoKy/EfLaZpDXMoOS3gax/XLLY2KbN4mNyEfkv0JUk/5N7jdwNCSXJNCAIyGlJ2fBi5zYEvt/ZufZ
hhTAyDECEjQGGaH+iyRBySiAmr8I1DxlUNLy/8FmTpJKOjA5mYC9gTlwDOW2stwK5s+CVV2LqIVfpCmu
d7s9usbhCjRMPyIjBCBylpAmoAWQmK8ESQV1SC9kQEZ5MWQWaUFWeQlklBZDSpEOiQUqoGRpxEfqld9r
qRlugalDEHZ+HQNtj1wjBedcMVP8wziRQal5llOLHeMPLbOwxiK9d0DTsYCC7lYoG3wAFWMrqL61E2pE
6iYiWZH2DqgabYOKwSYoL18HRZ3VoLGMIaemCykFDRJZEhLScnhDxwzL138MQ/c0T+VTJRTTNVtyDuyS
S7FOFS5keAtlVd8/fU1SRu6lLMlKfokZaCKRtVTQXv0XkWstUzJmIoYtoOtDRlUXFI1OslaBjIoWmRUW
mQ0mZOQXQsvKLZHlU0OjnypcRHfOnMuY6VJIMd1yacyva2QZR6M+VNYxfaGktRLK2sZEK6GkZYyFS4yh
uNgYCqyVWMB4C3KMVZDUXAUJuhlklqyFov5maL97ALrbDmO+znqoGbwLDcMN0NB9G6zPbzhq+tRKEIaK
pkvaHFjTOVUElqJ7CajFey9E6JjugPbO89Dadw3MXYFQsboK1Y/I2u8OBHNfIJbaXIbR/gCsc7iMD8mO
PXIxEudusBGUWYsMYS+2u4eDWu2DJbv8obV6D1g73DiMs+ULmG55spouf8lY83g6RT9ZQDFPFSiu2HWm
33CXJ1ifJoD2bhSW7InEP1zisME9ETt9UnDw+wwcv5qDszfz4R9TjJC0SoTn1CC6oA4JRXXgVrej5tEU
9A6mgDILg/FnAdB/32WGeSJTj+7OoRjOeXNgulMmpe7GoXS+TFq7xsYbq1wjQP8kDjSzEKhv/BmH3P3g
5ncLJy6FwfNyDHyCU3DxDhs/RhUhOKkUYVl8xBFoRnkr8oSdePRkDLz6PtC2/4qF1tex/tNvoO2csEXd
rZhiOP3TrmZTSidLKOMvo+x3OPnjbe8MaOxNgOr2MMhaxWG17Q18ExSN01dT4HMjE34ReQiMu4eb6TxE
5lUjpbgJufx2lDT2orpzEM29IyQsUNE1DrUj8TC394PZybseyu48inmiaA6s6V5EKbhwKKvTIcEOl0Kx
yicfi6xioLYnCqr2mZDfF4cvLkQhOKEAAZFF+CWZZJnNR3xRPTJ55HVa043K1gdo6h1Gz9AkRqd/x/OX
YjZSGwax0vEKdntcKVQ7UUJYFXNgaTV98hToUhcu+fd5xXFg7FWENyx/hfpniWA4ZmL+sQIYOCUjPLkI
EWw+okiWqSVNyBN0oLSxDzVdg+h4OIbB8aeY/pP4l5Ih6AT5Kr3QWGaqKKVmMAcWlWXq841L8rMRmC+A
4Tku5C0joHk4DQxnNliexZA4UoBTIYWorG1BenkLOLX3UdU2l+XY9PP/+R1raOuGkY66tYhFLufA9nZ2
Xs9GHyG6ohm0z9LI43AdlE0SJOyyIOVYCMqJB+poLhK4jWjvf4yGnmEMPHmKp/+a4MuXeDg8iYrGB4hm
1+NiBA+JnGo8GR3G2bPnwv8NnJKcXCn69nLqurD1TCbeOZWFbb5cWAaUwfJyFaxu1MPIvxruJNDg8Bju
D46jc2AYnf2DqO/oI349iCnpwPeJ1Th67R62e2fB0IHsE+vbCEwuw8zUCAT8qkE5OTnpWbAaKePj46QJ
PH78GMOPB0hrBs+mJzA9OYaJ0SGMDw/iGWlX1jYj914lKgT1KKuqRTmpSwWNKKvrQDn5Ftd2DqD70ROM
Tk3jOYkyOTWBkeFhcWxRMTAwMCTVKzCLybJ4Qp69Fy9e4B6Xi9xsNspKilFOxCstRTW/CnU1QtQK+Wis
r0G1UIDGhga0t7WihRyVGurrUFctQENdDbERQFBVKfbjlZahmMsBp6gQ4xMTYrCpqan1LPjNN5cfmpiY
xLOZZ/juuwvw8PgK58/7wtfXD35+Abh6NQgxsTG4ezccsXExKCY31NLajGYC5XAKERMTjajoSNwJC8cP
P1wW+/j6XiKxfMWxfHy+FZ+/XpL137Jl67ezYAsLC7+Zmd8xPT2NwCtXcYWAIiOjER0di7j4eMTGxiM5
ORUpKSkEHIuEhHhkZ2cjJycH5FQJcgIlY6nENhHRMbEIC49AaWkJSoj8A34iN/MTOTR2ERRgY/NJzCyY
3EWUuJeU0Nt3SLA0lJWVi1VRUQk+XyBWdXUtauvqwSN9XG4xybwUVVUC1NbWQSAQkjZfbF9cXIKmpmbU
EdvUtHTcuhWKR48GxfEdHA5zSfUKrK2tc7eOOHeS6bhzJwx9ff0YH58gG20Iw8MjGBl9AtEeGBsbF0u0
LFOTv2GS1KJr0dgosRkZGcHjoSHxBu3pER13e0nfqHjGiu8Vo40cc9esWVs4CybFVV9PD7a2tti/f//s
tPwdZWhoGPZ29ti3dy/MzMxEsB9J9yz4baLB9zZuwob3NoK1mIVVpquwafMm7NmzB3b2dnA94QpvH2/4
+/sjKCiITN8t3L5zm9Q3ce3aNbKh/MgL4iyOOx3HgYMHYLnDEu+ssxDHIk8raa8XgUQ6MAum0WhKUlJS
XvLytB5NTc2XklKvD3p/g+bNkwOdQQeDyZwisWNZLNbcc0zeJpSMjAxdWlr6A2VlZTcTE5OAnVY7Iw4d
OpTt7Oxc6e7u3nrmzJn+c+fODZF6/PTp05Oenp5TRL+JRPqmyNi4l5fXCKkHSObtHh4eVU5OTmybj23C
1q9bd3Hp0qWfE6i+kpLS3D+JP4ukpCQlLy9P0el0WbIeimS9GSSIXnBwsHlsbOyWrKys3Vwu9yCPx7MX
CARHhELhMT6ff7SiosJe1M9ms3fHxcVtJVNvTsDLra2tNczNzeWZTKbEvHnzXlNETFB/AFyHwBGvedXw
AAAAAElFTkSuQmCC
</value>
</data>
<data name="Button18.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABQAAAAUCAYAAACNiR0NAAAABGdBTUEAALGPC/xhBQAAAIdJREFUOE/V

176
Aviso/usrcntlAktDetails.vb
View File

@@ -43,6 +43,7 @@ Public Class usrcntlAktDetails
Dim AVISO As cAviso = Nothing
Dim WithEvents timerSendRows As New Timer
Dim painted = False ' Damit gridVermerke Formattierung nicht dauernd anspringt..
Public Sub New()
InitializeComponent()
@@ -199,6 +200,9 @@ Public Class usrcntlAktDetails
btnErfasst.Visible = True
End If
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMIN", Me.FindForm) Then
Button2.Visible = True
End If
'If VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME <> "ADMIN" Then
' tbcntlVermerke.TabPages.Remove(tbAnhang)
'End If
@@ -354,6 +358,7 @@ Public Class usrcntlAktDetails
.Columns("tblSnd_Empfaenger").Visible = False 'tblSnd_Empfaengernicht anzeigen
.Columns("Hervorheben").Visible = False 'tblSnd_Empfaengernicht anzeigen
.Columns("VorauskasseId").Visible = False 'tblSnd_Empfaengernicht anzeigen
.Columns("SMSId").Visible = False 'tblSnd_Empfaengernicht anzeigen
.Columns("Datum").Width = 125 '110
.Columns("Datum").HeaderText = "Datum"
@@ -664,9 +669,14 @@ Public Class usrcntlAktDetails
If AvisoID <= 0 Then Exit Sub
pnlMAInfo.Visible = False
Button18.Visible = False
btnQuckScan.Visible = False
Select Case tbcntlVermerke.SelectedIndex
Case 0, 1, 2 : Vermerke_anzeigen2(rowindex)
Case 3
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("AVISO_ANHAENGE_QuickScan", Me.FindForm) Then
btnQuckScan.Visible = True
End If
Button18.Visible = True
Dim hSQL As String = " SELECT [anh_id],[anh_Name],[anh_docId],[anh_Art],[anh_Typ] FROM [tblAvisoAnhaenge]
WHERE [anh_AvisoId]='" & AvisoID & "' AND isnull(anh_SendungsId,0) <=0
@@ -718,6 +728,7 @@ Public Class usrcntlAktDetails
End With
End Select
painted = False
ArrowDown_ShowHide()
End Sub
@@ -826,7 +837,7 @@ Public Class usrcntlAktDetails
Dim hSQL As String = " SELECT TOP 1000 [VermerkID],[AvisoID], [SendungID],[VermerkeCode], [Datum],[MitarbeiterId],tblSendungen.tblSnd_PosUnterNr,Hervorheben," &
" CASE WHEN VermerkeCode IS NULL OR VermerkeCode IN (13,25,28,29,30,35,46,47) THEN Hinweis_Vermerk ELSE VermerkeCodes.Bezeichnung END as [Hinweis_Vermerk_Anzeige],[Hinweis_Vermerk], tblSendungen.tblSnd_Empfaenger ,[Mitarbeiter],VorauskasseId" &
" CASE WHEN VermerkeCode IS NULL OR VermerkeCode IN (13,25,28,29,30,35,46,47) THEN Hinweis_Vermerk ELSE VermerkeCodes.Bezeichnung END as [Hinweis_Vermerk_Anzeige],[Hinweis_Vermerk], tblSendungen.tblSnd_Empfaenger ,[Mitarbeiter],VorauskasseId,SMSId" &
" FROM [Vermerke] LEFT JOIN VermerkeCodes ON [VermerkeCode]=VermerkeCodes.VermerkCodeId " &
" LEFT JOIN tblSendungen ON [SendungID]=tblSendungen.tblSnd_SendungID " &
" WHERE AvisoID = " & AvisoID & " " & sendwhere & " " &
@@ -1050,6 +1061,7 @@ Public Class usrcntlAktDetails
Dim sql As New VERAG_PROG_ALLGEMEIN.SQL
sql.doSQL("UPDATE AVISO SET ZOLLDigitalEingereicht=0, LKW_fertig=1 where avisoid=" & AvisoID, "AVISO")
AvisoStatusFunctions.printFinish(AVISO)
' avisoAktualisierenAktiveIdBehalten(myVermerk.AvisoID)
'Vermerke_aktualisieren()
@@ -1078,6 +1090,7 @@ Public Class usrcntlAktDetails
Private Sub gridVermerke_Paint(sender As Object, e As PaintEventArgs) Handles gridVermerke.Paint
If painted Then Exit Sub
If dgvSendungen.RowCount = 0 Then Exit Sub
Try
If gridVermerke.Columns("VermerkeOptions") Is Nothing Then Exit Sub
@@ -1170,6 +1183,29 @@ Public Class usrcntlAktDetails
optionCell.Value = "Kontaktdaten erhalten"
optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'Kontaktdaten erhalten' einzutragen."
End If
Case 46
If r.Cells("SMSId").Value IsNot DBNull.Value AndAlso IsNumeric(r.Cells("SMSId").Value) Then
Dim SMS As New VERAG_PROG_ALLGEMEIN.cSMS(r.Cells("SMSId").Value)
optionCell.ToolTipText = "SMS Satus"
optionCell.Style.BackColor = Color.White
optionCell.LinkColor = Color.Black
Select Case SMS.sms_Status
Case -1, 0 : optionCell.Value = ""
Case 1, 2 : optionCell.Value = "wartend..."
optionCell.Style.BackColor = Color.PapayaWhip
optionCell.Style.SelectionBackColor = optionCell.Style.BackColor
Case 3
optionCell.Value = "OK - Empfangen!"
optionCell.Style.BackColor = Color.Green
optionCell.LinkColor = Color.White
optionCell.Style.SelectionBackColor = optionCell.Style.BackColor
Case 4 : optionCell.Value = "Sende-Fehler!"
optionCell.ToolTipText = "Sendefehler: " & SMS.sms_Failure
optionCell.Style.BackColor = Color.Red
optionCell.LinkColor = Color.White
optionCell.Style.SelectionBackColor = optionCell.Style.BackColor
End Select
End If
Case 53
If Not existCodeInGridVermerke(54, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
optionCell.Value = "Ü-Dok erhalten"
@@ -1213,7 +1249,7 @@ Public Class usrcntlAktDetails
Next
painted = True
' ArrowDown_ShowHide() 'Anzeigeproblem, wenn Aviso minimiert wird! --> Jetzt bei Timer!
Catch ex As Exception
@@ -1345,20 +1381,26 @@ Public Class usrcntlAktDetails
'If gridVermerke.SelectedRows.Count = 0 Then Exit Sub 'Es wurde außerhalb einer gültigen Datenzeile geklickt
'gridMyAviso.ClearSelection() 'WARUM?
DirectCast(sender, DataGridView).Rows(e.RowIndex).Selected = True
If e.Button = MouseButtons.Right Then
If AVISO.Abgeschlossen Then Exit Sub
If sender Is gridVermerke Then
If gridVermerke.SelectedRows.Count = 0 Then Exit Sub 'Es wurde außerhalb einer gültigen Datenzeile geklickt
' AvisoID = CInt(gridVermerke.Rows(e.RowIndex).Cells("AvisoId").Value)
gridVermerke.CurrentCell = gridVermerke.Rows(e.RowIndex).Cells(e.ColumnIndex)
conMenuVermerke.Show(Cursor.Position)
Select Case tbcntlVermerke.SelectedIndex
Case 0, 1, 2
If sender Is gridVermerke Then
If gridVermerke.SelectedRows.Count = 0 Then Exit Sub 'Es wurde außerhalb einer gültigen Datenzeile geklickt
' AvisoID = CInt(gridVermerke.Rows(e.RowIndex).Cells("AvisoId").Value)
gridVermerke.CurrentCell = gridVermerke.Rows(e.RowIndex).Cells(e.ColumnIndex)
conMenuVermerke.Show(Cursor.Position)
ToolUeberweisungsBeleg.Visible = (gridVermerke.SelectedRows(0).Cells("VermerkeCode").Value = "13")
toolVkReminder.Visible = (gridVermerke.SelectedRows(0).Cells("VermerkeCode").Value = "13")
ToolUeberweisungsBeleg.Visible = (gridVermerke.SelectedRows(0).Cells("VermerkeCode").Value = "13")
toolVkReminder.Visible = (gridVermerke.SelectedRows(0).Cells("VermerkeCode").Value = "13")
End If
Case 3
End Select
End If
End If
End Sub
@@ -1773,7 +1815,7 @@ Public Class usrcntlAktDetails
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles btnOptionen.Click
pnlOptionen.Height = 157 '125
pnlOptionen.Height = 183 '157 '125
pnlOptionen.Visible = Not pnlOptionen.Visible
If pnlOptionen.Visible Then pnlOptionen.Location = New Point(pnlOptionen.Location.X, btnOptionen.Height + pnl.Height + FlowLayoutPanel.Height)
@@ -1916,7 +1958,6 @@ Public Class usrcntlAktDetails
timerSendRows.Enabled = False
End If
ArrowDown_ShowHide()
End Sub
'Private Sub timerSendRows_Tick(sender As Object, e As EventArgs) Handles timerSendRows.Tick
@@ -2571,7 +2612,7 @@ Public Class usrcntlAktDetails
If f.SMS IsNot Nothing Then
Dim FahrerHandy = If(f.SMS.sms_Vorwahl, "") & If(f.SMS.sms_Handynummer, "")
If FahrerHandy <> "" Then
SDL.cSMSOptions.insertVermerk(AvisoID, FahrerHandy, Now)
SDL.cSMSOptions.insertVermerkSMS(AvisoID, FahrerHandy, f.SMS.sms_id, Now)
If If(AVISO.FahrerHandy, "") = "" Then
AVISO.FahrerHandy = FahrerHandy
AVISO.UPDATE_FahrerHandy(FahrerHandy)
@@ -2645,19 +2686,27 @@ Public Class usrcntlAktDetails
End If
End Sub
Private Sub Button10_Click(sender As Object, e As EventArgs) Handles Button10.Click, Button15.Click
pnlDetailsRechts.Cursor = Cursors.WaitCursor
Private Sub Button10_Click(sender As Object, e As EventArgs) Handles btnLZDruck.Click, btnLZDruckDIGITAL.Click
Dim f As New frmLaufzettel(AVISO, Nothing, (sender Is btnLZDruckDIGITAL), cbxLZT1.Checked, cbxLZRg.Checked, cbxVPSplit.Checked)
f.ShowDialog()
Panel4.Visible = False
Exit Sub
pnlDetailsRechts.Cursor = Cursors.WaitCursor
' Fahrer zum Zoll!
'------------------------------------------------
If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("PRINT_zumZOLL") Then
If vbYes = MsgBox("Fahrer-Anweisung ""zum Zollamt gehen"" ausdrucken?", vbYesNo) Then
Try
Dim path = SDL.FormularManagerNEU.zumZOLL_AVISO(AVISO)
If path <> "" Then VERAG_PROG_ALLGEMEIN.cFormularManager.PrintViaGS(path, (New System.Drawing.Printing.PrinterSettings).PrinterName)
Catch ex As Exception : MsgBox(ex.Message & ex.StackTrace) : End Try
If sender Is btnLZDruck Then
If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("PRINT_zumZOLL") Then
If vbYes = MsgBox("Fahrer-Anweisung ""zum Zollamt gehen"" ausdrucken?", vbYesNo) Then
Try
Dim path = SDL.FormularManagerNEU.zumZOLL_AVISO(AVISO)
If path <> "" Then VERAG_PROG_ALLGEMEIN.cFormularManager.PrintViaGS(path, (New System.Drawing.Printing.PrinterSettings).PrinterName)
Catch ex As Exception : MsgBox(ex.Message & ex.StackTrace) : End Try
End If
End If
End If
'------------------------------------------------
@@ -2683,31 +2732,46 @@ Public Class usrcntlAktDetails
End If
Next
'DIGITALE ABFERTIGUNG:
If (sender Is Button15) Or cbxVPSplit.Checked Then ' digital oder splittung --> per Vorpapier
'DIGITALE ABFERTIGUNG:
If (sender Is btnLZDruckDIGITAL) Or cbxVPSplit.Checked Then ' digital oder splittung --> per Vorpapier
Try
Dim SENDUNG_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cSendungen)
VERAG_PROG_ALLGEMEIN.cSendungen.LOAD_LIST(SENDUNG_LIST, -1, AvisoID) 'LÄDT alle SENDUNGSDATEN
Dim pruef = False
For Each s In SENDUNG_LIST
Select Case s.tblSnd_Abfertigungsart_ID.ToString
Case "38", "26" 'AT - Keine Prüfung
Case Else
If If(s.tblSnd_Vorpapier, "") = "" Then
MsgBox("Nicht alle Sendungen haben ein Vorpapier eingetragen!" & vbNewLine & "Laufzettelerstellung wird abgebrochen.")
pnlDetailsRechts.Cursor = Cursors.Default : Exit Sub
If If(s.tblSnd_Vorpapier, "") = "" And If(s.tblSnd_Vorpapier2, "") = "" And If(s.tblSnd_Vorpapier3, "") = "" Then
pruef = True
End If
End Select
Next
If pruef Then ' VP fehlen
If sender Is btnLZDruck Then 'Wenn LZ Druck
If vbYes <> MsgBox("Nicht alle Sendungen haben ein Vorpapier eingetragen!" & vbNewLine & "Soll der laufzettel trotzdem gedruckt werden?", vbYesNoCancel) Then
pnlDetailsRechts.Cursor = Cursors.Default : Exit Sub
End If
Else ' Digitalabfertigungn
MsgBox("Nicht alle Sendungen haben ein Vorpapier eingetragen!" & vbNewLine & "Laufzettelerstellung wird abgebrochen.")
pnlDetailsRechts.Cursor = Cursors.Default : Exit Sub
End If
End If
AVISO.LOAD_Vorpapiere()
Dim VP_Enum = VERAG_PROG_ALLGEMEIN.cSendungen.VP_Enum(SENDUNG_LIST) 'Filtert nach eindeutigen Vorpapieren
Dim paths As New List(Of String)
If pruef Then paths.Add(SDL.FormularManagerNEU.LaufzettelZollDE_VP(AvisoID, False,, "XXXX"))
For Each VP In VP_Enum
paths.Add(SDL.FormularManagerNEU.LaufzettelZollDE_VP(AvisoID, False,, VP))
Next
If (sender Is Button15) Then 'NUR BEI DIGITALANMELDUNG!
If (sender Is btnLZDruckDIGITAL) Then 'NUR BEI DIGITALANMELDUNG!
Dim outl As New Outlook.Application
Dim Mail As Microsoft.Office.Interop.Outlook.MailItem
@@ -2729,7 +2793,7 @@ Public Class usrcntlAktDetails
tX = New VERAG_PROG_ALLGEMEIN.cTextkonserve("LAUFZETTEL_DIGITAL", "LAUFZETTEL_DE_DIGITAL_SUB", "DE", VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA)
End Select
Dim MAIL_SUBJ = tx.txt_betreff.Replace("%LKWKennzeichen%", AVISO.LKW_Nr)
Dim MAIL_SUBJ = tX.txt_betreff.Replace("%LKWKennzeichen%", AVISO.LKW_Nr)
Dim MAIL_BODY = tX.txt_text.Replace("%LKWKennzeichen%", AVISO.LKW_Nr)
addVPList(MAIL_BODY, VP_Enum)
@@ -3143,5 +3207,61 @@ Public Class usrcntlAktDetails
End Sub
Private Sub Button2_Click_1(sender As Object, e As EventArgs) Handles Button2.Click
Dim f As New frmLaufzettel(AVISO, Nothing, True, True, True, cbxVPSplit.Checked)
f.ShowDialog()
End Sub
Private Sub btnQuckScan_Click(sender As Object, e As EventArgs) Handles btnQuckScan.Click
Try
Me.Cursor = Cursors.WaitCursor
If frmSendungAnhangImport.quickScan(AvisoID) Then
Vermerke_anzeigen()
End If
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,, "Fehler QuickScan")
End Try
Me.Cursor = Cursors.Default
'Try
' Me.Cursor = Cursors.WaitCursor
' 'If KdNr < 0 Then Exit Sub
' Dim frmScan As New VERAG_PROG_ALLGEMEIN.frmScan("QuickScan")
' frmScan.DefaultFileName = "Scan" ' Me._TEXT_PDF
' If frmScan.ShowDialog(Me) = DialogResult.OK Then
' If frmScan.ReturnValue IsNot Nothing Then
' Dim Filename = frmScan.fileName
' Dim TMP_Path = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath(Filename, ".pdf",, False, "SendungsAnhaenge")
' File.WriteAllBytes(TMP_Path, frmScan.ReturnValue)
' Dim da_id = -1
' Dim anhId = -1
' Dim destPath = ""
' If frmSendungAnhangImport.saveToDS(AvisoID, Filename, TMP_Path, "", "PDF", da_id, anhId, destPath) Then
' ' frmSendungAnhangImport. addUsrcnlToPnl(destPath, da_id, anhId, Filename, "PDF")
' Vermerke_anzeigen()
' End If
' 'addUsrcnlToPnl(TMP_Path)
' End If
' End If
'Catch ex As Exception
' VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,, "Fehler QuickScan")
'End Try
'Me.Cursor = Cursors.Default
End Sub
Private Sub btnWlanTicket_Click(sender As Object, e As EventArgs) Handles btnWlanTicket.Click
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "FRONTOFFICE" Then
sWLANTicket.printTicket(AVISO)
Else
MsgBox("Nur für Front-Office Benutzer!")
End If
End Sub
End Class

339
Aviso/usrcntlAktDetailsATILLANeu.Designer.vb generated
View File

@@ -33,6 +33,7 @@ Partial Class usrcntlAktDetailsATILLANeu
Dim DataGridViewCellStyle8 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle9 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle10 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(usrcntlAktDetailsATILLANeu))
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()
@@ -43,25 +44,26 @@ Partial Class usrcntlAktDetailsATILLANeu
Dim DataGridViewCellStyle18 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle19 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle20 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(usrcntlAktDetailsATILLANeu))
Me.pnlDetailsRechts = New System.Windows.Forms.Panel()
Me.Panel3 = New System.Windows.Forms.Panel()
Me.SplitContainer = New System.Windows.Forms.SplitContainer()
Me.tbcntr = New System.Windows.Forms.TabControl()
Me.TabPage1 = New System.Windows.Forms.TabPage()
Me.tbVermerke = New System.Windows.Forms.TabPage()
Me.UsrCntlVermerkeATilla1 = New AVISO.usrCntlVermerkeATilla()
Me.TabPage3 = New System.Windows.Forms.TabPage()
Me.tbZollanmeldungen = New System.Windows.Forms.TabPage()
Me.Panel1 = New System.Windows.Forms.Panel()
Me.dgvZollAnmeldungen = New System.Windows.Forms.DataGridView()
Me.Panel4 = New System.Windows.Forms.Panel()
Me.Button7 = New System.Windows.Forms.Button()
Me.Label6 = New System.Windows.Forms.Label()
Me.TabPage2 = New System.Windows.Forms.TabPage()
Me.tbSpedBuch = New System.Windows.Forms.TabPage()
Me.dgvSpeditionsbuch = New System.Windows.Forms.DataGridView()
Me.pnlSendungenTop = New System.Windows.Forms.Panel()
Me.btn = New System.Windows.Forms.Button()
Me.Label1 = New System.Windows.Forms.Label()
Me.tbAnhaenge = New System.Windows.Forms.TabPage()
Me.Button4 = New System.Windows.Forms.Button()
Me.btnQuckScan = New System.Windows.Forms.Button()
Me.dgvanhaenge = New System.Windows.Forms.DataGridView()
Me.Panel7 = New System.Windows.Forms.Panel()
Me.gridVermerke = New System.Windows.Forms.DataGridView()
@@ -79,8 +81,6 @@ Partial Class usrcntlAktDetailsATILLANeu
Me.cbxHandling = New System.Windows.Forms.Label()
Me.Label10 = New System.Windows.Forms.Label()
Me.Label9 = New System.Windows.Forms.Label()
Me.txtFrächter = New System.Windows.Forms.TextBox()
Me.txtAuftraggeber = New System.Windows.Forms.TextBox()
Me.txtLKWID = New System.Windows.Forms.TextBox()
Me.Button2 = New System.Windows.Forms.Button()
Me.pnlOptionen = New System.Windows.Forms.Panel()
@@ -89,13 +89,15 @@ Partial Class usrcntlAktDetailsATILLANeu
Me.Button5 = New System.Windows.Forms.Button()
Me.Button1 = New System.Windows.Forms.Button()
Me.lblAktUebernommen = New System.Windows.Forms.Label()
Me.Button4 = New System.Windows.Forms.Button()
Me.btnAktUebernehmen = New System.Windows.Forms.Button()
Me.btnKassenbuchEintrag = New System.Windows.Forms.Button()
Me.Button3 = New System.Windows.Forms.Button()
Me.pnlAbgeschlossen = New System.Windows.Forms.Panel()
Me.Label2 = New System.Windows.Forms.Label()
Me.pic = New System.Windows.Forms.PictureBox()
Me.txtAktMA = New System.Windows.Forms.TextBox()
Me.txtFrächter = New System.Windows.Forms.TextBox()
Me.txtAuftraggeber = New System.Windows.Forms.TextBox()
Me.FlowLayoutPanel = New System.Windows.Forms.FlowLayoutPanel()
Me.Panel9 = New System.Windows.Forms.Panel()
Me.btnErfasst = New System.Windows.Forms.Button()
@@ -128,6 +130,12 @@ Partial Class usrcntlAktDetailsATILLANeu
Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator()
Me.SGSNCTSToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.cntxtZollantrag = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.cntxt = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.MarkiertePDFsDruckenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.UmbenennenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.LöschenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.AusZwischenablageEinfügenPasteToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.Button10 = New System.Windows.Forms.Button()
Me.pnlDetailsRechts.SuspendLayout()
Me.Panel3.SuspendLayout()
CType(Me.SplitContainer, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -135,12 +143,12 @@ Partial Class usrcntlAktDetailsATILLANeu
Me.SplitContainer.Panel2.SuspendLayout()
Me.SplitContainer.SuspendLayout()
Me.tbcntr.SuspendLayout()
Me.TabPage1.SuspendLayout()
Me.TabPage3.SuspendLayout()
Me.tbVermerke.SuspendLayout()
Me.tbZollanmeldungen.SuspendLayout()
Me.Panel1.SuspendLayout()
CType(Me.dgvZollAnmeldungen, System.ComponentModel.ISupportInitialize).BeginInit()
Me.Panel4.SuspendLayout()
Me.TabPage2.SuspendLayout()
Me.tbSpedBuch.SuspendLayout()
CType(Me.dgvSpeditionsbuch, System.ComponentModel.ISupportInitialize).BeginInit()
Me.pnlSendungenTop.SuspendLayout()
Me.tbAnhaenge.SuspendLayout()
@@ -162,6 +170,7 @@ Partial Class usrcntlAktDetailsATILLANeu
Me.conMenuVermerke.SuspendLayout()
Me.cntxtFormulare.SuspendLayout()
Me.cntxtZollantrag.SuspendLayout()
Me.cntxt.SuspendLayout()
Me.SuspendLayout()
'
'pnlDetailsRechts
@@ -177,7 +186,7 @@ Partial Class usrcntlAktDetailsATILLANeu
Me.pnlDetailsRechts.Location = New System.Drawing.Point(0, 0)
Me.pnlDetailsRechts.MinimumSize = New System.Drawing.Size(200, 0)
Me.pnlDetailsRechts.Name = "pnlDetailsRechts"
Me.pnlDetailsRechts.Size = New System.Drawing.Size(575, 583)
Me.pnlDetailsRechts.Size = New System.Drawing.Size(575, 647)
Me.pnlDetailsRechts.TabIndex = 81
'
'Panel3
@@ -188,7 +197,7 @@ Partial Class usrcntlAktDetailsATILLANeu
Me.Panel3.Dock = System.Windows.Forms.DockStyle.Fill
Me.Panel3.Location = New System.Drawing.Point(0, 197)
Me.Panel3.Name = "Panel3"
Me.Panel3.Size = New System.Drawing.Size(575, 386)
Me.Panel3.Size = New System.Drawing.Size(575, 450)
Me.Panel3.TabIndex = 91
'
'SplitContainer
@@ -210,33 +219,33 @@ Partial Class usrcntlAktDetailsATILLANeu
Me.SplitContainer.Panel2.Controls.Add(Me.gridVermerke)
Me.SplitContainer.Panel2.Controls.Add(Me.pnlVermerkeTop)
Me.SplitContainer.Panel2.Controls.Add(Me.addVermerk)
Me.SplitContainer.Size = New System.Drawing.Size(575, 220)
Me.SplitContainer.SplitterDistance = 143
Me.SplitContainer.Size = New System.Drawing.Size(575, 284)
Me.SplitContainer.SplitterDistance = 184
Me.SplitContainer.TabIndex = 91
'
'tbcntr
'
Me.tbcntr.Controls.Add(Me.TabPage1)
Me.tbcntr.Controls.Add(Me.TabPage3)
Me.tbcntr.Controls.Add(Me.TabPage2)
Me.tbcntr.Controls.Add(Me.tbVermerke)
Me.tbcntr.Controls.Add(Me.tbZollanmeldungen)
Me.tbcntr.Controls.Add(Me.tbSpedBuch)
Me.tbcntr.Controls.Add(Me.tbAnhaenge)
Me.tbcntr.Dock = System.Windows.Forms.DockStyle.Fill
Me.tbcntr.Location = New System.Drawing.Point(0, 0)
Me.tbcntr.Name = "tbcntr"
Me.tbcntr.SelectedIndex = 0
Me.tbcntr.Size = New System.Drawing.Size(575, 143)
Me.tbcntr.Size = New System.Drawing.Size(575, 184)
Me.tbcntr.TabIndex = 100
'
'TabPage1
'tbVermerke
'
Me.TabPage1.Controls.Add(Me.UsrCntlVermerkeATilla1)
Me.TabPage1.Location = New System.Drawing.Point(4, 22)
Me.TabPage1.Name = "TabPage1"
Me.TabPage1.Padding = New System.Windows.Forms.Padding(3)
Me.TabPage1.Size = New System.Drawing.Size(567, 117)
Me.TabPage1.TabIndex = 0
Me.TabPage1.Text = "Vermerk eintragen"
Me.TabPage1.UseVisualStyleBackColor = True
Me.tbVermerke.Controls.Add(Me.UsrCntlVermerkeATilla1)
Me.tbVermerke.Location = New System.Drawing.Point(4, 22)
Me.tbVermerke.Name = "tbVermerke"
Me.tbVermerke.Padding = New System.Windows.Forms.Padding(3)
Me.tbVermerke.Size = New System.Drawing.Size(567, 158)
Me.tbVermerke.TabIndex = 0
Me.tbVermerke.Text = "Vermerk eintragen"
Me.tbVermerke.UseVisualStyleBackColor = True
'
'UsrCntlVermerkeATilla1
'
@@ -246,18 +255,18 @@ Partial Class usrcntlAktDetailsATILLANeu
Me.UsrCntlVermerkeATilla1.Location = New System.Drawing.Point(3, 3)
Me.UsrCntlVermerkeATilla1.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
Me.UsrCntlVermerkeATilla1.Name = "UsrCntlVermerkeATilla1"
Me.UsrCntlVermerkeATilla1.Size = New System.Drawing.Size(561, 111)
Me.UsrCntlVermerkeATilla1.Size = New System.Drawing.Size(561, 152)
Me.UsrCntlVermerkeATilla1.TabIndex = 0
'
'TabPage3
'tbZollanmeldungen
'
Me.TabPage3.Controls.Add(Me.Panel1)
Me.TabPage3.Location = New System.Drawing.Point(4, 22)
Me.TabPage3.Name = "TabPage3"
Me.TabPage3.Size = New System.Drawing.Size(567, 117)
Me.TabPage3.TabIndex = 2
Me.TabPage3.Text = "Zollanmeldungen"
Me.TabPage3.UseVisualStyleBackColor = True
Me.tbZollanmeldungen.Controls.Add(Me.Panel1)
Me.tbZollanmeldungen.Location = New System.Drawing.Point(4, 22)
Me.tbZollanmeldungen.Name = "tbZollanmeldungen"
Me.tbZollanmeldungen.Size = New System.Drawing.Size(567, 158)
Me.tbZollanmeldungen.TabIndex = 2
Me.tbZollanmeldungen.Text = "Zollanmeldungen"
Me.tbZollanmeldungen.UseVisualStyleBackColor = True
'
'Panel1
'
@@ -267,7 +276,7 @@ Partial Class usrcntlAktDetailsATILLANeu
Me.Panel1.Dock = System.Windows.Forms.DockStyle.Fill
Me.Panel1.Location = New System.Drawing.Point(0, 0)
Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(567, 117)
Me.Panel1.Size = New System.Drawing.Size(567, 158)
Me.Panel1.TabIndex = 0
'
'dgvZollAnmeldungen
@@ -319,7 +328,7 @@ Partial Class usrcntlAktDetailsATILLANeu
Me.dgvZollAnmeldungen.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.dgvZollAnmeldungen.ShowCellErrors = False
Me.dgvZollAnmeldungen.ShowRowErrors = False
Me.dgvZollAnmeldungen.Size = New System.Drawing.Size(565, 84)
Me.dgvZollAnmeldungen.Size = New System.Drawing.Size(565, 125)
Me.dgvZollAnmeldungen.TabIndex = 102
Me.dgvZollAnmeldungen.TabStop = False
'
@@ -357,17 +366,17 @@ Partial Class usrcntlAktDetailsATILLANeu
Me.Label6.TabIndex = 98
Me.Label6.Text = "Zollanmeldungen:"
'
'TabPage2
'tbSpedBuch
'
Me.TabPage2.Controls.Add(Me.dgvSpeditionsbuch)
Me.TabPage2.Controls.Add(Me.pnlSendungenTop)
Me.TabPage2.Location = New System.Drawing.Point(4, 22)
Me.TabPage2.Name = "TabPage2"
Me.TabPage2.Padding = New System.Windows.Forms.Padding(3)
Me.TabPage2.Size = New System.Drawing.Size(567, 117)
Me.TabPage2.TabIndex = 1
Me.TabPage2.Text = "Speditionsbuch"
Me.TabPage2.UseVisualStyleBackColor = True
Me.tbSpedBuch.Controls.Add(Me.dgvSpeditionsbuch)
Me.tbSpedBuch.Controls.Add(Me.pnlSendungenTop)
Me.tbSpedBuch.Location = New System.Drawing.Point(4, 22)
Me.tbSpedBuch.Name = "tbSpedBuch"
Me.tbSpedBuch.Padding = New System.Windows.Forms.Padding(3)
Me.tbSpedBuch.Size = New System.Drawing.Size(567, 158)
Me.tbSpedBuch.TabIndex = 1
Me.tbSpedBuch.Text = "Speditionsbuch"
Me.tbSpedBuch.UseVisualStyleBackColor = True
'
'dgvSpeditionsbuch
'
@@ -418,7 +427,7 @@ Partial Class usrcntlAktDetailsATILLANeu
Me.dgvSpeditionsbuch.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.dgvSpeditionsbuch.ShowCellErrors = False
Me.dgvSpeditionsbuch.ShowRowErrors = False
Me.dgvSpeditionsbuch.Size = New System.Drawing.Size(561, 80)
Me.dgvSpeditionsbuch.Size = New System.Drawing.Size(561, 121)
Me.dgvSpeditionsbuch.TabIndex = 101
Me.dgvSpeditionsbuch.TabStop = False
'
@@ -458,15 +467,46 @@ Partial Class usrcntlAktDetailsATILLANeu
'
'tbAnhaenge
'
Me.tbAnhaenge.Controls.Add(Me.Button10)
Me.tbAnhaenge.Controls.Add(Me.Button4)
Me.tbAnhaenge.Controls.Add(Me.btnQuckScan)
Me.tbAnhaenge.Controls.Add(Me.dgvanhaenge)
Me.tbAnhaenge.Location = New System.Drawing.Point(4, 22)
Me.tbAnhaenge.Name = "tbAnhaenge"
Me.tbAnhaenge.Padding = New System.Windows.Forms.Padding(3)
Me.tbAnhaenge.Size = New System.Drawing.Size(567, 117)
Me.tbAnhaenge.Size = New System.Drawing.Size(567, 158)
Me.tbAnhaenge.TabIndex = 3
Me.tbAnhaenge.Text = "Anhänge"
Me.tbAnhaenge.UseVisualStyleBackColor = True
'
'Button4
'
Me.Button4.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Button4.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button4.Image = Global.AVISO.My.Resources.Resources.pdf11
Me.Button4.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button4.Location = New System.Drawing.Point(175, 118)
Me.Button4.Name = "Button4"
Me.Button4.Size = New System.Drawing.Size(124, 37)
Me.Button4.TabIndex = 109
Me.Button4.Text = "PDF hochladen"
Me.Button4.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.Button4.UseVisualStyleBackColor = True
'
'btnQuckScan
'
Me.btnQuckScan.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.btnQuckScan.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnQuckScan.Image = CType(resources.GetObject("btnQuckScan.Image"), System.Drawing.Image)
Me.btnQuckScan.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnQuckScan.Location = New System.Drawing.Point(445, 118)
Me.btnQuckScan.Name = "btnQuckScan"
Me.btnQuckScan.Size = New System.Drawing.Size(119, 37)
Me.btnQuckScan.TabIndex = 108
Me.btnQuckScan.Text = "Quick-Scan"
Me.btnQuckScan.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnQuckScan.UseVisualStyleBackColor = True
'
'dgvanhaenge
'
Me.dgvanhaenge.AllowUserToAddRows = False
@@ -495,7 +535,6 @@ Partial Class usrcntlAktDetailsATILLANeu
Me.dgvanhaenge.DefaultCellStyle = DataGridViewCellStyle13
Me.dgvanhaenge.Dock = System.Windows.Forms.DockStyle.Fill
Me.dgvanhaenge.Location = New System.Drawing.Point(3, 3)
Me.dgvanhaenge.MultiSelect = False
Me.dgvanhaenge.Name = "dgvanhaenge"
Me.dgvanhaenge.ReadOnly = True
DataGridViewCellStyle14.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
@@ -510,13 +549,13 @@ Partial Class usrcntlAktDetailsATILLANeu
Me.dgvanhaenge.RowHeadersWidthSizeMode = System.Windows.Forms.DataGridViewRowHeadersWidthSizeMode.DisableResizing
DataGridViewCellStyle15.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvanhaenge.RowsDefaultCellStyle = DataGridViewCellStyle15
Me.dgvanhaenge.RowTemplate.Height = 20
Me.dgvanhaenge.RowTemplate.Height = 30
Me.dgvanhaenge.RowTemplate.ReadOnly = True
Me.dgvanhaenge.RowTemplate.Resizable = System.Windows.Forms.DataGridViewTriState.[False]
Me.dgvanhaenge.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.dgvanhaenge.ShowCellErrors = False
Me.dgvanhaenge.ShowRowErrors = False
Me.dgvanhaenge.Size = New System.Drawing.Size(561, 111)
Me.dgvanhaenge.Size = New System.Drawing.Size(561, 152)
Me.dgvanhaenge.TabIndex = 102
Me.dgvanhaenge.TabStop = False
'
@@ -528,7 +567,7 @@ Partial Class usrcntlAktDetailsATILLANeu
Me.Panel7.Location = New System.Drawing.Point(4, 19)
Me.Panel7.MaximumSize = New System.Drawing.Size(2, 250)
Me.Panel7.Name = "Panel7"
Me.Panel7.Size = New System.Drawing.Size(1, 15)
Me.Panel7.Size = New System.Drawing.Size(1, 56)
Me.Panel7.TabIndex = 15
'
'gridVermerke
@@ -580,7 +619,7 @@ Partial Class usrcntlAktDetailsATILLANeu
Me.gridVermerke.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.gridVermerke.ShowCellErrors = False
Me.gridVermerke.ShowRowErrors = False
Me.gridVermerke.Size = New System.Drawing.Size(575, 44)
Me.gridVermerke.Size = New System.Drawing.Size(575, 67)
Me.gridVermerke.TabIndex = 70
Me.gridVermerke.TabStop = False
'
@@ -650,19 +689,19 @@ Partial Class usrcntlAktDetailsATILLANeu
Me.Panel8.Controls.Add(Me.cbxHandling)
Me.Panel8.Controls.Add(Me.Label10)
Me.Panel8.Controls.Add(Me.Label9)
Me.Panel8.Controls.Add(Me.txtFrächter)
Me.Panel8.Controls.Add(Me.txtAuftraggeber)
Me.Panel8.Controls.Add(Me.txtLKWID)
Me.Panel8.Controls.Add(Me.Button2)
Me.Panel8.Controls.Add(Me.pnlOptionen)
Me.Panel8.Controls.Add(Me.Button5)
Me.Panel8.Controls.Add(Me.Button1)
Me.Panel8.Controls.Add(Me.lblAktUebernommen)
Me.Panel8.Controls.Add(Me.Button4)
Me.Panel8.Controls.Add(Me.btnAktUebernehmen)
Me.Panel8.Controls.Add(Me.btnKassenbuchEintrag)
Me.Panel8.Controls.Add(Me.Button3)
Me.Panel8.Controls.Add(Me.pnlAbgeschlossen)
Me.Panel8.Controls.Add(Me.txtAktMA)
Me.Panel8.Controls.Add(Me.txtFrächter)
Me.Panel8.Controls.Add(Me.txtAuftraggeber)
Me.Panel8.Dock = System.Windows.Forms.DockStyle.Top
Me.Panel8.Location = New System.Drawing.Point(0, 0)
Me.Panel8.Name = "Panel8"
@@ -787,38 +826,6 @@ Partial Class usrcntlAktDetailsATILLANeu
Me.Label9.TabIndex = 110
Me.Label9.Text = "Avisierer:"
'
'txtFrächter
'
Me.txtFrächter.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.txtFrächter.BackColor = System.Drawing.Color.WhiteSmoke
Me.txtFrächter.BorderStyle = System.Windows.Forms.BorderStyle.None
Me.txtFrächter.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtFrächter.ForeColor = System.Drawing.Color.Black
Me.txtFrächter.Location = New System.Drawing.Point(74, 46)
Me.txtFrächter.MaxLength = 0
Me.txtFrächter.Name = "txtFrächter"
Me.txtFrächter.ReadOnly = True
Me.txtFrächter.Size = New System.Drawing.Size(359, 16)
Me.txtFrächter.TabIndex = 109
Me.txtFrächter.TabStop = False
'
'txtAuftraggeber
'
Me.txtAuftraggeber.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.txtAuftraggeber.BackColor = System.Drawing.Color.WhiteSmoke
Me.txtAuftraggeber.BorderStyle = System.Windows.Forms.BorderStyle.None
Me.txtAuftraggeber.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtAuftraggeber.ForeColor = System.Drawing.Color.Black
Me.txtAuftraggeber.Location = New System.Drawing.Point(74, 70)
Me.txtAuftraggeber.MaxLength = 0
Me.txtAuftraggeber.Name = "txtAuftraggeber"
Me.txtAuftraggeber.ReadOnly = True
Me.txtAuftraggeber.Size = New System.Drawing.Size(359, 16)
Me.txtAuftraggeber.TabIndex = 111
Me.txtAuftraggeber.TabStop = False
'
'txtLKWID
'
Me.txtLKWID.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
@@ -857,9 +864,9 @@ Partial Class usrcntlAktDetailsATILLANeu
Me.pnlOptionen.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.pnlOptionen.Controls.Add(Me.btnLöschen)
Me.pnlOptionen.Controls.Add(Me.btnÄndern)
Me.pnlOptionen.Location = New System.Drawing.Point(455, 73)
Me.pnlOptionen.Location = New System.Drawing.Point(408, 73)
Me.pnlOptionen.Name = "pnlOptionen"
Me.pnlOptionen.Size = New System.Drawing.Size(116, 19)
Me.pnlOptionen.Size = New System.Drawing.Size(163, 19)
Me.pnlOptionen.TabIndex = 105
Me.pnlOptionen.Visible = False
'
@@ -901,9 +908,9 @@ Partial Class usrcntlAktDetailsATILLANeu
Me.Button5.ForeColor = System.Drawing.Color.Black
Me.Button5.Image = Global.AVISO.My.Resources.Resources.gear2
Me.Button5.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
Me.Button5.Location = New System.Drawing.Point(436, 36)
Me.Button5.Location = New System.Drawing.Point(408, 36)
Me.Button5.Name = "Button5"
Me.Button5.Size = New System.Drawing.Size(134, 40)
Me.Button5.Size = New System.Drawing.Size(162, 40)
Me.Button5.TabIndex = 106
Me.Button5.Text = "Optionen "
Me.Button5.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
@@ -930,27 +937,28 @@ Partial Class usrcntlAktDetailsATILLANeu
Me.lblAktUebernommen.AutoSize = True
Me.lblAktUebernommen.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblAktUebernommen.ForeColor = System.Drawing.Color.Green
Me.lblAktUebernommen.Location = New System.Drawing.Point(295, 93)
Me.lblAktUebernommen.Location = New System.Drawing.Point(272, 93)
Me.lblAktUebernommen.Name = "lblAktUebernommen"
Me.lblAktUebernommen.Size = New System.Drawing.Size(133, 17)
Me.lblAktUebernommen.TabIndex = 103
Me.lblAktUebernommen.Text = "Akt übernommen!"
Me.lblAktUebernommen.Visible = False
'
'Button4
'btnAktUebernehmen
'
Me.Button4.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Button4.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button4.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
Me.Button4.ForeColor = System.Drawing.Color.Black
Me.Button4.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
Me.Button4.Location = New System.Drawing.Point(436, 79)
Me.Button4.Name = "Button4"
Me.Button4.Size = New System.Drawing.Size(134, 32)
Me.Button4.TabIndex = 100
Me.Button4.Text = "Akt übernehmen"
Me.Button4.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button4.UseVisualStyleBackColor = True
Me.btnAktUebernehmen.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.btnAktUebernehmen.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnAktUebernehmen.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
Me.btnAktUebernehmen.ForeColor = System.Drawing.Color.Black
Me.btnAktUebernehmen.Image = Global.AVISO.My.Resources.Resources.personCheck_small
Me.btnAktUebernehmen.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnAktUebernehmen.Location = New System.Drawing.Point(408, 79)
Me.btnAktUebernehmen.Name = "btnAktUebernehmen"
Me.btnAktUebernehmen.Size = New System.Drawing.Size(162, 32)
Me.btnAktUebernehmen.TabIndex = 100
Me.btnAktUebernehmen.Text = "Akt übernehmen"
Me.btnAktUebernehmen.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnAktUebernehmen.UseVisualStyleBackColor = True
'
'btnKassenbuchEintrag
'
@@ -1035,6 +1043,38 @@ Partial Class usrcntlAktDetailsATILLANeu
Me.txtAktMA.TabIndex = 116
Me.txtAktMA.TabStop = False
'
'txtFrächter
'
Me.txtFrächter.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.txtFrächter.BackColor = System.Drawing.Color.WhiteSmoke
Me.txtFrächter.BorderStyle = System.Windows.Forms.BorderStyle.None
Me.txtFrächter.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtFrächter.ForeColor = System.Drawing.Color.Black
Me.txtFrächter.Location = New System.Drawing.Point(74, 46)
Me.txtFrächter.MaxLength = 0
Me.txtFrächter.Name = "txtFrächter"
Me.txtFrächter.ReadOnly = True
Me.txtFrächter.Size = New System.Drawing.Size(335, 16)
Me.txtFrächter.TabIndex = 109
Me.txtFrächter.TabStop = False
'
'txtAuftraggeber
'
Me.txtAuftraggeber.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.txtAuftraggeber.BackColor = System.Drawing.Color.WhiteSmoke
Me.txtAuftraggeber.BorderStyle = System.Windows.Forms.BorderStyle.None
Me.txtAuftraggeber.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtAuftraggeber.ForeColor = System.Drawing.Color.Black
Me.txtAuftraggeber.Location = New System.Drawing.Point(74, 70)
Me.txtAuftraggeber.MaxLength = 0
Me.txtAuftraggeber.Name = "txtAuftraggeber"
Me.txtAuftraggeber.ReadOnly = True
Me.txtAuftraggeber.Size = New System.Drawing.Size(335, 16)
Me.txtAuftraggeber.TabIndex = 111
Me.txtAuftraggeber.TabStop = False
'
'FlowLayoutPanel
'
Me.FlowLayoutPanel.AutoSize = True
@@ -1342,29 +1382,29 @@ Partial Class usrcntlAktDetailsATILLANeu
'ToolStripSeparator2
'
Me.ToolStripSeparator2.Name = "ToolStripSeparator2"
Me.ToolStripSeparator2.Size = New System.Drawing.Size(177, 6)
Me.ToolStripSeparator2.Size = New System.Drawing.Size(153, 6)
'
'NCTST2ToolStripMenuItem
'
Me.NCTST2ToolStripMenuItem.Name = "NCTST2ToolStripMenuItem"
Me.NCTST2ToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
Me.NCTST2ToolStripMenuItem.Size = New System.Drawing.Size(156, 22)
Me.NCTST2ToolStripMenuItem.Text = "NCTS - Versand"
'
'AESToolStripMenuItem
'
Me.AESToolStripMenuItem.Name = "AESToolStripMenuItem"
Me.AESToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
Me.AESToolStripMenuItem.Size = New System.Drawing.Size(156, 22)
Me.AESToolStripMenuItem.Text = "AES - Ausfuhr"
'
'ToolStripSeparator1
'
Me.ToolStripSeparator1.Name = "ToolStripSeparator1"
Me.ToolStripSeparator1.Size = New System.Drawing.Size(177, 6)
Me.ToolStripSeparator1.Size = New System.Drawing.Size(153, 6)
'
'SGSNCTSToolStripMenuItem
'
Me.SGSNCTSToolStripMenuItem.Name = "SGSNCTSToolStripMenuItem"
Me.SGSNCTSToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
Me.SGSNCTSToolStripMenuItem.Size = New System.Drawing.Size(156, 22)
Me.SGSNCTSToolStripMenuItem.Text = "SGS - NCTS"
Me.SGSNCTSToolStripMenuItem.Visible = False
'
@@ -1373,16 +1413,62 @@ Partial Class usrcntlAktDetailsATILLANeu
Me.cntxtZollantrag.ImageScalingSize = New System.Drawing.Size(24, 24)
Me.cntxtZollantrag.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripSeparator2, Me.NCTST2ToolStripMenuItem, Me.AESToolStripMenuItem, Me.ToolStripSeparator1, Me.SGSNCTSToolStripMenuItem})
Me.cntxtZollantrag.Name = "cntxtZollantrag"
Me.cntxtZollantrag.Size = New System.Drawing.Size(181, 104)
Me.cntxtZollantrag.Size = New System.Drawing.Size(157, 82)
Me.cntxtZollantrag.Text = "Zollantrag"
'
'cntxt
'
Me.cntxt.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.MarkiertePDFsDruckenToolStripMenuItem, Me.UmbenennenToolStripMenuItem, Me.LöschenToolStripMenuItem, Me.AusZwischenablageEinfügenPasteToolStripMenuItem})
Me.cntxt.Name = "cntxt"
Me.cntxt.Size = New System.Drawing.Size(272, 92)
'
'MarkiertePDFsDruckenToolStripMenuItem
'
Me.MarkiertePDFsDruckenToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.pdfprint
Me.MarkiertePDFsDruckenToolStripMenuItem.Name = "MarkiertePDFsDruckenToolStripMenuItem"
Me.MarkiertePDFsDruckenToolStripMenuItem.Size = New System.Drawing.Size(271, 22)
Me.MarkiertePDFsDruckenToolStripMenuItem.Text = "Markierte PDFs drucken"
'
'UmbenennenToolStripMenuItem
'
Me.UmbenennenToolStripMenuItem.Name = "UmbenennenToolStripMenuItem"
Me.UmbenennenToolStripMenuItem.Size = New System.Drawing.Size(271, 22)
Me.UmbenennenToolStripMenuItem.Text = "Umbenennen"
'
'LöschenToolStripMenuItem
'
Me.LöschenToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.del
Me.LöschenToolStripMenuItem.Name = "LöschenToolStripMenuItem"
Me.LöschenToolStripMenuItem.Size = New System.Drawing.Size(271, 22)
Me.LöschenToolStripMenuItem.Text = "Löschen"
'
'AusZwischenablageEinfügenPasteToolStripMenuItem
'
Me.AusZwischenablageEinfügenPasteToolStripMenuItem.Name = "AusZwischenablageEinfügenPasteToolStripMenuItem"
Me.AusZwischenablageEinfügenPasteToolStripMenuItem.Size = New System.Drawing.Size(271, 22)
Me.AusZwischenablageEinfügenPasteToolStripMenuItem.Text = "Aus Zwischenablage einfügen (Paste)"
'
'Button10
'
Me.Button10.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Button10.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button10.Image = Global.AVISO.My.Resources.Resources.spedbuch_small
Me.Button10.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button10.Location = New System.Drawing.Point(298, 118)
Me.Button10.Name = "Button10"
Me.Button10.Size = New System.Drawing.Size(148, 37)
Me.Button10.TabIndex = 110
Me.Button10.Text = "Aus Zwischenablage" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "einfügen (Paste)"
Me.Button10.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.Button10.UseVisualStyleBackColor = True
'
'usrcntlAktDetailsATILLANeu
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.Controls.Add(Me.pnlDetailsRechts)
Me.Name = "usrcntlAktDetailsATILLANeu"
Me.Size = New System.Drawing.Size(575, 583)
Me.Size = New System.Drawing.Size(575, 647)
Me.pnlDetailsRechts.ResumeLayout(False)
Me.pnlDetailsRechts.PerformLayout()
Me.Panel3.ResumeLayout(False)
@@ -1391,13 +1477,13 @@ Partial Class usrcntlAktDetailsATILLANeu
CType(Me.SplitContainer, System.ComponentModel.ISupportInitialize).EndInit()
Me.SplitContainer.ResumeLayout(False)
Me.tbcntr.ResumeLayout(False)
Me.TabPage1.ResumeLayout(False)
Me.TabPage3.ResumeLayout(False)
Me.tbVermerke.ResumeLayout(False)
Me.tbZollanmeldungen.ResumeLayout(False)
Me.Panel1.ResumeLayout(False)
CType(Me.dgvZollAnmeldungen, System.ComponentModel.ISupportInitialize).EndInit()
Me.Panel4.ResumeLayout(False)
Me.Panel4.PerformLayout()
Me.TabPage2.ResumeLayout(False)
Me.tbSpedBuch.ResumeLayout(False)
CType(Me.dgvSpeditionsbuch, System.ComponentModel.ISupportInitialize).EndInit()
Me.pnlSendungenTop.ResumeLayout(False)
Me.pnlSendungenTop.PerformLayout()
@@ -1430,6 +1516,7 @@ Partial Class usrcntlAktDetailsATILLANeu
Me.conMenuVermerke.ResumeLayout(False)
Me.cntxtFormulare.ResumeLayout(False)
Me.cntxtZollantrag.ResumeLayout(False)
Me.cntxt.ResumeLayout(False)
Me.ResumeLayout(False)
Me.PerformLayout()
@@ -1473,13 +1560,13 @@ Partial Class usrcntlAktDetailsATILLANeu
Friend WithEvents btn As System.Windows.Forms.Button
Friend WithEvents addVermerk As System.Windows.Forms.Button
Friend WithEvents tbcntr As System.Windows.Forms.TabControl
Friend WithEvents TabPage1 As System.Windows.Forms.TabPage
Friend WithEvents TabPage2 As System.Windows.Forms.TabPage
Friend WithEvents tbVermerke As System.Windows.Forms.TabPage
Friend WithEvents tbSpedBuch As System.Windows.Forms.TabPage
Friend WithEvents dgvSpeditionsbuch As System.Windows.Forms.DataGridView
Friend WithEvents pnlSendungenTop As System.Windows.Forms.Panel
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents UsrCntlVermerkeATilla1 As AVISO.usrCntlVermerkeATilla
Friend WithEvents Button4 As System.Windows.Forms.Button
Friend WithEvents btnAktUebernehmen As System.Windows.Forms.Button
Friend WithEvents lblAktUebernommen As System.Windows.Forms.Label
Friend WithEvents pnlAbgeschlossen As System.Windows.Forms.Panel
Friend WithEvents Label2 As System.Windows.Forms.Label
@@ -1500,7 +1587,7 @@ Partial Class usrcntlAktDetailsATILLANeu
Friend WithEvents Button6 As System.Windows.Forms.Button
Friend WithEvents Label5 As System.Windows.Forms.Label
Friend WithEvents txtAktMA As System.Windows.Forms.TextBox
Friend WithEvents TabPage3 As System.Windows.Forms.TabPage
Friend WithEvents tbZollanmeldungen As System.Windows.Forms.TabPage
Friend WithEvents Panel1 As System.Windows.Forms.Panel
Friend WithEvents dgvZollAnmeldungen As System.Windows.Forms.DataGridView
Friend WithEvents TextBox2 As System.Windows.Forms.TextBox
@@ -1518,4 +1605,12 @@ Partial Class usrcntlAktDetailsATILLANeu
Friend WithEvents ToolStripSeparator1 As ToolStripSeparator
Friend WithEvents SGSNCTSToolStripMenuItem As ToolStripMenuItem
Friend WithEvents cntxtZollantrag As ContextMenuStrip
Friend WithEvents btnQuckScan As Button
Friend WithEvents cntxt As ContextMenuStrip
Friend WithEvents UmbenennenToolStripMenuItem As ToolStripMenuItem
Friend WithEvents LöschenToolStripMenuItem As ToolStripMenuItem
Friend WithEvents Button4 As Button
Friend WithEvents MarkiertePDFsDruckenToolStripMenuItem As ToolStripMenuItem
Friend WithEvents AusZwischenablageEinfügenPasteToolStripMenuItem As ToolStripMenuItem
Friend WithEvents Button10 As Button
End Class

54
Aviso/usrcntlAktDetailsATILLANeu.resx
View File

@@ -118,6 +118,57 @@
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="btnQuckScan.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAAB4AAAAeCAYAAAA7MK6iAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m
dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAApmSURBVEhLrZd3WFRHF8YvXWUJgtQtCihRqkGC6Ec0
xk4MJioaoiYSwEIEgoKIUSCJESWQxKBCsKCAofe+9F1pC+wuvTcpokiRFpSob2ZXA/nqP1/med6duTPn
nN89M3PvnaUAUGFht6mSslJxe3Jyclt+Qf6XqWmp59Mz0q+TOjwpOSkjKSkpLzEpMS8hMaEqPiG+iaiZ
tCuIRH25iYmJ2cQuLiU1JZT4hGRkZFzIyMzwzszMPPbw4cNdotgPWoWUo89lMUf8kx4fRhUW5Kv09vXH
NTU3oaWlBW1tbejo6EBnZye6u7tw/3437vfcR29PD3p7e2fV0zt33UPGuoldd3c3Ors6xf7t7e1obW3F
8MhoUVd18QoP35/nwNu+iqdu/hLS3MCvwOCDXtL1Ang5Q+rfX7X/z/L86RSejg8hJy3xmblrqAzpegVW
dUhYG3Q9FJwSHrKLysDhN4MjaJ1VkUj8FnCFbWKxi8qRmpWHtOw85HDKUVLTgbL6LpTWdoLX0I2Kph5U
NfdC2NaPmrY+COtbMDAwgMK8fBi5JX48C978ddqHafd4sA9mw8T2EpZutMWK9x2x3PK1th+F7tbDpD6G
ZZvtoKy/EfLaZpDXMoOS3gax/XLLY2KbN4mNyEfkv0JUk/5N7jdwNCSXJNCAIyGlJ2fBi5zYEvt/ZufZ
hhTAyDECEjQGGaH+iyRBySiAmr8I1DxlUNLy/8FmTpJKOjA5mYC9gTlwDOW2stwK5s+CVV2LqIVfpCmu
d7s9usbhCjRMPyIjBCBylpAmoAWQmK8ESQV1SC9kQEZ5MWQWaUFWeQlklBZDSpEOiQUqoGRpxEfqld9r
qRlugalDEHZ+HQNtj1wjBedcMVP8wziRQal5llOLHeMPLbOwxiK9d0DTsYCC7lYoG3wAFWMrqL61E2pE
6iYiWZH2DqgabYOKwSYoL18HRZ3VoLGMIaemCykFDRJZEhLScnhDxwzL138MQ/c0T+VTJRTTNVtyDuyS
S7FOFS5keAtlVd8/fU1SRu6lLMlKfokZaCKRtVTQXv0XkWstUzJmIoYtoOtDRlUXFI1OslaBjIoWmRUW
mQ0mZOQXQsvKLZHlU0OjnypcRHfOnMuY6VJIMd1yacyva2QZR6M+VNYxfaGktRLK2sZEK6GkZYyFS4yh
uNgYCqyVWMB4C3KMVZDUXAUJuhlklqyFov5maL97ALrbDmO+znqoGbwLDcMN0NB9G6zPbzhq+tRKEIaK
pkvaHFjTOVUElqJ7CajFey9E6JjugPbO89Dadw3MXYFQsboK1Y/I2u8OBHNfIJbaXIbR/gCsc7iMD8mO
PXIxEudusBGUWYsMYS+2u4eDWu2DJbv8obV6D1g73DiMs+ULmG55spouf8lY83g6RT9ZQDFPFSiu2HWm
33CXJ1ifJoD2bhSW7InEP1zisME9ETt9UnDw+wwcv5qDszfz4R9TjJC0SoTn1CC6oA4JRXXgVrej5tEU
9A6mgDILg/FnAdB/32WGeSJTj+7OoRjOeXNgulMmpe7GoXS+TFq7xsYbq1wjQP8kDjSzEKhv/BmH3P3g
5ncLJy6FwfNyDHyCU3DxDhs/RhUhOKkUYVl8xBFoRnkr8oSdePRkDLz6PtC2/4qF1tex/tNvoO2csEXd
rZhiOP3TrmZTSidLKOMvo+x3OPnjbe8MaOxNgOr2MMhaxWG17Q18ExSN01dT4HMjE34ReQiMu4eb6TxE
5lUjpbgJufx2lDT2orpzEM29IyQsUNE1DrUj8TC394PZybseyu48inmiaA6s6V5EKbhwKKvTIcEOl0Kx
yicfi6xioLYnCqr2mZDfF4cvLkQhOKEAAZFF+CWZZJnNR3xRPTJ55HVa043K1gdo6h1Gz9AkRqd/x/OX
YjZSGwax0vEKdntcKVQ7UUJYFXNgaTV98hToUhcu+fd5xXFg7FWENyx/hfpniWA4ZmL+sQIYOCUjPLkI
EWw+okiWqSVNyBN0oLSxDzVdg+h4OIbB8aeY/pP4l5Ih6AT5Kr3QWGaqKKVmMAcWlWXq841L8rMRmC+A
4Tku5C0joHk4DQxnNliexZA4UoBTIYWorG1BenkLOLX3UdU2l+XY9PP/+R1raOuGkY66tYhFLufA9nZ2
Xs9GHyG6ohm0z9LI43AdlE0SJOyyIOVYCMqJB+poLhK4jWjvf4yGnmEMPHmKp/+a4MuXeDg8iYrGB4hm
1+NiBA+JnGo8GR3G2bPnwv8NnJKcXCn69nLqurD1TCbeOZWFbb5cWAaUwfJyFaxu1MPIvxruJNDg8Bju
D46jc2AYnf2DqO/oI349iCnpwPeJ1Th67R62e2fB0IHsE+vbCEwuw8zUCAT8qkE5OTnpWbAaKePj46QJ
PH78GMOPB0hrBs+mJzA9OYaJ0SGMDw/iGWlX1jYj914lKgT1KKuqRTmpSwWNKKvrQDn5Ftd2DqD70ROM
Tk3jOYkyOTWBkeFhcWxRMTAwMCTVKzCLybJ4Qp69Fy9e4B6Xi9xsNspKilFOxCstRTW/CnU1QtQK+Wis
r0G1UIDGhga0t7WihRyVGurrUFctQENdDbERQFBVKfbjlZahmMsBp6gQ4xMTYrCpqan1LPjNN5cfmpiY
xLOZZ/juuwvw8PgK58/7wtfXD35+Abh6NQgxsTG4ezccsXExKCY31NLajGYC5XAKERMTjajoSNwJC8cP
P1wW+/j6XiKxfMWxfHy+FZ+/XpL137Jl67ezYAsLC7+Zmd8xPT2NwCtXcYWAIiOjER0di7j4eMTGxiM5
ORUpKSkEHIuEhHhkZ2cjJycH5FQJcgIlY6nENhHRMbEIC49AaWkJSoj8A34iN/MTOTR2ERRgY/NJzCyY
3EWUuJeU0Nt3SLA0lJWVi1VRUQk+XyBWdXUtauvqwSN9XG4xybwUVVUC1NbWQSAQkjZfbF9cXIKmpmbU
EdvUtHTcuhWKR48GxfEdHA5zSfUKrK2tc7eOOHeS6bhzJwx9ff0YH58gG20Iw8MjGBl9AtEeGBsbF0u0
LFOTv2GS1KJr0dgosRkZGcHjoSHxBu3pER13e0nfqHjGiu8Vo40cc9esWVs4CybFVV9PD7a2tti/f//s
tPwdZWhoGPZ29ti3dy/MzMxEsB9J9yz4baLB9zZuwob3NoK1mIVVpquwafMm7NmzB3b2dnA94QpvH2/4
+/sjKCiITN8t3L5zm9Q3ce3aNbKh/MgL4iyOOx3HgYMHYLnDEu+ssxDHIk8raa8XgUQ6MAum0WhKUlJS
XvLytB5NTc2XklKvD3p/g+bNkwOdQQeDyZwisWNZLNbcc0zeJpSMjAxdWlr6A2VlZTcTE5OAnVY7Iw4d
OpTt7Oxc6e7u3nrmzJn+c+fODZF6/PTp05Oenp5TRL+JRPqmyNi4l5fXCKkHSObtHh4eVU5OTmybj23C
1q9bd3Hp0qWfE6i+kpLS3D+JP4ukpCQlLy9P0el0WbIeimS9GSSIXnBwsHlsbOyWrKys3Vwu9yCPx7MX
CARHhELhMT6ff7SiosJe1M9ms3fHxcVtJVNvTsDLra2tNczNzeWZTKbEvHnzXlNETFB/AFyHwBGvedXw
AAAAAElFTkSuQmCC
</value>
</data>
<data name="addVermerk.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABQAAAAUCAYAAACNiR0NAAAABGdBTUEAALGPC/xhBQAAAZ1JREFUOE+l
@@ -177,4 +228,7 @@
<metadata name="cntxtZollantrag.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>306, 17</value>
</metadata>
<metadata name="cntxt.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>440, 17</value>
</metadata>
</root>

183
Aviso/usrcntlAktDetailsATILLANeu.vb
View File

@@ -91,10 +91,13 @@ Public Class usrcntlAktDetailsATILLANeu
pnlDetailsRechts.Cursor = Cursors.Default
loaded = True
Vermerke_anzeigen()
initDgvSpeditionsbuch()
initdgvZollAnmeldungen()
initAnhaenge()
initTbCntr()
'bei selchanged:
'Vermerke_anzeigen()
'initDgvSpeditionsbuch()
'initdgvZollAnmeldungen()
'initAnhaenge()
If AVISO IsNot Nothing Then
@@ -294,6 +297,7 @@ Public Class usrcntlAktDetailsATILLANeu
' lblTimeVorbereitet.Text = formatdate(AVISO.Vorbereitet)
lblTimeVorgeschreiben.Text = formatdate(AVISO.Vorgeschrieben)
intiAktUebernehmenBtn()
Vermerke_anzeigen()
'Button6.Focus()
' pnlDetailsRechts.Visible = True
@@ -465,9 +469,9 @@ Public Class usrcntlAktDetailsATILLANeu
With dgvanhaenge
.RowTemplate.MinimumHeight = 20
.RowTemplate.MinimumHeight = 30
.AutoSizeRowsMode = DataGridViewAutoSizeRowsMode.AllCells
.Columns("anh_id").Visible = False 'VermerkID nicht anzeigen
.Columns("anh_id").Visible = False 'VermerkID nicht anzeigenconMenuVermerke
.Columns("anh_docId").Visible = False 'AvisoID nicht anzeigen
.Columns("anh_Name").MinimumWidth = 150
@@ -738,7 +742,7 @@ Public Class usrcntlAktDetailsATILLANeu
End Sub
Private Sub grid_CellMouseClick(sender As Object, e As System.Windows.Forms.DataGridViewCellMouseEventArgs) Handles gridVermerke.CellMouseClick
Private Sub grid_CellMouseClickAnh(sender As Object, e As System.Windows.Forms.DataGridViewCellMouseEventArgs) Handles gridVermerke.CellMouseClick
If e.RowIndex < 0 Then Exit Sub 'Es wurde außerhalb einer gültigen Datenzeile geklickt
'If gridVermerke.SelectedRows.Count = 0 Then Exit Sub 'Es wurde außerhalb einer gültigen Datenzeile geklickt
'gridMyAviso.ClearSelection() 'WARUM?
@@ -755,6 +759,23 @@ Public Class usrcntlAktDetailsATILLANeu
End If
End Sub
Private Sub grid_CellMouseClick(sender As Object, e As System.Windows.Forms.DataGridViewCellMouseEventArgs) Handles dgvanhaenge.CellMouseClick
If e.RowIndex < 0 Then Exit Sub 'Es wurde außerhalb einer gültigen Datenzeile geklickt
DirectCast(sender, DataGridView).Rows(e.RowIndex).Selected = True
If e.Button = MouseButtons.Right Then
If AVISO.Abgeschlossen Then Exit Sub
If sender Is dgvanhaenge Then
If dgvanhaenge.SelectedRows.Count = 0 Then Exit Sub 'Es wurde außerhalb einer gültigen Datenzeile geklickt
' AvisoID = CInt(dgvanhaenge.Rows(e.RowIndex).Cells("AvisoId").Value)
dgvanhaenge.CurrentCell = dgvanhaenge.Rows(e.RowIndex).Cells(e.ColumnIndex)
cntxt.Show(Cursor.Position)
End If
End If
End Sub
Private Sub btnErfasst_MouseHover(sender As Object, e As EventArgs)
Dim cF As Color = DirectCast(sender, Button).ForeColor
Dim cB As Color = DirectCast(sender, Button).BackColor
@@ -1086,13 +1107,37 @@ Public Class usrcntlAktDetailsATILLANeu
End Sub
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
If FUNC.AktUebernehmen(AvisoID) Then
frmHauptfenster.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
frmHauptfenster.Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles btnAktUebernehmen.Click
'If FUNC.AktUebernehmen(AvisoID) Then
' frmHauptfenster.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
' frmHauptfenster.Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
'End If
If AVISO.LetzterMitarbeiterId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID Then
Dim f As New frmAvisoWeiterleiten("A", AvisoID) '--> Weitereliten
If f.ShowDialog(Me) = DialogResult.OK Then
frmHauptfenster.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
frmHauptfenster.Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
Vermerke_anzeigen()
End If
Else
If FUNC.AktUebernehmen(AvisoID, False) Then
frmHauptfenster.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
frmHauptfenster.Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
End If
End If
End Sub
Sub intiAktUebernehmenBtn()
If AVISO.LetzterMitarbeiterId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID Then
btnAktUebernehmen.Image = My.Resources.weiterleiten_small1
btnAktUebernehmen.Text = "Akt weiterleiten..."
Else
btnAktUebernehmen.Image = My.Resources.personCheck_small
btnAktUebernehmen.Text = "Akt übernehmen"
End If
End Sub
Private Sub UsrCntlVermerkeATilla1_VERMERKEingetragen() Handles UsrCntlVermerkeATilla1.VERMERKEingetragen
reload(AvisoID)
End Sub
@@ -1292,7 +1337,7 @@ Public Class usrcntlAktDetailsATILLANeu
If f.SMS IsNot Nothing Then
Dim FahrerHandy = If(f.SMS.sms_Vorwahl, "") & If(f.SMS.sms_Handynummer, "")
If FahrerHandy <> "" Then
SDL.cSMSOptions.insertVermerk(AvisoID, FahrerHandy, Now)
SDL.cSMSOptions.insertVermerkSMS(AvisoID, FahrerHandy, f.SMS.sms_id, Now)
If If(AVISO.FahrerHandy, "") = "" Then
AVISO.UPDATE_FahrerHandy(FahrerHandy)
End If
@@ -1310,4 +1355,118 @@ Public Class usrcntlAktDetailsATILLANeu
Private Sub SGSNCTSToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SGSNCTSToolStripMenuItem.Click
genZollantrag("T2", "SGS")
End Sub
Private Sub btnQuckScan_Click(sender As Object, e As EventArgs) Handles btnQuckScan.Click
Try
Me.Cursor = Cursors.WaitCursor
If frmSendungAnhangImport.quickScan(AvisoID) Then
initAnhaenge()
End If
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,, "Fehler QuickScan")
End Try
Me.Cursor = Cursors.Default
End Sub
Private Sub tbcntr_SelectedIndexChanged(sender As Object, e As EventArgs) Handles tbcntr.SelectedIndexChanged
initTbCntr()
End Sub
Sub initTbCntr()
If tbcntr.SelectedTab Is tbAnhaenge Then
initAnhaenge()
ElseIf tbcntr.SelectedTab Is tbSpedBuch Then
initDgvSpeditionsbuch()
ElseIf tbcntr.SelectedTab Is tbZollanmeldungen Then
initdgvZollAnmeldungen()
ElseIf tbcntr.SelectedTab Is tbVermerke Then
Vermerke_anzeigen()
End If
End Sub
Private Sub LöschenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles LöschenToolStripMenuItem.Click
If dgvanhaenge.SelectedRows.Count = 0 Then Exit Sub
If vbNo = MsgBox("Wollen Sie den ausgewählten Anhang wirklich löschen?", CType(MsgBoxStyle.YesNo + MsgBoxStyle.Exclamation, MsgBoxStyle), "Anhang löschen") Then
Exit Sub
End If
For Each r As DataGridViewRow In dgvanhaenge.SelectedRows
Dim anh_id = dgvanhaenge.SelectedRows(0).Cells("anh_id").Value
Dim anh_docId = dgvanhaenge.SelectedRows(0).Cells("anh_docId").Value
frmSendungAnhangImport.deleteElement(anh_docId, anh_id, False)
Next
initAnhaenge()
End Sub
Private Sub UmbenennenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles UmbenennenToolStripMenuItem.Click
Try
If dgvanhaenge.SelectedRows.Count = 0 Then Exit Sub
Dim anh_id = dgvanhaenge.SelectedRows(0).Cells("anh_id").Value
Dim FILE_NAME = dgvanhaenge.SelectedRows(0).Cells("anh_Name").Value
Dim ANH As New VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge(anh_id)
Dim f As New frmSendungAnhangUmbenennenUmkateg(FILE_NAME, ANH.anh_Art)
If f.ShowDialog = DialogResult.OK Then
ANH.anh_Name = f.txtBezeichnung.Text
ANH.anh_Art = f.cboArt._value
ANH.SAVE()
FILE_NAME = f.txtBezeichnung.Text
initAnhaenge()
End If
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
Private Sub Button4_Click_1(sender As Object, e As EventArgs) Handles Button4.Click
If frmSendungAnhangImport.addData_SendungAnhangFD(AvisoID) Then
initAnhaenge()
End If
End Sub
Private Sub MarkiertePDFsDruckenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles MarkiertePDFsDruckenToolStripMenuItem.Click
For Each r As DataGridViewRow In dgvanhaenge.SelectedRows
Select Case r.Cells("anh_Typ").Value
Case "PDF" : VERAG_PROG_ALLGEMEIN.cFormularManager.PrintViaSpirePDF({VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(r.Cells("anh_docId").Value)})
Case "BILD" : VERAG_PROG_ALLGEMEIN.cFormularManager.Print_PICTURE({VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(r.Cells("anh_docId").Value)})
End Select
Next
End Sub
Private Sub Button10_Click(sender As Object, e As EventArgs) Handles Button10.Click
Dim data As IDataObject = Clipboard.GetDataObject
If True Then 'data.GetDataPresent(DataFormats.FileDrop) Then
For Each s As String In My.Computer.Clipboard.GetFileDropList() 'GetData(DataFormats.) 'data.GetData(DataFormats.FileDrop) 'DataFormats.FileDrop)
' Dim F_listItem As String = Path.Combine("c:\mynewpath", Path.GetFileName(s))
' File.Copy(s, newFile)
' MsgBox(s)
If IO.File.Exists(s) Then
Dim fi As New FileInfo(s)
Dim filename = fi.Name
If filename = "" Then
MsgBox("Dateiname konnte nicht ermittelt werden." & vbNewLine & s)
Else
Dim da_id = -1
Dim anhId = -1
Dim destPath = ""
Dim Typ = ""
If frmSendungAnhangImport.getFileTypeValid(fi.Extension.Replace(".", ""), Typ) Then
frmSendungAnhangImport.saveToDS(AvisoID, filename, s, "", Typ, da_id, anhId, destPath)
End If
End If
End If
Next
initAnhaenge()
End If
End Sub
End Class