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

SEndungsdetails ATilla

Browse Source
This commit is contained in:
Andreas Luxbauer
2025-02-19 10:50:13 +01:00
parent 390d5353f2
commit 7823d11489
19 changed files with 2603 additions and 4038 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
AVISOUPDATER/UPDATERfrm.vb
View File

@@ -35,8 +35,10 @@ Public Class UPDATERfrm
CopyIncremental = False
End If
If System.AppDomain.CurrentDomain.BaseDirectory = "\\share01\Programme\AVISO\" OrElse System.AppDomain.CurrentDomain.BaseDirectory = "\\share01\f\Programme\AVISO\" OrElse System.AppDomain.CurrentDomain.BaseDirectory = "\\install\Programme\AVISO\" Then
MsgBox("Programm kann nicht im Quellpfad " & System.AppDomain.CurrentDomain.BaseDirectory & " geupdated werden!" & vbNewLine & "Vorgang wird abgebrochen!", MsgBoxStyle.Critical)
If System.AppDomain.CurrentDomain.BaseDirectory = "\\share01\Programme\AVISO\" OrElse System.AppDomain.CurrentDomain.BaseDirectory = "\\share01\f\Programme\AVISO\" OrElse System.AppDomain.CurrentDomain.BaseDirectory = "\\install\Programme\AVISO\" OrElse
System.AppDomain.CurrentDomain.BaseDirectory = "\\share01\Programme\AVISO_INSTALL\" OrElse System.AppDomain.CurrentDomain.BaseDirectory = "\\share01\f\Programme\AVISO_INSTALL\" OrElse System.AppDomain.CurrentDomain.BaseDirectory = "\\install\Programme\AVISO_INSTALL\" Then
MsgBox("Programm kann im Quellpfad " & System.AppDomain.CurrentDomain.BaseDirectory & " nicht geupdated werden!" & vbNewLine & "Vorgang wird abgebrochen!", MsgBoxStyle.Critical)
Me.Close()
Exit Sub
End If

4
Aviso/Aviso.vbproj
View File

@@ -76,7 +76,8 @@
<OptionInfer>On</OptionInfer>
</PropertyGroup>
<PropertyGroup>
<ApplicationIcon>aviso.ico</ApplicationIcon>
<ApplicationIcon>
</ApplicationIcon>
</PropertyGroup>
<PropertyGroup />
<PropertyGroup>
@@ -596,7 +597,6 @@
</Compile>
<Compile Include="cBinding.vb" />
<Compile Include="cEasyBinding.vb" />
<Compile Include="CHMRC.vb" />
<Compile Include="Classes\cSendungsoptions.vb" />
<Compile Include="cProgramFunctions.vb" />
<Compile Include="cServerClient.vb" />

7
Aviso/Benachrichtigung/frmAvisoWeiterleiten.vb
View File

@@ -319,7 +319,12 @@ Public Class frmAvisoWeiterleiten
End If
ElseIf sender Is btnAMBAR Then
addBtn(flpFirma, "F", "AMBAR", "AMBAR", True)
Dim dt As DataTable = SQL.loadDgvBySql("SELECT team_id, team_bezeichnung FROM tblTeams WHERE team_firma='AMBAR' 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"),, "AMBAR")
Next
End If
ElseIf sender Is Button2 Then
addBtn(flpFirma, "W", "FO_WIHD", "KÖRFEZ 61", True, "VERAG")

1614
Aviso/CHMRC.vb
View File

File diff suppressed because it is too large Load Diff

12
Aviso/GVMS/frmGVMS.vb
View File

@@ -338,7 +338,7 @@
Dim dt = SQL.loadDgvBySql("SELECT distinct([gvms_notification_boxid]) FROM [tblGVMS] where gvms_GMR is null and gvms_notification_boxid is not null", "FMZOLL")
If dt IsNot Nothing Then
For Each row In dt.Rows
cHMRC.GET_NOTIFICATIONS(row("gvms_notification_boxid"))
VERAG_PROG_ALLGEMEIN.cHMRC.GET_NOTIFICATIONS(row("gvms_notification_boxid"))
Next
End If
Catch ex As Exception
@@ -377,7 +377,7 @@
If MyDatagridview1.SelectedRows.Count() = 1 Then
Dim GVMS = New VERAG_PROG_ALLGEMEIN.cGVMS(MyDatagridview1.SelectedRows(0).Cells("gvms_id").Value)
If GVMS.hasEntry AndAlso If(GVMS.gvms_GMR, "") <> "" Then
cHMRC.DELETE_GMR(GVMS)
VERAG_PROG_ALLGEMEIN.cHMRC.DELETE_GMR(GVMS)
End If
ElseIf MyDatagridview1.SelectedRows.Count() = 0 Then
Else
@@ -387,7 +387,7 @@
End Sub
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
cHMRC.GET_GVMS_LIST()
VERAG_PROG_ALLGEMEIN.cHMRC.GET_GVMS_LIST()
End Sub
@@ -395,7 +395,7 @@
If MyDatagridview1.SelectedRows.Count() = 1 Then
Dim GVMS = New VERAG_PROG_ALLGEMEIN.cGVMS(MyDatagridview1.SelectedRows(0).Cells("gvms_id").Value)
If GVMS.hasEntry AndAlso If(GVMS.gvms_GMR, "") <> "" Then
cHMRC.GET_GVMS_GMR(GVMS.gvms_GMR)
VERAG_PROG_ALLGEMEIN.cHMRC.GET_GVMS_GMR(GVMS.gvms_GMR)
End If
ElseIf MyDatagridview1.SelectedRows.Count() = 0 Then
Else
@@ -404,14 +404,14 @@
End Sub
Private Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.Click
cHMRC.getGVMS_RefData()
VERAG_PROG_ALLGEMEIN.cHMRC.getGVMS_RefData()
End Sub
Private Sub Button10_Click(sender As Object, e As EventArgs) Handles Button10.Click
If MyDatagridview1.SelectedRows.Count() = 1 Then
Dim GVMS = New VERAG_PROG_ALLGEMEIN.cGVMS(MyDatagridview1.SelectedRows(0).Cells("gvms_id").Value)
If GVMS.hasEntry AndAlso If(GVMS.gvms_notification_boxid, "") <> "" AndAlso If(GVMS.gvms_notification_id, "") <> "" Then
cHMRC.Acknowledge_NOTIFICATIONS(GVMS.gvms_notification_boxid, GVMS.gvms_notification_id)
VERAG_PROG_ALLGEMEIN.cHMRC.Acknowledge_NOTIFICATIONS(GVMS.gvms_notification_boxid, GVMS.gvms_notification_id)
End If
ElseIf MyDatagridview1.SelectedRows.Count() = 0 Then
Else

4
Aviso/GVMS/frmGVMSNew.vb
View File

@@ -221,9 +221,9 @@ Public Class frmGVMSNew
If GVMS.SAVE() Then
If If(GVMS.gvms_GMR, "") <> "" Then
cHMRC.SEND_GVMS(GVMS, GVMS.gvms_GMR) 'UPDATE
VERAG_PROG_ALLGEMEIN.cHMRC.SEND_GVMS(GVMS, GVMS.gvms_GMR) 'UPDATE
Else
cHMRC.SEND_GVMS(GVMS)
VERAG_PROG_ALLGEMEIN.cHMRC.SEND_GVMS(GVMS)
End If
Return True

4
Aviso/My Project/AssemblyInfo.vb
View File

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

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

@@ -1709,7 +1709,7 @@ Namespace My.Resources
End Property
'''<summary>
''' Sucht eine lokalisierte Zeichenfolge, die 6.0 ähnelt.
''' Sucht eine lokalisierte Zeichenfolge, die 7.1 ähnelt.
'''</summary>
Public ReadOnly Property UpdaterVersion() As String
Get

2
Aviso/My Project/Resources.resx
View File

@@ -545,7 +545,7 @@
<value>..\Resources\mitarbeiter_s.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="UpdaterVersion" xml:space="preserve">
<value>6.0</value>
<value>7.1</value>
</data>
<data name="DGS_Instructions_Import" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\resources\dgs_instructions_import.xlsx;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>

72
Aviso/frmEintragAviso.vb
View File

@@ -1078,29 +1078,32 @@ Public Class frmEintragAviso
' Dim FIRMA_CBO = If(cboFirma._value <> "", cboFirma._value, FIRMA_TMP)
Select Case FIRMA_TMP
Case "ATILLA"
Try
'ATILLA AKTENZETTEL DRUCKEN
If Neuanlage Then
If ATILLA_NEUERAKTENDECKEL Then
Dim abfnr_tmp As Object = DBNull.Value
Dim sndId = -1
Dim filiale_tmp As Integer = 4801 'VERAG_PROG_ALLGEMEIN.cAllgemein.STAMMFILIALE
If cboGrenzstelle._value = "NEU" Then filiale_tmp = 4802
getFilialeAndAbfertNrATILLA(1, abfnr_tmp, filiale_tmp) ' FilialeNr u AbfNr werden geladen
If AvisoDAL.insertSendungEmpty(tmpId, 1, filiale_tmp, abfnr_tmp, 0, Nothing, , , , sndId) Then ' INSERT
TMP_SND_Atilla = New VERAG_PROG_ALLGEMEIN.cSendungen(sndId)
loadInSND(TMP_SND_Atilla)
End If
End If
Else
loadInSND(TMP_SND_Atilla)
End If
If cbxAktenzettelDrucken.Checked Then SendungOptions.PrintSendungATILLA("PRINT", TMP_SND_Atilla, myAviso, cboPrinter.Text)
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
Case "IMEX", "UNISPED", "AMBAR", "FRONTOFFICE", "VERIMEX"
'Case "ATILLA"
' Try
' 'ATILLA AKTENZETTEL DRUCKEN
' If Neuanlage Then
' If ATILLA_NEUERAKTENDECKEL Then
' Dim abfnr_tmp As Object = DBNull.Value
' Dim sndId = -1
' Dim filiale_tmp As Integer = 4801 'VERAG_PROG_ALLGEMEIN.cAllgemein.STAMMFILIALE
' If cboGrenzstelle._value = "NEU" Then filiale_tmp = 4802
' getFilialeAndAbfertNrATILLA(1, abfnr_tmp, filiale_tmp) ' FilialeNr u AbfNr werden geladen
' MsgBox(filiale_tmp & "/" & abfnr_tmp)
' If AvisoDAL.insertSendungEmpty(tmpId, 1, filiale_tmp, abfnr_tmp, 0, Nothing, , , , sndId) Then ' INSERT
' TMP_SND_Atilla = New VERAG_PROG_ALLGEMEIN.cSendungen(sndId)
' loadInSND(TMP_SND_Atilla)
' End If
' End If
' Else
' loadInSND(TMP_SND_Atilla)
' End If
' If cbxAktenzettelDrucken.Checked Then SendungOptions.PrintSendungATILLA("PRINT", TMP_SND_Atilla, myAviso, cboPrinter.Text)
' Catch ex As Exception
' VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
' End Try
Case "IMEX", "UNISPED", "AMBAR", "FRONTOFFICE", "VERIMEX", "ATILLA"
Dim anzahlSendungen = ADMIN.getValueTxtBySql("SELECT count(*) FROM tblSendungen WHERE tblSnd_AvisoID=" & tmpId, "AVISO") ' bei Neuanlage=0
'Die Sendungen eintragen:
@@ -1112,6 +1115,11 @@ Public Class frmEintragAviso
showSendungsdetails = True ' Damit der benutzer gleich die Sendungen sieht und ggf löschen kann.
Else
Dim filiale_tmp As Integer = VERAG_PROG_ALLGEMEIN.cAllgemein.STAMMFILIALE
Select Case FIRMA_TMP
Case "ATILLA"
filiale_tmp = 4801
If cboGrenzstelle._value = "NEU" Then filiale_tmp = 4802
End Select
Dim gesAnzSnd = initSndAnzahl()
@@ -1136,7 +1144,17 @@ Public Class frmEintragAviso
tblSnd_Auftraggeber = kdAvisierer.Text
End If
AvisoDAL.insertSendungEmpty(tmpId, cnt, filiale_tmp, abfnr_tmp, 0, abfArt, tblSnd_AuftraggeberKdNr, tblSnd_Auftraggeber, fremd) ' INSERT
Dim sndId = -1
If AvisoDAL.insertSendungEmpty(tmpId, cnt, filiale_tmp, abfnr_tmp, 0, abfArt, tblSnd_AuftraggeberKdNr, tblSnd_Auftraggeber, remd, sndId) Then ' INSERT
If FIRMA_TMP = "ATILLA" Then
TMP_SND_Atilla = New VERAG_PROG_ALLGEMEIN.cSendungen(sndId)
loadInSND(TMP_SND_Atilla)
End If
End If
Next
End If
@@ -1259,9 +1277,9 @@ Public Class frmEintragAviso
Sub loadInSND(SND As VERAG_PROG_ALLGEMEIN.cSendungen)
If SND IsNot Nothing Then
SND.tblSnd_Warenbezeichnung = (UsrCntlEintragAvisoAtilla.txtWarenbezeichnung.Text)
SND.tblSnd_Colli = (UsrCntlEintragAvisoAtilla.txtColli.Text)
SND.tblSnd_Gewicht = (UsrCntlEintragAvisoAtilla.txtGewicht.Text)
' SND.tblSnd_Warenbezeichnung = (UsrCntlEintragAvisoAtilla.txtWarenbezeichnung.Text)
' SND.tblSnd_Colli = (UsrCntlEintragAvisoAtilla.txtColli.Text)
' SND.tblSnd_Gewicht = (UsrCntlEintragAvisoAtilla.txtGewicht.Text)
SND.tblSnd_Anmerkung = (UsrCntlEintragAvisoAtilla.txtAnmerkung.Text)

88
Aviso/frmHauptfenster.vb
View File

@@ -397,7 +397,7 @@ Public Class frmHauptfenster
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "ATILLA" ' Case "VERAG", "IMEX"
lblErweitereSuche.Visible = False
' lblErweitereSuche.Visible = False
MDMParkplatzkartenToolStripMenuItem.Visible = False
' SplitContainer3.Panel1Collapsed = True
@@ -5231,6 +5231,7 @@ Public Class AvisoStatusFunctions
Public Sub sendAnkunftBenachrichtigung(AvisoId)
'VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungen.INSERT_BENACHRICHTIGUNG(AvisoId, -1, 3, "T", TeamID, "*ANKUNFT*", 0, "", "AUTO: LKW Ankunft - nicht vorgeschrieben!")
Dim alreadySent As New List(Of Integer)
Dim SENDUNG_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cSendungen)
For Each r In AvisoDAL.loadDataTableBySQL("SELECT tblSnd_SendungID FROM tblSendungen WHERE tblSnd_AvisoID=" & AvisoId).Rows
@@ -5342,7 +5343,9 @@ Public Class AvisoStatusFunctions
End If
'E-Mail
sendAnkunftBenachrichtigung(Aviso.AvisoID)
If Aviso.FIRMA <> "ATILLA" Then
sendAnkunftBenachrichtigung(Aviso.AvisoID)
End If
If Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_ATILLA_VERIMEX Or Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_ATILLA_INDONESIEN Then
Rücksetzen = True
@@ -6246,54 +6249,55 @@ Public Class AvisoStatusFunctions
If Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Freigegeben Or Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Vorbereitet Or Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Erfasst Or Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Vorgeschrieben Then
'Prüfung
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "ATILLA" Then
If value Then
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
If SQL.getValueTxtBySql("SELECT isnull(count(*),0) FROM Speditionsbuch WHERE AvisoID=" & AvisoID, "FMZOLL") = 0 Then
If vbYes <> MsgBox("Keine Speditionbucheinträge vorhanden!" & vbNewLine & vbNewLine & "Möchten Sie trotzdem fortfahren?", vbYesNoCancel) Then
Return False
End If
End If
If False Then
'If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "ATILLA" Then
' If value Then
' Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
' If SQL.getValueTxtBySql("SELECT isnull(count(*),0) FROM Speditionsbuch WHERE AvisoID=" & AvisoID, "FMZOLL") = 0 Then
' If vbYes <> MsgBox("Keine Speditionbucheinträge vorhanden!" & vbNewLine & vbNewLine & "Möchten Sie trotzdem fortfahren?", vbYesNoCancel) Then
' Return False
' End If
' End If
Aviso.Abgeschlossen = value
AvisoDAL.SpeichernAviso(Aviso)
AvisoDAL.addAenderung(AvisoID, "AKT abgeschlossen", "auf 'AKT ABGESCHLOSSEN' gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm"))
Else
Aviso.Abgeschlossen = value
AvisoDAL.SpeichernAviso(Aviso)
AvisoDAL.addAenderung(AvisoID, "AKT erneut geöffnet", "auf 'AKT OFFEN' gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm"))
End If
' Aviso.Abgeschlossen = value
' AvisoDAL.SpeichernAviso(Aviso)
' AvisoDAL.addAenderung(AvisoID, "AKT abgeschlossen", "auf 'AKT ABGESCHLOSSEN' gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm"))
' Else
' Aviso.Abgeschlossen = value
' AvisoDAL.SpeichernAviso(Aviso)
' AvisoDAL.addAenderung(AvisoID, "AKT erneut geöffnet", "auf 'AKT OFFEN' gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm"))
' End If
Else
If value Then
For Each r In AvisoDAL.loadDataTableBySQL("SELECT tblSnd_SpeditionsbuchEingetragen FROM tblSendungen WHERE tblSnd_AvisoID=" & AvisoID & " AND [tblSnd_Fremdspedition]=0").Rows
If Not CBool(r(0)) Then
MsgBox("Sie müssen erst alle Sendungen ins Speditionsbuch eintragen!")
Return False
End If
Next
Aviso.Abgeschlossen = value
AvisoDAL.SpeichernAviso(Aviso)
If value Then
For Each r In AvisoDAL.loadDataTableBySQL("SELECT tblSnd_SpeditionsbuchEingetragen FROM tblSendungen WHERE tblSnd_AvisoID=" & AvisoID & " AND [tblSnd_Fremdspedition]=0").Rows
If Not CBool(r(0)) Then
MsgBox("Sie müssen erst alle Sendungen ins Speditionsbuch eintragen!")
Return False
End If
Next
Aviso.Abgeschlossen = value
AvisoDAL.SpeichernAviso(Aviso)
'--> Nicht mehr benötigt, alte Archiv Software IMEX
'Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
' Case "IMEX" : createNLC(Aviso)
'End Select
'--> Nicht mehr benötigt, alte Archiv Software IMEX
'Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
' Case "IMEX" : createNLC(Aviso)
'End Select
AvisoDAL.addAenderung(AvisoID, "AKT abgeschlossen", "auf 'AKT ABGESCHLOSSEN' gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm"))
AvisoDAL.addAenderung(AvisoID, "AKT abgeschlossen", "auf 'AKT ABGESCHLOSSEN' gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm"))
'Benachrichtigungen erledigen
VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungen.BESTAETIGEN_BENACHRICHTIGUNG_ALL(Aviso.AvisoID, False)
Else
Aviso.Abgeschlossen = value
AvisoDAL.SpeichernAviso(Aviso)
AvisoDAL.addAenderung(AvisoID, "AKT erneut geöffnet", "auf 'AKT OFFEN' gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm"))
'Benachrichtigungen erledigen
VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungen.BESTAETIGEN_BENACHRICHTIGUNG_ALL(Aviso.AvisoID, False)
Else
Aviso.Abgeschlossen = value
AvisoDAL.SpeichernAviso(Aviso)
AvisoDAL.addAenderung(AvisoID, "AKT erneut geöffnet", "auf 'AKT OFFEN' gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm"))
End If
End If
End If
Return True
Else
MsgBox("LKW-Status muss auf 'Freigegeben' sein.", vbInformation)
Return True
Else
MsgBox("LKW-Status muss auf 'Freigegeben' sein.", vbInformation)
Return False
End If

11
Aviso/frmLogin.vb
View File

@@ -62,6 +62,17 @@ Public Class frmLogin
lblVersion.ContextMenuStrip = ctxUpdate
If Application.ProductVersion.StartsWith("0") Then lblVersion.Text += " BETA"
If System.AppDomain.CurrentDomain.BaseDirectory = "\\share01\Programme\AVISO\" OrElse System.AppDomain.CurrentDomain.BaseDirectory = "\\share01\f\Programme\AVISO\" OrElse System.AppDomain.CurrentDomain.BaseDirectory = "\\install\Programme\AVISO\" OrElse
System.AppDomain.CurrentDomain.BaseDirectory = "\\share01\Programme\AVISO_INSTALL\" OrElse System.AppDomain.CurrentDomain.BaseDirectory = "\\share01\f\Programme\AVISO_INSTALL\" OrElse System.AppDomain.CurrentDomain.BaseDirectory = "\\install\Programme\AVISO_INSTALL\" Then
MsgBox("Programm kann im Quellpfad " & System.AppDomain.CurrentDomain.BaseDirectory & " nicht gestartet werden!" & vbNewLine & "Vorgang wird abgebrochen!", MsgBoxStyle.Critical)
Application.Exit()
Me.Close()
Exit Sub
End If
If Not VERAG_PROG_ALLGEMEIN.cProgramFunctions.spireLoadLicense() Then MsgBox("Fehler beim Laden der SPIRE-Lizenz")
Dim pfadDatei As String = Application.StartupPath & "\Standort.txt"

4003
Aviso/frmSendungsdetailsNEU.Designer.vb generated
View File

File diff suppressed because it is too large Load Diff

82
Aviso/frmSendungsdetailsNEU.resx
View File

@@ -117,7 +117,45 @@
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="ToolTip.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>404, 17</value>
</metadata>
<metadata name="cntxt.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>765, 17</value>
</metadata>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="FlatButton4.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
/9j/4AAQSkZJRgABAQEAAAAAAAD/7gAOQWRvYmUAZAAAAAAB/9sAQwABAQEBAQEBAQEBAQEBAQEBAQEB
AQECAQEBAQECAgICAgICAgICAgIDAgICAwMDAwMDBQUFBQUFBQUFBQUFBQUF/9sAQwEBAQECAQIDAgID
BAQDBAQFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUF/8AAEQgA
GQAZAwERAAIRAQMRAf/EABgAAAMBAQAAAAAAAAAAAAAAAAAICQcK/8QAKRAAAQUAAgIABAcBAAAAAAAA
AQIDBAUGAAcRITESIxVBYSIyEzMIFv/EABQBAQAAAAAAAAAAAAAAAAAAAAD/xAAUEQEAAAAAAAAAAAAA
AAAAAAAA/9oADAMBAAIRAxEAPwDsSKq/7Vudfqtf2Ky3W77t1EhyJ2zp6WBFraLTW8SKwzFh3EeKwhmM
w202htsDwB64CSWH+lrc3ilVadknOB9Pyx5/c+5cunIwP6vrN6dDCVKHw+kQPz4DTyLim0vTGs7ByGt7
VhTIWM1NlDU73LrX3qq7qoLzqUqQ5dracLLyQfCklJ/EEHxwKNcCflzQva7Adn5eM8iPKtd/3dGjOrHl
CX/+uu1oCvY9FQAPASxnqXraJBDWh1mqq9RFZSzZZtvKOy5ItAAC0w4glhxLi/61FYBHs+OAxOYzVhjv
8072rtGHIkiXkewbJuHJAEuJGnQZBabeAJSFhAHzAHgVN4Eiu2d5aQqnXZPF6TM12hk9sdyt3a5uzqc/
ZU0FWpt3EJ+SbMjvIVJS6FIUgeQkefXkHgLI1adyMwzAa7QpUxShaP4h3HSftc+Pv7r54GoZDeaeu697
KyW71mPsIEnA6z7BMPYFReXTtvJirbbhIRHnPvuh4LUUeR6ICR8QOBcDgHAOAcA4H//Z
</value>
</data>
<data name="FlatButton1.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
/9j/4AAQSkZJRgABAQEAAAAAAAD/7gAOQWRvYmUAZAAAAAAB/9sAQwABAQEBAQEBAQEBAQEBAQEBAQEB
AQECAQEBAQECAgICAgICAgICAgIDAgICAwMDAwMDBQUFBQUFBQUFBQUFBQUF/9sAQwEBAQECAQIDAgID
BAQDBAQFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUF/8AAEQgA
GQAZAwERAAIRAQMRAf/EABgAAAMBAQAAAAAAAAAAAAAAAAAICQcK/8QAKRAAAQUAAgIABAcBAAAAAAAA
AQIDBAUGAAcRITESIxVBYSIyEzMIFv/EABQBAQAAAAAAAAAAAAAAAAAAAAD/xAAUEQEAAAAAAAAAAAAA
AAAAAAAA/9oADAMBAAIRAxEAPwDsSKq/7Vudfqtf2Ky3W77t1EhyJ2zp6WBFraLTW8SKwzFh3EeKwhmM
w202htsDwB64CSWH+lrc3ilVadknOB9Pyx5/c+5cunIwP6vrN6dDCVKHw+kQPz4DTyLim0vTGs7ByGt7
VhTIWM1NlDU73LrX3qq7qoLzqUqQ5dracLLyQfCklJ/EEHxwKNcCflzQva7Adn5eM8iPKtd/3dGjOrHl
CX/+uu1oCvY9FQAPASxnqXraJBDWh1mqq9RFZSzZZtvKOy5ItAAC0w4glhxLi/61FYBHs+OAxOYzVhjv
8072rtGHIkiXkewbJuHJAEuJGnQZBabeAJSFhAHzAHgVN4Eiu2d5aQqnXZPF6TM12hk9sdyt3a5uzqc/
ZU0FWpt3EJ+SbMjvIVJS6FIUgeQkefXkHgLI1adyMwzAa7QpUxShaP4h3HSftc+Pv7r54GoZDeaeu697
KyW71mPsIEnA6z7BMPYFReXTtvJirbbhIRHnPvuh4LUUeR6ICR8QOBcDgHAOAcA4H//Z
</value>
</data>
<data name="btnDirektAnfuegen.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABQAAAAUCAYAAACNiR0NAAAABGdBTUEAALGPC/xhBQAAAIdJREFUOE/V
@@ -1531,6 +1569,9 @@
mVCCPwiVeQBaqAV4Jfq5XQAAAABJRU5ErkJggg==
</value>
</data>
<metadata name="MenuStrip.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>296, 17</value>
</metadata>
<data name="Button6.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABQAAAAUCAYAAACNiR0NAAAABGdBTUEAALGPC/xhBQAAAIdJREFUOE/V
@@ -1762,44 +1803,6 @@
rGp33g/w9ql7NoGnXyWw0LUP726+A48ybH5BknCWWY7Lq2TVaSzNVMvnjcLjoYqrHD5NUxOdyqYOtXoR
rY7H4jHYSnSdT2lHL8uwNOUI/FU+hyHGUMfjc2xVDEQxsJvDOOIVCrQdKLqYyNPBKNaFOo4UMPToVZT5
eWpiMRXkm9o//9k=
</value>
</data>
<metadata name="ToolTip.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>404, 17</value>
</metadata>
<metadata name="cntxt.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>765, 17</value>
</metadata>
<data name="FlatButton4.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
/9j/4AAQSkZJRgABAQEAAAAAAAD/7gAOQWRvYmUAZAAAAAAB/9sAQwABAQEBAQEBAQEBAQEBAQEBAQEB
AQECAQEBAQECAgICAgICAgICAgIDAgICAwMDAwMDBQUFBQUFBQUFBQUFBQUF/9sAQwEBAQECAQIDAgID
BAQDBAQFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUF/8AAEQgA
GQAZAwERAAIRAQMRAf/EABgAAAMBAQAAAAAAAAAAAAAAAAAICQcK/8QAKRAAAQUAAgIABAcBAAAAAAAA
AQIDBAUGAAcRITESIxVBYSIyEzMIFv/EABQBAQAAAAAAAAAAAAAAAAAAAAD/xAAUEQEAAAAAAAAAAAAA
AAAAAAAA/9oADAMBAAIRAxEAPwDsSKq/7Vudfqtf2Ky3W77t1EhyJ2zp6WBFraLTW8SKwzFh3EeKwhmM
w202htsDwB64CSWH+lrc3ilVadknOB9Pyx5/c+5cunIwP6vrN6dDCVKHw+kQPz4DTyLim0vTGs7ByGt7
VhTIWM1NlDU73LrX3qq7qoLzqUqQ5dracLLyQfCklJ/EEHxwKNcCflzQva7Adn5eM8iPKtd/3dGjOrHl
CX/+uu1oCvY9FQAPASxnqXraJBDWh1mqq9RFZSzZZtvKOy5ItAAC0w4glhxLi/61FYBHs+OAxOYzVhjv
8072rtGHIkiXkewbJuHJAEuJGnQZBabeAJSFhAHzAHgVN4Eiu2d5aQqnXZPF6TM12hk9sdyt3a5uzqc/
ZU0FWpt3EJ+SbMjvIVJS6FIUgeQkefXkHgLI1adyMwzAa7QpUxShaP4h3HSftc+Pv7r54GoZDeaeu697
KyW71mPsIEnA6z7BMPYFReXTtvJirbbhIRHnPvuh4LUUeR6ICR8QOBcDgHAOAcA4H//Z
</value>
</data>
<data name="FlatButton1.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
/9j/4AAQSkZJRgABAQEAAAAAAAD/7gAOQWRvYmUAZAAAAAAB/9sAQwABAQEBAQEBAQEBAQEBAQEBAQEB
AQECAQEBAQECAgICAgICAgICAgIDAgICAwMDAwMDBQUFBQUFBQUFBQUFBQUF/9sAQwEBAQECAQIDAgID
BAQDBAQFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUF/8AAEQgA
GQAZAwERAAIRAQMRAf/EABgAAAMBAQAAAAAAAAAAAAAAAAAICQcK/8QAKRAAAQUAAgIABAcBAAAAAAAA
AQIDBAUGAAcRITESIxVBYSIyEzMIFv/EABQBAQAAAAAAAAAAAAAAAAAAAAD/xAAUEQEAAAAAAAAAAAAA
AAAAAAAA/9oADAMBAAIRAxEAPwDsSKq/7Vudfqtf2Ky3W77t1EhyJ2zp6WBFraLTW8SKwzFh3EeKwhmM
w202htsDwB64CSWH+lrc3ilVadknOB9Pyx5/c+5cunIwP6vrN6dDCVKHw+kQPz4DTyLim0vTGs7ByGt7
VhTIWM1NlDU73LrX3qq7qoLzqUqQ5dracLLyQfCklJ/EEHxwKNcCflzQva7Adn5eM8iPKtd/3dGjOrHl
CX/+uu1oCvY9FQAPASxnqXraJBDWh1mqq9RFZSzZZtvKOy5ItAAC0w4glhxLi/61FYBHs+OAxOYzVhjv
8072rtGHIkiXkewbJuHJAEuJGnQZBabeAJSFhAHzAHgVN4Eiu2d5aQqnXZPF6TM12hk9sdyt3a5uzqc/
ZU0FWpt3EJ+SbMjvIVJS6FIUgeQkefXkHgLI1adyMwzAa7QpUxShaP4h3HSftc+Pv7r54GoZDeaeu697
KyW71mPsIEnA6z7BMPYFReXTtvJirbbhIRHnPvuh4LUUeR6ICR8QOBcDgHAOAcA4H//Z
</value>
</data>
<data name="btnDelQS.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
@@ -2074,6 +2077,9 @@
<metadata name="cntxtOptions.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>174, 17</value>
</metadata>
<metadata name="ToolTip.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>404, 17</value>
</metadata>
<metadata name="ctxtWeitereFormulare.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>596, 17</value>
</metadata>

42
Aviso/frmSendungsdetailsNEU.vb
View File

@@ -177,8 +177,42 @@ Public Class frmSendungsdetailsNEU
Dim FilialeAktFirma = VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale2(SENDUNG_LIST(CURRENT_INDEX).FilialenNr,, "")
lblErr_AvisiererKdNr.Visible = False
lblErr_EmpfKdNr.Visible = False
lblErr_Auftrageber.Visible = False
lblErr_FraechterKdNr.Visible = False
If showErr Then
lblFilialeAbfNr.Visible = False
lblAbfArtLand.Visible = False
End If
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "ATILLA" Then
If cboFiliale._value = "" Then
rtbValidierung.Text &= "Wählen Sie eine FilialenNr!" & vbNewLine : pnlValidation.Visible = True
If showErr Then lblFilialeAbfNr.Visible = True : Return False
End If
If btnNeueAbfertigungNrVergeben.Visible OrElse txtAbfertigungsnummer.Text = "" Then
rtbValidierung.Text &= "Wählen Sie eine Abfertigungs-Nummer!" & vbNewLine : pnlValidation.Visible = True
If showErr Then lblFilialeAbfNr.Visible = True : Return False
End If
If cboAbfertigungsart._value = "" Then
rtbValidierung.Text &= "Wählen Sie eine Abfertigungs-Art!" & vbNewLine : pnlValidation.Visible = True
If showErr Then lblAbfArtLand.Visible = True : Return False
End If
If cboAbfertigungsLand._value = "" Then
rtbValidierung.Text &= "Wählen Sie eine Abfertigungs-Land!" & vbNewLine : pnlValidation.Visible = True
If showErr Then lblAbfArtLand.Visible = True : Return False
End If
If txtAuftraggeber.Text = "" Then
rtbValidierung.Text &= "Wählen Sie einen Auftraggeber!" & vbNewLine : pnlValidation.Visible = True
If showErr Then lblErr_Auftrageber.Visible = True : Return False
End If
End If
'--------------------------------------------------
@@ -202,6 +236,7 @@ Public Class frmSendungsdetailsNEU
Case Else
If CInt(If(SENDUNG_LIST(CURRENT_INDEX).tblSnd_AvisiererKdNr, "0")) <= 0 Then rtbValidierung.Text &= "- Aviserer KdNr fehlt" & vbNewLine : pnlValidation.Visible = True ' lblErr_AvisiererKdNr.Visible = True : Return False
If SENDUNG_LIST(CURRENT_INDEX).tblSnd_EmpfaengerKdNr <= 0 Then rtbValidierung.Text &= "- Empfänger KdNr fehlt" & vbNewLine : pnlValidation.Visible = True 'lblErr_EmpfKdNr.Visible = True : Return False
If SENDUNG_LIST(CURRENT_INDEX).tblSnd_AuftraggeberKdNr <= 0 Then rtbValidierung.Text &= "- Auftraggeber KdNr fehlt" & vbNewLine : pnlValidation.Visible = True 'lblErr_EmpfKdNr.Visible = True : Return False
If CInt(If(SENDUNG_LIST(CURRENT_INDEX).tblSnd_FrachtfuehrerKdNr, "0")) <= 0 Then rtbValidierung.Text &= "- Frächter KdNr fehlt" & vbNewLine : pnlValidation.Visible = True 'lblErr_FraechterKdNr.Visible = True : Return False
End Select
If Not SENDUNG_LIST(CURRENT_INDEX).tblSnd_Fremdspedition Then
@@ -474,6 +509,7 @@ Public Class frmSendungsdetailsNEU
'rtbAnmerkungDispoliste.Visible = False
Case "ATILLA" : sbWhere = " AND Niederlassung = 'SUA' "
TabControl1.SelectedTab = tbAnhang
Case "VERIMEX"
TabControl1.SelectedTab = tbAnhang
Case "UNISPED"
@@ -1035,7 +1071,7 @@ Public Class frmSendungsdetailsNEU
MsgBox("Diese Sendung kann nicht gelöscht werden!")
Exit Sub
Else
If SAVE_ME() Then ' Änderungen speichern
If True Then 'SAVE_ME() Then ' Änderungen speichern
Dim sendBez = SENDUNG_LIST(b.value).tblSnd_PosUnterNr & ". "
sendBez &= ADMIN.getValueTxtBySql("SELECT Abfertigungsbezeichnung FROM Abfertigungsarten WHERE [Abfertigungsart]='" & SENDUNG_LIST(b.value).tblSnd_Abfertigungsart_ID & "'", "FMZOLL")
@@ -1283,12 +1319,14 @@ Public Class frmSendungsdetailsNEU
whereFiliale = " AND FilialenNr IN (4803,4805,4811,5003,5303,5103,4839,5501,5601,5701,5801,7001) "
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "AMBAR" Then
whereFiliale = " AND FilialenNr IN (4803,4805,4811,5003,5303,5103,4839,5501,5601,5801,5701,7001) "
ElseIf VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERIMEX" Then
whereFiliale = " AND FilialenNr IN (4801,4802,4803,4805,4811,5003,5303,5103,4839,5501,5601,5801,5701,7001) "
End If
Case Else
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "ATILLA"
whereFiliale = " AND FilialenNr IN (4801) "
whereFiliale = " AND FilialenNr IN (4801,4802) "
Case "AMBAR"
whereFiliale = " AND FilialenNr IN (5701) "
Case Else

5
Aviso/usrCntlSND_ATBGestellung.Designer.vb generated
View File

@@ -53,9 +53,10 @@ Partial Class usrCntlSND_ATBGestellung
'
'btnGesSicherheit
'
Me.btnGesSicherheit.Location = New System.Drawing.Point(417, 3)
Me.btnGesSicherheit.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnGesSicherheit.Location = New System.Drawing.Point(397, 3)
Me.btnGesSicherheit.Name = "btnGesSicherheit"
Me.btnGesSicherheit.Size = New System.Drawing.Size(113, 49)
Me.btnGesSicherheit.Size = New System.Drawing.Size(149, 49)
Me.btnGesSicherheit.TabIndex = 25
Me.btnGesSicherheit.Text = "Gesamtsicherheit (Verwahrung)"
Me.btnGesSicherheit.UseVisualStyleBackColor = True

575
Aviso/usrcntlAktDetails.Designer.vb generated
View File

@@ -28,12 +28,12 @@ Partial Class usrcntlAktDetails
Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(usrcntlAktDetails))
Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle7 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle8 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle9 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle10 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(usrcntlAktDetails))
Me.pnlDetailsRechts = New System.Windows.Forms.Panel()
Me.Panel3 = New System.Windows.Forms.Panel()
Me.SplitContainer = New System.Windows.Forms.SplitContainer()
@@ -45,22 +45,28 @@ Partial Class usrcntlAktDetails
Me.cboGrenzstelle = New System.Windows.Forms.ComboBox()
Me.Label11 = New System.Windows.Forms.Label()
Me.lnlSendungText = New System.Windows.Forms.Label()
Me.txtSendungen = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.pnlSBG = New System.Windows.Forms.Panel()
Me.lblSndFremd = New System.Windows.Forms.Label()
Me.Label21 = New System.Windows.Forms.Label()
Me.txtSndFremd = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label20 = New System.Windows.Forms.Label()
Me.Label19 = New System.Windows.Forms.Label()
Me.lblFiskde = New System.Windows.Forms.Label()
Me.txtSndFiskalDE = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.lblFiskAT = New System.Windows.Forms.Label()
Me.txtSndFiskalAT = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.cbxSammelakt = New System.Windows.Forms.CheckBox()
Me.Button5 = New System.Windows.Forms.Button()
Me.Button3 = New System.Windows.Forms.Button()
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.Button9 = New System.Windows.Forms.Button()
Me.cbxLZDeFisk = New VERAG_PROG_ALLGEMEIN.MyCheckbox(Me.components)
Me.cbxLZT1 = New VERAG_PROG_ALLGEMEIN.MyCheckbox(Me.components)
Me.Button2 = New System.Windows.Forms.Button()
Me.cbxVPSplit = New System.Windows.Forms.CheckBox()
Me.btnLZDruckDIGITAL = New System.Windows.Forms.Button()
@@ -69,12 +75,13 @@ Partial Class usrcntlAktDetails
Me.btnAlleSteuerbescheide = New System.Windows.Forms.Button()
Me.btnAlleAkendeckel = New System.Windows.Forms.Button()
Me.btnDipoListe = New System.Windows.Forms.Button()
Me.cboFormulareRgAn = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.Label4 = New System.Windows.Forms.Label()
Me.btnSA_Gestellung = New System.Windows.Forms.Button()
Me.btnLZDruck = New System.Windows.Forms.Button()
Me.btnDipoListeEmail = New System.Windows.Forms.Button()
Me.btnDispohaft = New System.Windows.Forms.Button()
Me.Button18 = New System.Windows.Forms.Button()
Me.cbxLZRg = New VERAG_PROG_ALLGEMEIN.MyCheckbox(Me.components)
Me.gridVermerke = New System.Windows.Forms.DataGridView()
Me.pnlVermerkeTop = New System.Windows.Forms.Panel()
Me.Panel1 = New System.Windows.Forms.Panel()
@@ -88,16 +95,19 @@ Partial Class usrcntlAktDetails
Me.tbAnhang = New System.Windows.Forms.TabPage()
Me.addVermerk = New System.Windows.Forms.Button()
Me.pnlMAInfo = New System.Windows.Forms.Panel()
Me.lblSNDChat_MsgCnt = New System.Windows.Forms.Label()
Me.picMAinfo_TRVorgeschrieben = New System.Windows.Forms.PictureBox()
Me.pnlMaDetails = New System.Windows.Forms.Panel()
Me.txtMAinfo_TRVorgeschrieben = New System.Windows.Forms.TextBox()
Me.picMAinfo_AbklaerungTR = New System.Windows.Forms.PictureBox()
Me.picAVISOMessengerSNDChat = New System.Windows.Forms.PictureBox()
Me.picMAinfo_Vorgeschrieben = New System.Windows.Forms.PictureBox()
Me.picMAinfo_VorbereitetQs = New System.Windows.Forms.PictureBox()
Me.txtMAinfo_AbklaerungTR = New System.Windows.Forms.TextBox()
Me.txtMAinfo_Vorgeschrieben = New System.Windows.Forms.TextBox()
Me.txtMAinfo_VorbereitetQs = New System.Windows.Forms.TextBox()
Me.btnQuckScan = New System.Windows.Forms.Button()
Me.lblSNDChat_MsgCnt = New System.Windows.Forms.Label()
Me.picMAinfo_TRVorgeschrieben = New System.Windows.Forms.PictureBox()
Me.Button18 = New System.Windows.Forms.Button()
Me.picAVISOMessengerSNDChat = New System.Windows.Forms.PictureBox()
Me.Panel8 = New System.Windows.Forms.Panel()
Me.btnQRVerwahrung = New System.Windows.Forms.Button()
Me.lblAktUebernommen = New System.Windows.Forms.Label()
@@ -176,15 +186,6 @@ Partial Class usrcntlAktDetails
Me.btnÄndern = New System.Windows.Forms.Button()
Me.btnTV = New System.Windows.Forms.Button()
Me.Button10 = New System.Windows.Forms.Button()
Me.Button9 = New System.Windows.Forms.Button()
Me.txtSendungen = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtSndFremd = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtSndFiskalDE = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtSndFiskalAT = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.cbxLZDeFisk = New VERAG_PROG_ALLGEMEIN.MyCheckbox(Me.components)
Me.cbxLZT1 = New VERAG_PROG_ALLGEMEIN.MyCheckbox(Me.components)
Me.cboFormulareRgAn = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.cbxLZRg = New VERAG_PROG_ALLGEMEIN.MyCheckbox(Me.components)
Me.pnlDetailsRechts.SuspendLayout()
Me.Panel3.SuspendLayout()
CType(Me.SplitContainer, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -202,11 +203,12 @@ Partial Class usrcntlAktDetails
Me.Panel1.SuspendLayout()
Me.tbcntlVermerke.SuspendLayout()
Me.pnlMAInfo.SuspendLayout()
CType(Me.picMAinfo_TRVorgeschrieben, System.ComponentModel.ISupportInitialize).BeginInit()
Me.pnlMaDetails.SuspendLayout()
CType(Me.picMAinfo_AbklaerungTR, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.picAVISOMessengerSNDChat, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.picMAinfo_Vorgeschrieben, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.picMAinfo_VorbereitetQs, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.picMAinfo_TRVorgeschrieben, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.picAVISOMessengerSNDChat, System.ComponentModel.ISupportInitialize).BeginInit()
Me.Panel8.SuspendLayout()
CType(Me.picAVISOMessenger, System.ComponentModel.ISupportInitialize).BeginInit()
Me.pnlAbgeschlossen.SuspendLayout()
@@ -270,10 +272,8 @@ 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)
Me.SplitContainer.Panel2.Controls.Add(Me.gridVermerke)
Me.SplitContainer.Panel2.Controls.Add(Me.pnlVermerkeTop)
Me.SplitContainer.Panel2.Controls.Add(Me.addVermerk)
@@ -381,6 +381,32 @@ Partial Class usrcntlAktDetails
Me.lnlSendungText.TabIndex = 2
Me.lnlSendungText.Text = "Sendung"
'
'txtSendungen
'
Me.txtSendungen._DateTimeOnly = False
Me.txtSendungen._numbersOnly = True
Me.txtSendungen._numbersOnlyKommastellen = ""
Me.txtSendungen._numbersOnlyTrennzeichen = True
Me.txtSendungen._Prozent = False
Me.txtSendungen._ShortDateNew = False
Me.txtSendungen._ShortDateOnly = False
Me.txtSendungen._TimeOnly = False
Me.txtSendungen._TimeOnly_Seconds = False
Me.txtSendungen._value = ""
Me.txtSendungen._Waehrung = False
Me.txtSendungen._WaehrungZeichen = True
Me.txtSendungen.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtSendungen.ForeColor = System.Drawing.Color.Black
Me.txtSendungen.Location = New System.Drawing.Point(22, 17)
Me.txtSendungen.MaxLineLength = -1
Me.txtSendungen.MaxLines_Warning = ""
Me.txtSendungen.MaxLines_Warning_Label = Nothing
Me.txtSendungen.Name = "txtSendungen"
Me.txtSendungen.Size = New System.Drawing.Size(32, 26)
Me.txtSendungen.TabIndex = 1
Me.txtSendungen.Text = "1"
Me.txtSendungen.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
'
'pnlSBG
'
Me.pnlSBG.Controls.Add(Me.lblSndFremd)
@@ -417,6 +443,33 @@ Partial Class usrcntlAktDetails
Me.Label21.Text = "1"
Me.Label21.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'txtSndFremd
'
Me.txtSndFremd._DateTimeOnly = False
Me.txtSndFremd._numbersOnly = True
Me.txtSndFremd._numbersOnlyKommastellen = ""
Me.txtSndFremd._numbersOnlyTrennzeichen = True
Me.txtSndFremd._Prozent = False
Me.txtSndFremd._ShortDateNew = False
Me.txtSndFremd._ShortDateOnly = False
Me.txtSndFremd._TimeOnly = False
Me.txtSndFremd._TimeOnly_Seconds = False
Me.txtSndFremd._value = ""
Me.txtSndFremd._Waehrung = False
Me.txtSndFremd._WaehrungZeichen = True
Me.txtSndFremd.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtSndFremd.ForeColor = System.Drawing.Color.Black
Me.txtSndFremd.Location = New System.Drawing.Point(149, 5)
Me.txtSndFremd.MaxLineLength = -1
Me.txtSndFremd.MaxLines_Warning = ""
Me.txtSndFremd.MaxLines_Warning_Label = Nothing
Me.txtSndFremd.Name = "txtSndFremd"
Me.txtSndFremd.Size = New System.Drawing.Size(32, 26)
Me.txtSndFremd.TabIndex = 83
Me.txtSndFremd.Text = "0"
Me.txtSndFremd.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
Me.txtSndFremd.Visible = False
'
'Label20
'
Me.Label20.AutoSize = True
@@ -444,6 +497,32 @@ Partial Class usrcntlAktDetails
Me.lblFiskde.TabIndex = 6
Me.lblFiskde.Text = "Fiskal DE"
'
'txtSndFiskalDE
'
Me.txtSndFiskalDE._DateTimeOnly = False
Me.txtSndFiskalDE._numbersOnly = True
Me.txtSndFiskalDE._numbersOnlyKommastellen = ""
Me.txtSndFiskalDE._numbersOnlyTrennzeichen = True
Me.txtSndFiskalDE._Prozent = False
Me.txtSndFiskalDE._ShortDateNew = False
Me.txtSndFiskalDE._ShortDateOnly = False
Me.txtSndFiskalDE._TimeOnly = False
Me.txtSndFiskalDE._TimeOnly_Seconds = False
Me.txtSndFiskalDE._value = ""
Me.txtSndFiskalDE._Waehrung = False
Me.txtSndFiskalDE._WaehrungZeichen = True
Me.txtSndFiskalDE.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtSndFiskalDE.ForeColor = System.Drawing.Color.Black
Me.txtSndFiskalDE.Location = New System.Drawing.Point(16, 34)
Me.txtSndFiskalDE.MaxLineLength = -1
Me.txtSndFiskalDE.MaxLines_Warning = ""
Me.txtSndFiskalDE.MaxLines_Warning_Label = Nothing
Me.txtSndFiskalDE.Name = "txtSndFiskalDE"
Me.txtSndFiskalDE.Size = New System.Drawing.Size(32, 26)
Me.txtSndFiskalDE.TabIndex = 5
Me.txtSndFiskalDE.Text = "0"
Me.txtSndFiskalDE.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
'
'lblFiskAT
'
Me.lblFiskAT.AutoSize = True
@@ -453,6 +532,32 @@ Partial Class usrcntlAktDetails
Me.lblFiskAT.TabIndex = 4
Me.lblFiskAT.Text = "Fiskal AT"
'
'txtSndFiskalAT
'
Me.txtSndFiskalAT._DateTimeOnly = False
Me.txtSndFiskalAT._numbersOnly = True
Me.txtSndFiskalAT._numbersOnlyKommastellen = ""
Me.txtSndFiskalAT._numbersOnlyTrennzeichen = True
Me.txtSndFiskalAT._Prozent = False
Me.txtSndFiskalAT._ShortDateNew = False
Me.txtSndFiskalAT._ShortDateOnly = False
Me.txtSndFiskalAT._TimeOnly = False
Me.txtSndFiskalAT._TimeOnly_Seconds = False
Me.txtSndFiskalAT._value = ""
Me.txtSndFiskalAT._Waehrung = False
Me.txtSndFiskalAT._WaehrungZeichen = True
Me.txtSndFiskalAT.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtSndFiskalAT.ForeColor = System.Drawing.Color.Black
Me.txtSndFiskalAT.Location = New System.Drawing.Point(16, 5)
Me.txtSndFiskalAT.MaxLineLength = -1
Me.txtSndFiskalAT.MaxLines_Warning = ""
Me.txtSndFiskalAT.MaxLines_Warning_Label = Nothing
Me.txtSndFiskalAT.Name = "txtSndFiskalAT"
Me.txtSndFiskalAT.Size = New System.Drawing.Size(32, 26)
Me.txtSndFiskalAT.TabIndex = 3
Me.txtSndFiskalAT.Text = "0"
Me.txtSndFiskalAT.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
'
'cbxSammelakt
'
Me.cbxSammelakt.AutoSize = True
@@ -573,21 +678,6 @@ Partial Class usrcntlAktDetails
Me.Panel7.Size = New System.Drawing.Size(1, 65)
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, 167)
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)
@@ -630,6 +720,51 @@ Partial Class usrcntlAktDetails
Me.Panel4.TabIndex = 102
Me.Panel4.Visible = False
'
'Button9
'
Me.Button9.BackColor = System.Drawing.Color.White
Me.Button9.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.Button9.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button9.Image = Global.AVISO.My.Resources.Resources.beleg1
Me.Button9.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button9.Location = New System.Drawing.Point(5, 147)
Me.Button9.Name = "Button9"
Me.Button9.Size = New System.Drawing.Size(123, 36)
Me.Button9.TabIndex = 119
Me.Button9.Text = "ATILLA" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Aktendeckel"
Me.Button9.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.Button9.UseVisualStyleBackColor = False
Me.Button9.Visible = False
'
'cbxLZDeFisk
'
Me.cbxLZDeFisk._value = ""
Me.cbxLZDeFisk.AutoSize = True
Me.cbxLZDeFisk.Checked_value = False
Me.cbxLZDeFisk.CheckedValue = False
Me.cbxLZDeFisk.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!)
Me.cbxLZDeFisk.Location = New System.Drawing.Point(205, 93)
Me.cbxLZDeFisk.Name = "cbxLZDeFisk"
Me.cbxLZDeFisk.Size = New System.Drawing.Size(62, 17)
Me.cbxLZDeFisk.TabIndex = 118
Me.cbxLZDeFisk.Text = "DE Fisk"
Me.cbxLZDeFisk.UseVisualStyleBackColor = True
'
'cbxLZT1
'
Me.cbxLZT1._value = ""
Me.cbxLZT1.AutoSize = True
Me.cbxLZT1.Checked_value = False
Me.cbxLZT1.CheckedValue = False
Me.cbxLZT1.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!)
Me.cbxLZT1.Location = New System.Drawing.Point(172, 93)
Me.cbxLZT1.Name = "cbxLZT1"
Me.cbxLZT1.Size = New System.Drawing.Size(37, 17)
Me.cbxLZT1.TabIndex = 114
Me.cbxLZT1.Text = "T1"
Me.cbxLZT1.UseVisualStyleBackColor = True
Me.cbxLZT1.Visible = False
'
'Button2
'
Me.Button2.BackColor = System.Drawing.Color.White
@@ -755,6 +890,17 @@ Partial Class usrcntlAktDetails
Me.btnDipoListe.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnDipoListe.UseVisualStyleBackColor = False
'
'cboFormulareRgAn
'
Me.cboFormulareRgAn._allowedValuesFreiText = Nothing
Me.cboFormulareRgAn._allowFreiText = False
Me.cboFormulareRgAn._value = ""
Me.cboFormulareRgAn.FormattingEnabled = True
Me.cboFormulareRgAn.Location = New System.Drawing.Point(40, 2)
Me.cboFormulareRgAn.Name = "cboFormulareRgAn"
Me.cboFormulareRgAn.Size = New System.Drawing.Size(88, 21)
Me.cboFormulareRgAn.TabIndex = 108
'
'Label4
'
Me.Label4.AutoSize = True
@@ -829,20 +975,21 @@ Partial Class usrcntlAktDetails
Me.btnDispohaft.Text = "Dispo.Haft" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "(nur T1/T2)"
Me.btnDispohaft.UseVisualStyleBackColor = False
'
'Button18
'cbxLZRg
'
Me.Button18.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
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(447, 200)
Me.Button18.Name = "Button18"
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
Me.Button18.UseVisualStyleBackColor = True
Me.Button18.Visible = False
Me.cbxLZRg._value = ""
Me.cbxLZRg.AutoSize = True
Me.cbxLZRg.Checked = True
Me.cbxLZRg.Checked_value = False
Me.cbxLZRg.CheckedValue = False
Me.cbxLZRg.CheckState = System.Windows.Forms.CheckState.Checked
Me.cbxLZRg.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!)
Me.cbxLZRg.Location = New System.Drawing.Point(134, 93)
Me.cbxLZRg.Name = "cbxLZRg"
Me.cbxLZRg.Size = New System.Drawing.Size(41, 17)
Me.cbxLZRg.TabIndex = 115
Me.cbxLZRg.Text = "RG"
Me.cbxLZRg.UseVisualStyleBackColor = True
'
'gridVermerke
'
@@ -895,7 +1042,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, 185)
Me.gridVermerke.Size = New System.Drawing.Size(575, 163)
Me.gridVermerke.TabIndex = 70
Me.gridVermerke.TabStop = False
'
@@ -1036,46 +1183,33 @@ Partial Class usrcntlAktDetails
'
'pnlMAInfo
'
Me.pnlMAInfo.Controls.Add(Me.pnlMaDetails)
Me.pnlMAInfo.Controls.Add(Me.btnQuckScan)
Me.pnlMAInfo.Controls.Add(Me.lblSNDChat_MsgCnt)
Me.pnlMAInfo.Controls.Add(Me.picMAinfo_TRVorgeschrieben)
Me.pnlMAInfo.Controls.Add(Me.txtMAinfo_TRVorgeschrieben)
Me.pnlMAInfo.Controls.Add(Me.picMAinfo_AbklaerungTR)
Me.pnlMAInfo.Controls.Add(Me.Button18)
Me.pnlMAInfo.Controls.Add(Me.picAVISOMessengerSNDChat)
Me.pnlMAInfo.Controls.Add(Me.picMAinfo_Vorgeschrieben)
Me.pnlMAInfo.Controls.Add(Me.picMAinfo_VorbereitetQs)
Me.pnlMAInfo.Controls.Add(Me.txtMAinfo_AbklaerungTR)
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, 215)
Me.pnlMAInfo.Location = New System.Drawing.Point(0, 193)
Me.pnlMAInfo.Name = "pnlMAInfo"
Me.pnlMAInfo.Size = New System.Drawing.Size(575, 34)
Me.pnlMAInfo.Size = New System.Drawing.Size(575, 56)
Me.pnlMAInfo.TabIndex = 106
'
'lblSNDChat_MsgCnt
'pnlMaDetails
'
Me.lblSNDChat_MsgCnt.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.lblSNDChat_MsgCnt.BackColor = System.Drawing.Color.Red
Me.lblSNDChat_MsgCnt.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!, System.Drawing.FontStyle.Bold)
Me.lblSNDChat_MsgCnt.ForeColor = System.Drawing.Color.White
Me.lblSNDChat_MsgCnt.Location = New System.Drawing.Point(53, 21)
Me.lblSNDChat_MsgCnt.Name = "lblSNDChat_MsgCnt"
Me.lblSNDChat_MsgCnt.Size = New System.Drawing.Size(22, 11)
Me.lblSNDChat_MsgCnt.TabIndex = 111
Me.lblSNDChat_MsgCnt.Text = "99"
Me.lblSNDChat_MsgCnt.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
Me.lblSNDChat_MsgCnt.Visible = False
'
'picMAinfo_TRVorgeschrieben
'
Me.picMAinfo_TRVorgeschrieben.BackgroundImage = Global.AVISO.My.Resources.Resources.statusBtn_vorgeschrieben_InAktiv
Me.picMAinfo_TRVorgeschrieben.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.picMAinfo_TRVorgeschrieben.Location = New System.Drawing.Point(451, 3)
Me.picMAinfo_TRVorgeschrieben.Name = "picMAinfo_TRVorgeschrieben"
Me.picMAinfo_TRVorgeschrieben.Size = New System.Drawing.Size(26, 21)
Me.picMAinfo_TRVorgeschrieben.TabIndex = 111
Me.picMAinfo_TRVorgeschrieben.TabStop = False
Me.picMAinfo_TRVorgeschrieben.Visible = False
Me.pnlMaDetails.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.pnlMaDetails.Controls.Add(Me.txtMAinfo_TRVorgeschrieben)
Me.pnlMaDetails.Controls.Add(Me.picMAinfo_AbklaerungTR)
Me.pnlMaDetails.Controls.Add(Me.picMAinfo_Vorgeschrieben)
Me.pnlMaDetails.Controls.Add(Me.picMAinfo_VorbereitetQs)
Me.pnlMaDetails.Controls.Add(Me.txtMAinfo_AbklaerungTR)
Me.pnlMaDetails.Controls.Add(Me.txtMAinfo_Vorgeschrieben)
Me.pnlMaDetails.Controls.Add(Me.txtMAinfo_VorbereitetQs)
Me.pnlMaDetails.Location = New System.Drawing.Point(76, 2)
Me.pnlMaDetails.Name = "pnlMaDetails"
Me.pnlMaDetails.Size = New System.Drawing.Size(497, 24)
Me.pnlMaDetails.TabIndex = 113
'
'txtMAinfo_TRVorgeschrieben
'
@@ -1084,7 +1218,7 @@ Partial Class usrcntlAktDetails
Me.txtMAinfo_TRVorgeschrieben.Cursor = System.Windows.Forms.Cursors.Hand
Me.txtMAinfo_TRVorgeschrieben.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold)
Me.txtMAinfo_TRVorgeschrieben.ForeColor = System.Drawing.Color.Black
Me.txtMAinfo_TRVorgeschrieben.Location = New System.Drawing.Point(481, 5)
Me.txtMAinfo_TRVorgeschrieben.Location = New System.Drawing.Point(404, 1)
Me.txtMAinfo_TRVorgeschrieben.MaxLength = 0
Me.txtMAinfo_TRVorgeschrieben.Name = "txtMAinfo_TRVorgeschrieben"
Me.txtMAinfo_TRVorgeschrieben.ReadOnly = True
@@ -1098,30 +1232,17 @@ Partial Class usrcntlAktDetails
'
Me.picMAinfo_AbklaerungTR.BackgroundImage = Global.AVISO.My.Resources.Resources.abklaerungTR_Inaktiv
Me.picMAinfo_AbklaerungTR.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.picMAinfo_AbklaerungTR.Location = New System.Drawing.Point(76, 4)
Me.picMAinfo_AbklaerungTR.Location = New System.Drawing.Point(-1, 0)
Me.picMAinfo_AbklaerungTR.Name = "picMAinfo_AbklaerungTR"
Me.picMAinfo_AbklaerungTR.Size = New System.Drawing.Size(26, 21)
Me.picMAinfo_AbklaerungTR.TabIndex = 109
Me.picMAinfo_AbklaerungTR.TabStop = False
'
'picAVISOMessengerSNDChat
'
Me.picAVISOMessengerSNDChat.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.picAVISOMessengerSNDChat.BackgroundImage = Global.AVISO.My.Resources.Resources.aviso_messenger
Me.picAVISOMessengerSNDChat.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.picAVISOMessengerSNDChat.Cursor = System.Windows.Forms.Cursors.Hand
Me.picAVISOMessengerSNDChat.Location = New System.Drawing.Point(30, 1)
Me.picAVISOMessengerSNDChat.Name = "picAVISOMessengerSNDChat"
Me.picAVISOMessengerSNDChat.Size = New System.Drawing.Size(32, 30)
Me.picAVISOMessengerSNDChat.TabIndex = 110
Me.picAVISOMessengerSNDChat.TabStop = False
Me.picAVISOMessengerSNDChat.Visible = False
'
'picMAinfo_Vorgeschrieben
'
Me.picMAinfo_Vorgeschrieben.BackgroundImage = Global.AVISO.My.Resources.Resources.statusBtn_vorgeschrieben_InAktiv
Me.picMAinfo_Vorgeschrieben.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.picMAinfo_Vorgeschrieben.Location = New System.Drawing.Point(326, 4)
Me.picMAinfo_Vorgeschrieben.Location = New System.Drawing.Point(249, 0)
Me.picMAinfo_Vorgeschrieben.Name = "picMAinfo_Vorgeschrieben"
Me.picMAinfo_Vorgeschrieben.Size = New System.Drawing.Size(26, 21)
Me.picMAinfo_Vorgeschrieben.TabIndex = 107
@@ -1131,7 +1252,7 @@ Partial Class usrcntlAktDetails
'
Me.picMAinfo_VorbereitetQs.BackgroundImage = Global.AVISO.My.Resources.Resources.statusBtn_vorbereitet_InAktiv
Me.picMAinfo_VorbereitetQs.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.picMAinfo_VorbereitetQs.Location = New System.Drawing.Point(200, 4)
Me.picMAinfo_VorbereitetQs.Location = New System.Drawing.Point(123, 0)
Me.picMAinfo_VorbereitetQs.Name = "picMAinfo_VorbereitetQs"
Me.picMAinfo_VorbereitetQs.Size = New System.Drawing.Size(26, 21)
Me.picMAinfo_VorbereitetQs.TabIndex = 0
@@ -1144,7 +1265,7 @@ Partial Class usrcntlAktDetails
Me.txtMAinfo_AbklaerungTR.Cursor = System.Windows.Forms.Cursors.Hand
Me.txtMAinfo_AbklaerungTR.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold)
Me.txtMAinfo_AbklaerungTR.ForeColor = System.Drawing.Color.Black
Me.txtMAinfo_AbklaerungTR.Location = New System.Drawing.Point(105, 6)
Me.txtMAinfo_AbklaerungTR.Location = New System.Drawing.Point(28, 2)
Me.txtMAinfo_AbklaerungTR.MaxLength = 0
Me.txtMAinfo_AbklaerungTR.Name = "txtMAinfo_AbklaerungTR"
Me.txtMAinfo_AbklaerungTR.ReadOnly = True
@@ -1160,7 +1281,7 @@ Partial Class usrcntlAktDetails
Me.txtMAinfo_Vorgeschrieben.Cursor = System.Windows.Forms.Cursors.Hand
Me.txtMAinfo_Vorgeschrieben.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold)
Me.txtMAinfo_Vorgeschrieben.ForeColor = System.Drawing.Color.Black
Me.txtMAinfo_Vorgeschrieben.Location = New System.Drawing.Point(355, 6)
Me.txtMAinfo_Vorgeschrieben.Location = New System.Drawing.Point(278, 2)
Me.txtMAinfo_Vorgeschrieben.MaxLength = 0
Me.txtMAinfo_Vorgeschrieben.Name = "txtMAinfo_Vorgeschrieben"
Me.txtMAinfo_Vorgeschrieben.ReadOnly = True
@@ -1176,7 +1297,7 @@ Partial Class usrcntlAktDetails
Me.txtMAinfo_VorbereitetQs.Cursor = System.Windows.Forms.Cursors.Hand
Me.txtMAinfo_VorbereitetQs.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold)
Me.txtMAinfo_VorbereitetQs.ForeColor = System.Drawing.Color.Black
Me.txtMAinfo_VorbereitetQs.Location = New System.Drawing.Point(230, 6)
Me.txtMAinfo_VorbereitetQs.Location = New System.Drawing.Point(153, 2)
Me.txtMAinfo_VorbereitetQs.MaxLength = 0
Me.txtMAinfo_VorbereitetQs.Name = "txtMAinfo_VorbereitetQs"
Me.txtMAinfo_VorbereitetQs.ReadOnly = True
@@ -1185,6 +1306,75 @@ Partial Class usrcntlAktDetails
Me.txtMAinfo_VorbereitetQs.TabStop = False
Me.txtMAinfo_VorbereitetQs.Text = "-"
'
'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.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
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(313, 26)
Me.btnQuckScan.Name = "btnQuckScan"
Me.btnQuckScan.Size = New System.Drawing.Size(137, 30)
Me.btnQuckScan.TabIndex = 107
Me.btnQuckScan.Text = "Quick-Scan (LKW)"
Me.btnQuckScan.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnQuckScan.UseVisualStyleBackColor = True
Me.btnQuckScan.Visible = False
'
'lblSNDChat_MsgCnt
'
Me.lblSNDChat_MsgCnt.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.lblSNDChat_MsgCnt.BackColor = System.Drawing.Color.Red
Me.lblSNDChat_MsgCnt.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!, System.Drawing.FontStyle.Bold)
Me.lblSNDChat_MsgCnt.ForeColor = System.Drawing.Color.White
Me.lblSNDChat_MsgCnt.Location = New System.Drawing.Point(63, 41)
Me.lblSNDChat_MsgCnt.Name = "lblSNDChat_MsgCnt"
Me.lblSNDChat_MsgCnt.Size = New System.Drawing.Size(35, 15)
Me.lblSNDChat_MsgCnt.TabIndex = 111
Me.lblSNDChat_MsgCnt.Text = "99"
Me.lblSNDChat_MsgCnt.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
Me.lblSNDChat_MsgCnt.Visible = False
'
'picMAinfo_TRVorgeschrieben
'
Me.picMAinfo_TRVorgeschrieben.BackgroundImage = Global.AVISO.My.Resources.Resources.statusBtn_vorgeschrieben_InAktiv
Me.picMAinfo_TRVorgeschrieben.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.picMAinfo_TRVorgeschrieben.Location = New System.Drawing.Point(451, 1)
Me.picMAinfo_TRVorgeschrieben.Name = "picMAinfo_TRVorgeschrieben"
Me.picMAinfo_TRVorgeschrieben.Size = New System.Drawing.Size(26, 21)
Me.picMAinfo_TRVorgeschrieben.TabIndex = 111
Me.picMAinfo_TRVorgeschrieben.TabStop = False
Me.picMAinfo_TRVorgeschrieben.Visible = False
'
'Button18
'
Me.Button18.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
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(447, 26)
Me.Button18.Name = "Button18"
Me.Button18.Size = New System.Drawing.Size(128, 30)
Me.Button18.TabIndex = 103
Me.Button18.Text = "Import-Assistent ..."
Me.Button18.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.Button18.UseVisualStyleBackColor = True
Me.Button18.Visible = False
'
'picAVISOMessengerSNDChat
'
Me.picAVISOMessengerSNDChat.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.picAVISOMessengerSNDChat.BackgroundImage = Global.AVISO.My.Resources.Resources.aviso_messenger
Me.picAVISOMessengerSNDChat.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.picAVISOMessengerSNDChat.Cursor = System.Windows.Forms.Cursors.Hand
Me.picAVISOMessengerSNDChat.Location = New System.Drawing.Point(37, 10)
Me.picAVISOMessengerSNDChat.Name = "picAVISOMessengerSNDChat"
Me.picAVISOMessengerSNDChat.Size = New System.Drawing.Size(40, 35)
Me.picAVISOMessengerSNDChat.TabIndex = 110
Me.picAVISOMessengerSNDChat.TabStop = False
Me.picAVISOMessengerSNDChat.Visible = False
'
'Panel8
'
Me.Panel8.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
@@ -2246,183 +2436,6 @@ Partial Class usrcntlAktDetails
Me.Button10.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button10.UseVisualStyleBackColor = False
'
'Button9
'
Me.Button9.BackColor = System.Drawing.Color.White
Me.Button9.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.Button9.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button9.Image = Global.AVISO.My.Resources.Resources.beleg1
Me.Button9.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button9.Location = New System.Drawing.Point(5, 147)
Me.Button9.Name = "Button9"
Me.Button9.Size = New System.Drawing.Size(123, 36)
Me.Button9.TabIndex = 119
Me.Button9.Text = "ATILLA" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Aktendeckel"
Me.Button9.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.Button9.UseVisualStyleBackColor = False
Me.Button9.Visible = False
'
'txtSendungen
'
Me.txtSendungen._DateTimeOnly = False
Me.txtSendungen._numbersOnly = True
Me.txtSendungen._numbersOnlyKommastellen = ""
Me.txtSendungen._numbersOnlyTrennzeichen = True
Me.txtSendungen._Prozent = False
Me.txtSendungen._ShortDateNew = False
Me.txtSendungen._ShortDateOnly = False
Me.txtSendungen._TimeOnly = False
Me.txtSendungen._TimeOnly_Seconds = False
Me.txtSendungen._value = ""
Me.txtSendungen._Waehrung = False
Me.txtSendungen._WaehrungZeichen = True
Me.txtSendungen.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtSendungen.ForeColor = System.Drawing.Color.Black
Me.txtSendungen.Location = New System.Drawing.Point(22, 17)
Me.txtSendungen.MaxLineLength = -1
Me.txtSendungen.MaxLines_Warning = ""
Me.txtSendungen.MaxLines_Warning_Label = Nothing
Me.txtSendungen.Name = "txtSendungen"
Me.txtSendungen.Size = New System.Drawing.Size(32, 26)
Me.txtSendungen.TabIndex = 1
Me.txtSendungen.Text = "1"
Me.txtSendungen.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
'
'txtSndFremd
'
Me.txtSndFremd._DateTimeOnly = False
Me.txtSndFremd._numbersOnly = True
Me.txtSndFremd._numbersOnlyKommastellen = ""
Me.txtSndFremd._numbersOnlyTrennzeichen = True
Me.txtSndFremd._Prozent = False
Me.txtSndFremd._ShortDateNew = False
Me.txtSndFremd._ShortDateOnly = False
Me.txtSndFremd._TimeOnly = False
Me.txtSndFremd._TimeOnly_Seconds = False
Me.txtSndFremd._value = ""
Me.txtSndFremd._Waehrung = False
Me.txtSndFremd._WaehrungZeichen = True
Me.txtSndFremd.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtSndFremd.ForeColor = System.Drawing.Color.Black
Me.txtSndFremd.Location = New System.Drawing.Point(149, 5)
Me.txtSndFremd.MaxLineLength = -1
Me.txtSndFremd.MaxLines_Warning = ""
Me.txtSndFremd.MaxLines_Warning_Label = Nothing
Me.txtSndFremd.Name = "txtSndFremd"
Me.txtSndFremd.Size = New System.Drawing.Size(32, 26)
Me.txtSndFremd.TabIndex = 83
Me.txtSndFremd.Text = "0"
Me.txtSndFremd.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
Me.txtSndFremd.Visible = False
'
'txtSndFiskalDE
'
Me.txtSndFiskalDE._DateTimeOnly = False
Me.txtSndFiskalDE._numbersOnly = True
Me.txtSndFiskalDE._numbersOnlyKommastellen = ""
Me.txtSndFiskalDE._numbersOnlyTrennzeichen = True
Me.txtSndFiskalDE._Prozent = False
Me.txtSndFiskalDE._ShortDateNew = False
Me.txtSndFiskalDE._ShortDateOnly = False
Me.txtSndFiskalDE._TimeOnly = False
Me.txtSndFiskalDE._TimeOnly_Seconds = False
Me.txtSndFiskalDE._value = ""
Me.txtSndFiskalDE._Waehrung = False
Me.txtSndFiskalDE._WaehrungZeichen = True
Me.txtSndFiskalDE.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtSndFiskalDE.ForeColor = System.Drawing.Color.Black
Me.txtSndFiskalDE.Location = New System.Drawing.Point(16, 34)
Me.txtSndFiskalDE.MaxLineLength = -1
Me.txtSndFiskalDE.MaxLines_Warning = ""
Me.txtSndFiskalDE.MaxLines_Warning_Label = Nothing
Me.txtSndFiskalDE.Name = "txtSndFiskalDE"
Me.txtSndFiskalDE.Size = New System.Drawing.Size(32, 26)
Me.txtSndFiskalDE.TabIndex = 5
Me.txtSndFiskalDE.Text = "0"
Me.txtSndFiskalDE.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
'
'txtSndFiskalAT
'
Me.txtSndFiskalAT._DateTimeOnly = False
Me.txtSndFiskalAT._numbersOnly = True
Me.txtSndFiskalAT._numbersOnlyKommastellen = ""
Me.txtSndFiskalAT._numbersOnlyTrennzeichen = True
Me.txtSndFiskalAT._Prozent = False
Me.txtSndFiskalAT._ShortDateNew = False
Me.txtSndFiskalAT._ShortDateOnly = False
Me.txtSndFiskalAT._TimeOnly = False
Me.txtSndFiskalAT._TimeOnly_Seconds = False
Me.txtSndFiskalAT._value = ""
Me.txtSndFiskalAT._Waehrung = False
Me.txtSndFiskalAT._WaehrungZeichen = True
Me.txtSndFiskalAT.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtSndFiskalAT.ForeColor = System.Drawing.Color.Black
Me.txtSndFiskalAT.Location = New System.Drawing.Point(16, 5)
Me.txtSndFiskalAT.MaxLineLength = -1
Me.txtSndFiskalAT.MaxLines_Warning = ""
Me.txtSndFiskalAT.MaxLines_Warning_Label = Nothing
Me.txtSndFiskalAT.Name = "txtSndFiskalAT"
Me.txtSndFiskalAT.Size = New System.Drawing.Size(32, 26)
Me.txtSndFiskalAT.TabIndex = 3
Me.txtSndFiskalAT.Text = "0"
Me.txtSndFiskalAT.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
'
'cbxLZDeFisk
'
Me.cbxLZDeFisk._value = ""
Me.cbxLZDeFisk.AutoSize = True
Me.cbxLZDeFisk.Checked_value = False
Me.cbxLZDeFisk.CheckedValue = False
Me.cbxLZDeFisk.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!)
Me.cbxLZDeFisk.Location = New System.Drawing.Point(205, 93)
Me.cbxLZDeFisk.Name = "cbxLZDeFisk"
Me.cbxLZDeFisk.Size = New System.Drawing.Size(62, 17)
Me.cbxLZDeFisk.TabIndex = 118
Me.cbxLZDeFisk.Text = "DE Fisk"
Me.cbxLZDeFisk.UseVisualStyleBackColor = True
'
'cbxLZT1
'
Me.cbxLZT1._value = ""
Me.cbxLZT1.AutoSize = True
Me.cbxLZT1.Checked_value = False
Me.cbxLZT1.CheckedValue = False
Me.cbxLZT1.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!)
Me.cbxLZT1.Location = New System.Drawing.Point(172, 93)
Me.cbxLZT1.Name = "cbxLZT1"
Me.cbxLZT1.Size = New System.Drawing.Size(37, 17)
Me.cbxLZT1.TabIndex = 114
Me.cbxLZT1.Text = "T1"
Me.cbxLZT1.UseVisualStyleBackColor = True
Me.cbxLZT1.Visible = False
'
'cboFormulareRgAn
'
Me.cboFormulareRgAn._allowedValuesFreiText = Nothing
Me.cboFormulareRgAn._allowFreiText = False
Me.cboFormulareRgAn._value = ""
Me.cboFormulareRgAn.FormattingEnabled = True
Me.cboFormulareRgAn.Location = New System.Drawing.Point(40, 2)
Me.cboFormulareRgAn.Name = "cboFormulareRgAn"
Me.cboFormulareRgAn.Size = New System.Drawing.Size(88, 21)
Me.cboFormulareRgAn.TabIndex = 108
'
'cbxLZRg
'
Me.cbxLZRg._value = ""
Me.cbxLZRg.AutoSize = True
Me.cbxLZRg.Checked = True
Me.cbxLZRg.Checked_value = False
Me.cbxLZRg.CheckedValue = False
Me.cbxLZRg.CheckState = System.Windows.Forms.CheckState.Checked
Me.cbxLZRg.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!)
Me.cbxLZRg.Location = New System.Drawing.Point(134, 93)
Me.cbxLZRg.Name = "cbxLZRg"
Me.cbxLZRg.Size = New System.Drawing.Size(41, 17)
Me.cbxLZRg.TabIndex = 115
Me.cbxLZRg.Text = "RG"
Me.cbxLZRg.UseVisualStyleBackColor = True
'
'usrcntlAktDetails
'
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.None
@@ -2452,12 +2465,13 @@ Partial Class usrcntlAktDetails
Me.Panel1.ResumeLayout(False)
Me.tbcntlVermerke.ResumeLayout(False)
Me.pnlMAInfo.ResumeLayout(False)
Me.pnlMAInfo.PerformLayout()
CType(Me.picMAinfo_TRVorgeschrieben, System.ComponentModel.ISupportInitialize).EndInit()
Me.pnlMaDetails.ResumeLayout(False)
Me.pnlMaDetails.PerformLayout()
CType(Me.picMAinfo_AbklaerungTR, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.picAVISOMessengerSNDChat, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.picMAinfo_Vorgeschrieben, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.picMAinfo_VorbereitetQs, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.picMAinfo_TRVorgeschrieben, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.picAVISOMessengerSNDChat, System.ComponentModel.ISupportInitialize).EndInit()
Me.Panel8.ResumeLayout(False)
Me.Panel8.PerformLayout()
CType(Me.picAVISOMessenger, System.ComponentModel.ISupportInitialize).EndInit()
@@ -2641,4 +2655,5 @@ Partial Class usrcntlAktDetails
Friend WithEvents btnAnIndonesien As Button
Friend WithEvents Label1 As Label
Friend WithEvents Button9 As Button
Friend WithEvents pnlMaDetails As Panel
End Class

26
Aviso/usrcntlAktDetails.resx
View File

@@ -118,6 +118,19 @@
<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="addVermerk.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABQAAAAUCAYAAACNiR0NAAAABGdBTUEAALGPC/xhBQAAAZ1JREFUOE+l
kTlLA0EYhvMTtLIyjbHzwsKI2rgeSSF4gUVEPIIgqIiCQSxsRJSYgC6mCBaKF4IW7tqYJsEjaFBEC0nU
WGoniKlMxNfMhFmS7BjdtXiGnW+/9+Fd1gBAN/GuCRDeO0Zv2Uy19FeIKDG/irf2EUSt/Tit60yOdQpD
oWtF9mDpw3FtB3bLGyGazF/cQC6ILBKJIhAI4r65F4GaNuyUCVg2mTFnrOCHfoLKwimZfOjD1vY+tksF
LBVVUZkmYUxuQDj8CL//DJJ8hI2tPTjdHjimZxUZ2eOGsyGy91MHntercSClZAuuFSpjsF1VOBsqO5mk
sidPJe6cJZh3ilwZISOcTXozJruaKcbJhJErI2Rc0onJgqrZJZGNG+EbLIBky0+uqXOqAYH3mbQZk3Xz
ZQTVQGm2pq0ZI+Pya7NfZATl4b/NGPTQ+wN40OPzwhtXNyvULCOkHoJevGwMJ/7TjGHA4dTX684Yzhd7
sDlu/WDNDmx5yff8UC4MTZYW3IgD2HW0wm0X4LLXJ/Q0Y1AhQRyySLwFbcDwDUJWbE0CgQrjAAAAAElF
TkSuQmCC
</value>
</data>
<data name="btnQuckScan.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAAB4AAAAeCAYAAAA7MK6iAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m
@@ -175,19 +188,6 @@
kEEKgCAQRfVKeaaOEXSL6hbRNrC9dQ3PUd/IxagLGcZFA48PjjyYrzCd1vqWAC7TTog8wFiBTUUR7Igw
fK6ZIRVFsGsolKCtEFl7cmneGpBEuIGeyZoJJSBCpAcXE18Sindow4LJngklIELk8j1wmEpC8Q5PMDNx
mVCCPwiVeQBaqAV4Jfq5XQAAAABJRU5ErkJggg==
</value>
</data>
<data name="addVermerk.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABQAAAAUCAYAAACNiR0NAAAABGdBTUEAALGPC/xhBQAAAZ1JREFUOE+l
kTlLA0EYhvMTtLIyjbHzwsKI2rgeSSF4gUVEPIIgqIiCQSxsRJSYgC6mCBaKF4IW7tqYJsEjaFBEC0nU
WGoniKlMxNfMhFmS7BjdtXiGnW+/9+Fd1gBAN/GuCRDeO0Zv2Uy19FeIKDG/irf2EUSt/Tit60yOdQpD
oWtF9mDpw3FtB3bLGyGazF/cQC6ILBKJIhAI4r65F4GaNuyUCVg2mTFnrOCHfoLKwimZfOjD1vY+tksF
LBVVUZkmYUxuQDj8CL//DJJ8hI2tPTjdHjimZxUZ2eOGsyGy91MHntercSClZAuuFSpjsF1VOBsqO5mk
sidPJe6cJZh3ilwZISOcTXozJruaKcbJhJErI2Rc0onJgqrZJZGNG+EbLIBky0+uqXOqAYH3mbQZk3Xz
ZQTVQGm2pq0ZI+Pya7NfZATl4b/NGPTQ+wN40OPzwhtXNyvULCOkHoJevGwMJ/7TjGHA4dTX684Yzhd7
sDlu/WDNDmx5yff8UC4MTZYW3IgD2HW0wm0X4LLXJ/Q0Y1AhQRyySLwFbcDwDUJWbE0CgQrjAAAAAElF
TkSuQmCC
</value>
</data>
<metadata name="conMenuVermerke.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">

82
Aviso/usrcntlAktDetails.vb
View File

@@ -157,20 +157,22 @@ Public Class usrcntlAktDetails
If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("LKW_CHAT") Then
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("LKW_CHAT", Me.FindForm) Then
If pnlMaDetails.Visible Then
picAVISOMessengerSNDChat.Visible = True
lblSNDChat_MsgCnt.Visible = False
Dim newMsgSnd = VERAG_PROG_ALLGEMEIN.cMessenger.GET_NewMSG_COUNT_SendungsID(SendungsID)
If newMsgSnd > 0 Then
lblSNDChat_MsgCnt.Text = newMsgSnd
lblSNDChat_MsgCnt.Visible = True
lblSNDChat_MsgCnt.BringToFront()
picAVISOMessengerSNDChat.Visible = True
lblSNDChat_MsgCnt.Visible = False
Dim newMsgSnd = VERAG_PROG_ALLGEMEIN.cMessenger.GET_NewMSG_COUNT_SendungsID(SendungsID)
If newMsgSnd > 0 Then
lblSNDChat_MsgCnt.Text = newMsgSnd
lblSNDChat_MsgCnt.Visible = True
lblSNDChat_MsgCnt.BringToFront()
End If
'If VERAG_PROG_ALLGEMEIN.cMessenger.isACTIVE_SendungsID(SendungsID) Then
' lblSNDChat_MsgCnt.Text = "!!"
' lblSNDChat_MsgCnt.Visible = True
' lblSNDChat_MsgCnt.BringToFront()
'End If
End If
'If VERAG_PROG_ALLGEMEIN.cMessenger.isACTIVE_SendungsID(SendungsID) Then
' lblSNDChat_MsgCnt.Text = "!!"
' lblSNDChat_MsgCnt.Visible = True
' lblSNDChat_MsgCnt.BringToFront()
'End If
End If
End If
@@ -264,6 +266,7 @@ Public Class usrcntlAktDetails
btnErfasst.Visible = True
End If
Button18.Visible = True
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("WARENORT", "AVISO") Then
btnOptionen.Enabled = False
@@ -783,11 +786,29 @@ Public Class usrcntlAktDetails
lblInfoAviso.Visible = False
infotxt = ""
'If dgvSendungen.SelectedRows.Count > 0 Then
' btnQuckScan.Text = "Quick-Scan" & vbNewLine & dgvSendungen.SelectedRows(0).Cells("AbfertigungsNr").Value
'Else
' btnQuckScan.Text = "Quick-Scan" & vbNewLine & "LKW"
'End If
If dgvSendungen.SelectedRows.Count > 0 Then
btnQuckScan.Text = "Quick-Scan (SND)"
Else
btnQuckScan.Text = "Quick-Scan (LKW)"
End If
' If setAkive_AuswahlID() = -1 Then Exit Sub
If AvisoID <= 0 Then Exit Sub
pnlMAInfo.Visible = False
Button18.Visible = False
btnQuckScan.Visible = False
pnlMaDetails.Visible = False
picAVISOMessengerSNDChat.Visible = False
lblSNDChat_MsgCnt.Visible = False
'Button18.Visible = False
btnQuckScan.Visible = True
'If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "ATILLA" Then
' btnQuckScan.Visible = True
'End If
Select Case tbcntlVermerke.SelectedIndex
Case 0, 1, 2 : Vermerke_anzeigen2(rowindex)
Case 3
@@ -805,7 +826,7 @@ Public Class usrcntlAktDetails
WhereWO = " AND isnull(anh_SendungsId,0) <> 0 "
End If
Button18.Visible = True
' Button18.Visible = True
Dim hSQL As String '= " Select [anh_id],[anh_Name],[anh_docId],CASE WHEN (anh_SendungsId is null OR anh_SendungsId <=0) AND anh_Art='' THEN '***' ELSE [anh_Art] END as [anh_Art],[anh_Typ], anh_markiert FROM [tblAvisoAnhaenge]
' WHERE [anh_AvisoId]='" & AvisoID & "' " & AktSndAnhaenge & " " & WhereWO & "
' ORDER BY anh_SendungsId desc,
@@ -920,7 +941,7 @@ Public Class usrcntlAktDetails
'Hier werden die passenden Vermerke zum Aviso angezeigt
Dim sendwhere = ""
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA <> "ATILLA" Then
If True Then
If gridVermerke.Columns("tblSnd_PosUnterNr") IsNot Nothing Then gridVermerke.Columns("tblSnd_PosUnterNr").Visible = False
Select Case tbcntlVermerke.SelectedIndex
Case 0
@@ -959,13 +980,12 @@ Public Class usrcntlAktDetails
sendwhere = " AND VermerkArt='S' AND SendungID=" & dgvSendungen.SelectedRows(0).Cells("tblSnd_SendungID").Value
initSND_CHAT(dgvSendungen.SelectedRows(0).Cells("tblSnd_SendungID").Value)
'---------------------------------------------------------
'MA INFO
'---------------------------------------------------------
'AbklaerungTR
pnlMAInfo.Visible = True
pnlMaDetails.Visible = True
If dgvSendungen.SelectedRows(0).Cells("tblSnd_AbklaerungTR").Value IsNot DBNull.Value Then
picMAinfo_AbklaerungTR.BackgroundImage = My.Resources.abklaerungTR_Aktiv
txtMAinfo_AbklaerungTR.Text = SQL.DLookup("mit_username", "tblMitarbeiter", "mit_id='" & dgvSendungen.SelectedRows(0).Cells("tblSnd_AbklaerungTR_MA").Value & "'", "ADMIN", "-")
@@ -975,14 +995,14 @@ Public Class usrcntlAktDetails
'AbfertigungTR
'pnlMAInfoXX.Visible = True
'If dgvSendungen.SelectedRows(0).Cells("tblSnd_AbfertigungTR").Value IsNot DBNull.Value Then
' picMAinfo_AbfertigungTR.BackgroundImage = My.Resources.AbfertigungTR_Aktiv
' picMAinfo_AbfertigungTR.BackgroundImpicAVISOMessengerSNDChatage = My.Resources.AbfertigungTR_Aktiv
' txtMAinfo_AbfertigungTR.Text = SQL.DLookup("mit_username", "tblMitarbeiter", "mit_id='" & dgvSendungen.SelectedRows(0).Cells("tblSnd_AbfertigungTR_MA").Value & "'", "ADMIN", "-")
' txtMAinfo_AbfertigungTR.Tag = dgvSendungen.SelectedRows(0).Cells("tblSnd_AbfertigungTR_MA").Value
'End If
'Vorbereitet
pnlMAInfo.Visible = True
pnlMaDetails.Visible = True
If dgvSendungen.SelectedRows(0).Cells("tblSnd_Vorbereitet").Value IsNot DBNull.Value Then
picMAinfo_VorbereitetQs.BackgroundImage = My.Resources.statusBtn_vorbereitet_Aktiv
txtMAinfo_VorbereitetQs.Text = SQL.DLookup("mit_username", "tblMitarbeiter", "mit_id='" & dgvSendungen.SelectedRows(0).Cells("tblSnd_QS_MA").Value & "'", "ADMIN", "-")
@@ -990,7 +1010,7 @@ Public Class usrcntlAktDetails
End If
'---------------------------------------------------------
'Vorgeschrieben
pnlMAInfo.Visible = True
pnlMaDetails.Visible = True
If dgvSendungen.SelectedRows(0).Cells("tblSnd_Vorgeschrieben").Value IsNot DBNull.Value Then
picMAinfo_Vorgeschrieben.BackgroundImage = My.Resources.statusBtn_vorgeschrieben_Aktiv
txtMAinfo_Vorgeschrieben.Text = SQL.DLookup("mit_username", "tblMitarbeiter", "mit_id='" & dgvSendungen.SelectedRows(0).Cells("tblSnd_VG_MA").Value & "'", "ADMIN", "-")
@@ -1032,6 +1052,12 @@ Public Class usrcntlAktDetails
' Dim hSQL As String = "SELECT [VermerkID],[AvisoID],[Datum],[Mitarbeiter],[Hinweis_Vermerk],[VermerkeCode],[MitarbeiterId] FROM Vermerke WHERE AvisoID = " & AvisoID & " " & sendwhere & " ORDER BY Datum DESC"
picAVISOMessengerSNDChat.Visible = pnlMaDetails.Visible
' lblSNDChat_MsgCnt.Visible = pnlMaDetails.Visibl
If dgvSendungen.SelectedRows.Count > 0 Then
initSND_CHAT(dgvSendungen.SelectedRows(0).Cells("tblSnd_SendungID").Value)
End If
Dim hSQL = usrcntlAktDetails.vermerkehSQL
hSQL = hSQL.Replace("[[AvisoId]]", AvisoID)
@@ -3758,9 +3784,17 @@ Public Class usrcntlAktDetails
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()
If gridVermerke.SelectedRows.Count > 0 Then
If frmSendungAnhangImport.quickScan(AvisoID, gridVermerke.SelectedRows(0).Cells("SendungID").Value) Then
Vermerke_anzeigen()
End If
Else
If frmSendungAnhangImport.quickScan(AvisoID) Then
Vermerke_anzeigen()
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