dynamische Mailvorlagen
This commit is contained in:
@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
|
||||
' übernehmen, indem Sie "*" eingeben:
|
||||
' <Assembly: AssemblyVersion("1.0.*")>
|
||||
|
||||
<Assembly: AssemblyVersion("3.9.8.6")>
|
||||
<Assembly: AssemblyFileVersion("3.9.8.6")>
|
||||
<Assembly: AssemblyVersion("3.9.8.7")>
|
||||
<Assembly: AssemblyFileVersion("3.9.8.7")>
|
||||
|
||||
55
Aviso/frmHauptfenster.Designer.vb
generated
55
Aviso/frmHauptfenster.Designer.vb
generated
@@ -153,6 +153,7 @@ Partial Class frmHauptfenster
|
||||
Me.ToolStripFormulare = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.MANAGERToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.ToolStripSeparator3 = New System.Windows.Forms.ToolStripSeparator()
|
||||
Me.MailvorlagenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.ToolStripMenuItem2 = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.toolStrVM_de = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.ZollvollmachtDEFiskalToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
@@ -1172,7 +1173,7 @@ Partial Class frmHauptfenster
|
||||
'ToolStripFormulare
|
||||
'
|
||||
Me.ToolStripFormulare.BackColor = System.Drawing.Color.White
|
||||
Me.ToolStripFormulare.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.MANAGERToolStripMenuItem, Me.ToolStripSeparator3, Me.ToolStripMenuItem2, Me.ToolStripMenuItem7, Me.ToolStripMenuItem12, Me.ToolStripMenuItem15, Me.ToolStripMenuItem18, Me.AuftragÜberwachungsdokumentToolStripMenuItem, Me.toolVUB, Me.toolVPCreditreform, Me.ToolStripSeparator9, Me.VerzollungsunterlagenToolStripMenuItem, Me.ToolStripMenuItem11, Me.ToolStripSeparator6, Me.WAIDHAUSToolStripMenuItem, Me.ToolStripSeparator13, Me.EinheitspapierToolStripMenuItem, Me.CMRToolStripMenuItem, Me.Einheitspapier0735VersandverfahrenToolStripMenuItem, Me.CarnetTIRToolStripMenuItem, Me.CarnetTIRALTToolStripMenuItem})
|
||||
Me.ToolStripFormulare.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.MANAGERToolStripMenuItem, Me.ToolStripSeparator3, Me.MailvorlagenToolStripMenuItem, Me.ToolStripMenuItem2, Me.ToolStripMenuItem7, Me.ToolStripMenuItem12, Me.ToolStripMenuItem15, Me.ToolStripMenuItem18, Me.AuftragÜberwachungsdokumentToolStripMenuItem, Me.toolVUB, Me.toolVPCreditreform, Me.ToolStripSeparator9, Me.VerzollungsunterlagenToolStripMenuItem, Me.ToolStripMenuItem11, Me.ToolStripSeparator6, Me.WAIDHAUSToolStripMenuItem, Me.ToolStripSeparator13, Me.EinheitspapierToolStripMenuItem, Me.CMRToolStripMenuItem, Me.Einheitspapier0735VersandverfahrenToolStripMenuItem, Me.CarnetTIRToolStripMenuItem, Me.CarnetTIRALTToolStripMenuItem})
|
||||
Me.ToolStripFormulare.Font = New System.Drawing.Font("Segoe UI", 9.0!)
|
||||
Me.ToolStripFormulare.ForeColor = System.Drawing.Color.Black
|
||||
Me.ToolStripFormulare.ImageAlign = System.Drawing.ContentAlignment.BottomRight
|
||||
@@ -1186,19 +1187,28 @@ Partial Class frmHauptfenster
|
||||
Me.MANAGERToolStripMenuItem.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Bold)
|
||||
Me.MANAGERToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.android_note
|
||||
Me.MANAGERToolStripMenuItem.Name = "MANAGERToolStripMenuItem"
|
||||
Me.MANAGERToolStripMenuItem.Size = New System.Drawing.Size(277, 22)
|
||||
Me.MANAGERToolStripMenuItem.Size = New System.Drawing.Size(285, 30)
|
||||
Me.MANAGERToolStripMenuItem.Text = "Formular - Manager"
|
||||
'
|
||||
'ToolStripSeparator3
|
||||
'
|
||||
Me.ToolStripSeparator3.Name = "ToolStripSeparator3"
|
||||
Me.ToolStripSeparator3.Size = New System.Drawing.Size(274, 6)
|
||||
Me.ToolStripSeparator3.Size = New System.Drawing.Size(282, 6)
|
||||
'
|
||||
'MailvorlagenToolStripMenuItem
|
||||
'
|
||||
Me.MailvorlagenToolStripMenuItem.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Bold)
|
||||
Me.MailvorlagenToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.stift
|
||||
Me.MailvorlagenToolStripMenuItem.Name = "MailvorlagenToolStripMenuItem"
|
||||
Me.MailvorlagenToolStripMenuItem.Size = New System.Drawing.Size(285, 30)
|
||||
Me.MailvorlagenToolStripMenuItem.Text = "Mailvorlagen"
|
||||
Me.MailvorlagenToolStripMenuItem.Visible = False
|
||||
'
|
||||
'ToolStripMenuItem2
|
||||
'
|
||||
Me.ToolStripMenuItem2.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.toolStrVM_de, Me.ZollvollmachtDEFiskalToolStripMenuItem, Me.toolStrVM_at, Me.toolStrVM_at4200, Me.ZollvollmachtATEVToolStripMenuItem})
|
||||
Me.ToolStripMenuItem2.Name = "ToolStripMenuItem2"
|
||||
Me.ToolStripMenuItem2.Size = New System.Drawing.Size(277, 22)
|
||||
Me.ToolStripMenuItem2.Size = New System.Drawing.Size(285, 30)
|
||||
Me.ToolStripMenuItem2.Text = "Vollmachten"
|
||||
'
|
||||
'toolStrVM_de
|
||||
@@ -1234,38 +1244,38 @@ Partial Class frmHauptfenster
|
||||
'ToolStripMenuItem7
|
||||
'
|
||||
Me.ToolStripMenuItem7.Name = "ToolStripMenuItem7"
|
||||
Me.ToolStripMenuItem7.Size = New System.Drawing.Size(277, 22)
|
||||
Me.ToolStripMenuItem7.Size = New System.Drawing.Size(285, 30)
|
||||
Me.ToolStripMenuItem7.Text = "Gestellungsgarantien"
|
||||
'
|
||||
'ToolStripMenuItem12
|
||||
'
|
||||
Me.ToolStripMenuItem12.Name = "ToolStripMenuItem12"
|
||||
Me.ToolStripMenuItem12.Size = New System.Drawing.Size(277, 22)
|
||||
Me.ToolStripMenuItem12.Size = New System.Drawing.Size(285, 30)
|
||||
Me.ToolStripMenuItem12.Text = "Importaviso"
|
||||
'
|
||||
'ToolStripMenuItem15
|
||||
'
|
||||
Me.ToolStripMenuItem15.Name = "ToolStripMenuItem15"
|
||||
Me.ToolStripMenuItem15.Size = New System.Drawing.Size(277, 22)
|
||||
Me.ToolStripMenuItem15.Size = New System.Drawing.Size(285, 30)
|
||||
Me.ToolStripMenuItem15.Text = "Dispoliste"
|
||||
'
|
||||
'ToolStripMenuItem18
|
||||
'
|
||||
Me.ToolStripMenuItem18.Name = "ToolStripMenuItem18"
|
||||
Me.ToolStripMenuItem18.Size = New System.Drawing.Size(277, 22)
|
||||
Me.ToolStripMenuItem18.Size = New System.Drawing.Size(285, 30)
|
||||
Me.ToolStripMenuItem18.Text = "Verzollungspreise"
|
||||
'
|
||||
'AuftragÜberwachungsdokumentToolStripMenuItem
|
||||
'
|
||||
Me.AuftragÜberwachungsdokumentToolStripMenuItem.Name = "AuftragÜberwachungsdokumentToolStripMenuItem"
|
||||
Me.AuftragÜberwachungsdokumentToolStripMenuItem.Size = New System.Drawing.Size(277, 22)
|
||||
Me.AuftragÜberwachungsdokumentToolStripMenuItem.Size = New System.Drawing.Size(285, 30)
|
||||
Me.AuftragÜberwachungsdokumentToolStripMenuItem.Text = "Auftrag Überwachungsdokument"
|
||||
'
|
||||
'toolVUB
|
||||
'
|
||||
Me.toolVUB.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.VUBVERAGSpeditionAGToolStripMenuItem, Me.VeragCustomsServiceToolStripMenuItem})
|
||||
Me.toolVUB.Name = "toolVUB"
|
||||
Me.toolVUB.Size = New System.Drawing.Size(277, 22)
|
||||
Me.toolVUB.Size = New System.Drawing.Size(285, 30)
|
||||
Me.toolVUB.Text = "VUB"
|
||||
'
|
||||
'VUBVERAGSpeditionAGToolStripMenuItem
|
||||
@@ -1283,37 +1293,37 @@ Partial Class frmHauptfenster
|
||||
'toolVPCreditreform
|
||||
'
|
||||
Me.toolVPCreditreform.Name = "toolVPCreditreform"
|
||||
Me.toolVPCreditreform.Size = New System.Drawing.Size(277, 22)
|
||||
Me.toolVPCreditreform.Size = New System.Drawing.Size(285, 30)
|
||||
Me.toolVPCreditreform.Text = "Bonitätsauskunft (Creditreform)"
|
||||
Me.toolVPCreditreform.Visible = False
|
||||
'
|
||||
'ToolStripSeparator9
|
||||
'
|
||||
Me.ToolStripSeparator9.Name = "ToolStripSeparator9"
|
||||
Me.ToolStripSeparator9.Size = New System.Drawing.Size(274, 6)
|
||||
Me.ToolStripSeparator9.Size = New System.Drawing.Size(282, 6)
|
||||
'
|
||||
'VerzollungsunterlagenToolStripMenuItem
|
||||
'
|
||||
Me.VerzollungsunterlagenToolStripMenuItem.Name = "VerzollungsunterlagenToolStripMenuItem"
|
||||
Me.VerzollungsunterlagenToolStripMenuItem.Size = New System.Drawing.Size(277, 22)
|
||||
Me.VerzollungsunterlagenToolStripMenuItem.Size = New System.Drawing.Size(285, 30)
|
||||
Me.VerzollungsunterlagenToolStripMenuItem.Text = "Verzollungsunterlagen"
|
||||
'
|
||||
'ToolStripMenuItem11
|
||||
'
|
||||
Me.ToolStripMenuItem11.Name = "ToolStripMenuItem11"
|
||||
Me.ToolStripMenuItem11.Size = New System.Drawing.Size(277, 22)
|
||||
Me.ToolStripMenuItem11.Size = New System.Drawing.Size(285, 30)
|
||||
Me.ToolStripMenuItem11.Text = "Verzollungsunterlagen BAR"
|
||||
'
|
||||
'ToolStripSeparator6
|
||||
'
|
||||
Me.ToolStripSeparator6.Name = "ToolStripSeparator6"
|
||||
Me.ToolStripSeparator6.Size = New System.Drawing.Size(274, 6)
|
||||
Me.ToolStripSeparator6.Size = New System.Drawing.Size(282, 6)
|
||||
'
|
||||
'WAIDHAUSToolStripMenuItem
|
||||
'
|
||||
Me.WAIDHAUSToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem8, Me.ToolStripMenuItem9, Me.AnnahmeblattIMPORTToolStripMenuItem, Me.AnnahmeblattEXPORTToolStripMenuItem, Me.ChecklisteVerwahrlagerToolStripMenuItem})
|
||||
Me.WAIDHAUSToolStripMenuItem.Name = "WAIDHAUSToolStripMenuItem"
|
||||
Me.WAIDHAUSToolStripMenuItem.Size = New System.Drawing.Size(277, 22)
|
||||
Me.WAIDHAUSToolStripMenuItem.Size = New System.Drawing.Size(285, 30)
|
||||
Me.WAIDHAUSToolStripMenuItem.Text = "WAIDHAUS"
|
||||
'
|
||||
'ToolStripMenuItem8
|
||||
@@ -1349,36 +1359,36 @@ Partial Class frmHauptfenster
|
||||
'ToolStripSeparator13
|
||||
'
|
||||
Me.ToolStripSeparator13.Name = "ToolStripSeparator13"
|
||||
Me.ToolStripSeparator13.Size = New System.Drawing.Size(274, 6)
|
||||
Me.ToolStripSeparator13.Size = New System.Drawing.Size(282, 6)
|
||||
'
|
||||
'EinheitspapierToolStripMenuItem
|
||||
'
|
||||
Me.EinheitspapierToolStripMenuItem.Name = "EinheitspapierToolStripMenuItem"
|
||||
Me.EinheitspapierToolStripMenuItem.Size = New System.Drawing.Size(277, 22)
|
||||
Me.EinheitspapierToolStripMenuItem.Size = New System.Drawing.Size(285, 30)
|
||||
Me.EinheitspapierToolStripMenuItem.Text = "Einheitspapier 0777 (Vereinfachte ZA)"
|
||||
'
|
||||
'CMRToolStripMenuItem
|
||||
'
|
||||
Me.CMRToolStripMenuItem.Name = "CMRToolStripMenuItem"
|
||||
Me.CMRToolStripMenuItem.Size = New System.Drawing.Size(277, 22)
|
||||
Me.CMRToolStripMenuItem.Size = New System.Drawing.Size(285, 30)
|
||||
Me.CMRToolStripMenuItem.Text = "CMR"
|
||||
'
|
||||
'Einheitspapier0735VersandverfahrenToolStripMenuItem
|
||||
'
|
||||
Me.Einheitspapier0735VersandverfahrenToolStripMenuItem.Name = "Einheitspapier0735VersandverfahrenToolStripMenuItem"
|
||||
Me.Einheitspapier0735VersandverfahrenToolStripMenuItem.Size = New System.Drawing.Size(277, 22)
|
||||
Me.Einheitspapier0735VersandverfahrenToolStripMenuItem.Size = New System.Drawing.Size(285, 30)
|
||||
Me.Einheitspapier0735VersandverfahrenToolStripMenuItem.Text = "Einheitspapier 0735 (Versandverfahren)"
|
||||
'
|
||||
'CarnetTIRToolStripMenuItem
|
||||
'
|
||||
Me.CarnetTIRToolStripMenuItem.Name = "CarnetTIRToolStripMenuItem"
|
||||
Me.CarnetTIRToolStripMenuItem.Size = New System.Drawing.Size(277, 22)
|
||||
Me.CarnetTIRToolStripMenuItem.Size = New System.Drawing.Size(285, 30)
|
||||
Me.CarnetTIRToolStripMenuItem.Text = "Carnet TIR"
|
||||
'
|
||||
'CarnetTIRALTToolStripMenuItem
|
||||
'
|
||||
Me.CarnetTIRALTToolStripMenuItem.Name = "CarnetTIRALTToolStripMenuItem"
|
||||
Me.CarnetTIRALTToolStripMenuItem.Size = New System.Drawing.Size(277, 22)
|
||||
Me.CarnetTIRALTToolStripMenuItem.Size = New System.Drawing.Size(285, 30)
|
||||
Me.CarnetTIRALTToolStripMenuItem.Text = "Carnet TIR (ALT)"
|
||||
'
|
||||
'mnuFragezeichen
|
||||
@@ -4179,4 +4189,5 @@ Partial Class frmHauptfenster
|
||||
Friend WithEvents DEVeragGmbHToolStripMenuItem As ToolStripMenuItem
|
||||
Friend WithEvents ATUnispedGmbHToolStripMenuItem As ToolStripMenuItem
|
||||
Friend WithEvents AnhangsartenToolStripMenuItem As ToolStripMenuItem
|
||||
Friend WithEvents MailvorlagenToolStripMenuItem As ToolStripMenuItem
|
||||
End Class
|
||||
|
||||
@@ -379,6 +379,9 @@ Public Class frmHauptfenster
|
||||
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("RECHNUNGSSUCHE", "SDL") Then
|
||||
btnRg.Visible = True
|
||||
End If
|
||||
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MAILVORLAGEN", "SDL") Then
|
||||
MailvorlagenToolStripMenuItem.Visible = True
|
||||
End If
|
||||
|
||||
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MITARBEITER_VERZEICHNIS", "SDL") Then
|
||||
btnMAVerzeichnis.Visible = True
|
||||
@@ -4589,6 +4592,11 @@ Public Class frmHauptfenster
|
||||
Private Sub BackgroundWorker1_DoWork(sender As Object, e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub MailvorlagenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles MailvorlagenToolStripMenuItem.Click
|
||||
Dim f As New SDL.frmdynMailvorlage(VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMIN", "SDL"))
|
||||
f.ShowDialog(Me)
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
Public Class AvisoStatusFunctions
|
||||
|
||||
4
Aviso/frmNCTSRouten.Designer.vb
generated
4
Aviso/frmNCTSRouten.Designer.vb
generated
@@ -150,9 +150,9 @@ Partial Class frmNCTSRouten
|
||||
Me.lblWarningTransportmittel.ForeColor = System.Drawing.Color.Red
|
||||
Me.lblWarningTransportmittel.Location = New System.Drawing.Point(356, 156)
|
||||
Me.lblWarningTransportmittel.Name = "lblWarningTransportmittel"
|
||||
Me.lblWarningTransportmittel.Size = New System.Drawing.Size(105, 13)
|
||||
Me.lblWarningTransportmittel.Size = New System.Drawing.Size(132, 13)
|
||||
Me.lblWarningTransportmittel.TabIndex = 42
|
||||
Me.lblWarningTransportmittel.Text = "Bitte Route angeben"
|
||||
Me.lblWarningTransportmittel.Text = "Bitte Transportm. angeben"
|
||||
Me.lblWarningTransportmittel.Visible = False
|
||||
'
|
||||
'Label5
|
||||
|
||||
3685
Aviso/frmSendungsdetailsNEU.Designer.vb
generated
3685
Aviso/frmSendungsdetailsNEU.Designer.vb
generated
File diff suppressed because it is too large
Load Diff
@@ -1531,9 +1531,6 @@
|
||||
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
|
||||
@@ -1654,18 +1651,6 @@
|
||||
<metadata name="clmnPreis.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>True</value>
|
||||
</metadata>
|
||||
<metadata name="clmnVK_id.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>True</value>
|
||||
</metadata>
|
||||
<metadata name="clmnFirma.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>True</value>
|
||||
</metadata>
|
||||
<metadata name="clmnLeistung.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>True</value>
|
||||
</metadata>
|
||||
<metadata name="clmnPreis.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>True</value>
|
||||
</metadata>
|
||||
<data name="Button9.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAAAHtJREFUSEvt
|
||||
@@ -1764,9 +1749,44 @@
|
||||
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">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m
|
||||
@@ -2039,9 +2059,6 @@
|
||||
<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>
|
||||
@@ -2497,40 +2514,8 @@
|
||||
<metadata name="ContextMenuStrip3.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>129, 56</value>
|
||||
</metadata>
|
||||
<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="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>
|
||||
<metadata name="ToolTip.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>404, 17</value>
|
||||
<metadata name="ToolStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>286, 56</value>
|
||||
</metadata>
|
||||
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
|
||||
@@ -34,6 +34,7 @@ Public Class frmSendungsdetailsNEU
|
||||
Dim usrcntl_ATA As usrCntlSND_Handling
|
||||
Dim usrcntl_ATB As usrCntlSND_ATBGestellung
|
||||
Dim usrcntl_AUSFUHR As usrCntlSND_Ausfuhr
|
||||
Dim listOfTextconserven
|
||||
|
||||
|
||||
Sub New()
|
||||
@@ -479,6 +480,7 @@ Public Class frmSendungsdetailsNEU
|
||||
Case "IMEX" : cboFiliale._allowedValuesFreiText = {"5501"}
|
||||
Case "UNISPED" : cboFiliale._allowedValuesFreiText = {"5601"}
|
||||
Case "AMBAR" : cboFiliale._allowedValuesFreiText = {"5701"}
|
||||
|
||||
Case "ATILLA" : cboFiliale._allowedValuesFreiText = Nothing
|
||||
End Select
|
||||
End Select
|
||||
@@ -708,7 +710,7 @@ Public Class frmSendungsdetailsNEU
|
||||
Case "AMBAR"
|
||||
AMBARZollbeschauToolStripMenuItem.Visible = True
|
||||
AMBARZollbeschauNEUToolStripMenuItem.Visible = True
|
||||
WarenortAMBARToolStripMenuItem.Visible = True
|
||||
dynMailsToolStripMenuItem.Visible = True
|
||||
End Select
|
||||
initDataBinding()
|
||||
|
||||
@@ -4108,7 +4110,8 @@ Public Class frmSendungsdetailsNEU
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub EMailAnfügenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles EMailAnfügenToolStripMenuItem.Click, ToolStripMenuItem15.Click, WarenortAMBARToolStripMenuItem.Click
|
||||
Private Sub EMailAnfügenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles EMailAnfügenToolStripMenuItem.Click, ToolStripMenuItem15.Click
|
||||
|
||||
|
||||
Try
|
||||
VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.clearTMPPath("ClipBoard_TMP")
|
||||
@@ -4155,31 +4158,8 @@ Public Class frmSendungsdetailsNEU
|
||||
Mail.HTMLBody = "<div style=""font-family:Calibri, Arial;font-size:15px;"">" & TextHTML & SDL.cFakturierung.getSignature("DE") & "</div>"
|
||||
|
||||
AvisoStatusFunctions.insertSendungsVermerk(SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID, AvisoId, "ATA-Nr fehlt (Fremdanmeldung) - angefordert", 33)
|
||||
|
||||
ElseIf sender Is WarenortAMBARToolStripMenuItem Then
|
||||
|
||||
Mail.Subject = AVISO.LKW_Nr
|
||||
If If(SENDUNG_LIST(CURRENT_INDEX).tblSnd_Empfaenger, "") <> "" Then Mail.Subject &= " / " & SENDUNG_LIST(CURRENT_INDEX).tblSnd_Empfaenger
|
||||
|
||||
Dim TextHTML = ""
|
||||
TextHTML &= "Sehr geehrte Damen und Herren,<br>"
|
||||
TextHTML &= "<br>"
|
||||
TextHTML &= "der LKW meldet sich mit der Ware lt. Anhang bei uns am Warenort Zollamt " & lblGrenze.Text.Replace(vbNewLine, " ") & ", bitte um Vorbereitung der Verzollung. <br>"
|
||||
TextHTML &= "<br>"
|
||||
TextHTML &= "Wir melden uns bei LKW-Ankunft mit der ATB Nummer.<br>"
|
||||
TextHTML &= "<br>"
|
||||
TextHTML &= "Mit freundlichen Grüßen<br>"
|
||||
TextHTML &= VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME & "<br>"
|
||||
TextHTML &= "<br>"
|
||||
|
||||
AvisoStatusFunctions.insertSendungsVermerk(SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID, AvisoId, "An Fremdspediteur avisiert (Warenort)", 98)
|
||||
|
||||
Mail.HTMLBody = "<div style=""font-family:Calibri, Arial;font-size:15px;"">" & TextHTML & SDL.cFakturierung.getSignature("DE",,,,,, False) & "</div>"
|
||||
|
||||
End If
|
||||
|
||||
|
||||
|
||||
Mail.Display()
|
||||
|
||||
Catch ex As Exception
|
||||
@@ -4339,7 +4319,24 @@ Public Class frmSendungsdetailsNEU
|
||||
End Sub
|
||||
|
||||
Private Sub Button22_Click(sender As Object, e As EventArgs) Handles btnMailVorlage.Click
|
||||
|
||||
listOfTextconserven = New cTextkonserve_LIST("FRM_MNGR_MailText", "DE", VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA)
|
||||
|
||||
If listOfTextconserven.LIST.Count = 0 Then
|
||||
ContextMenuStrip1.Show(Cursor.Position)
|
||||
Else
|
||||
For Each r In listOfTextconserven.LIST
|
||||
|
||||
If Not dynMailsToolStripMenuItem.DropDownItems.ContainsKey(r.txt_id) Then
|
||||
Dim menuItem = New ToolStripMenuItem() With {.Text = r.txt_bezeichnung, .Name = r.txt_id}
|
||||
dynMailsToolStripMenuItem.DropDownItems.Add(menuItem)
|
||||
AddHandler menuItem.Click, AddressOf mnuItem_Clicked
|
||||
End If
|
||||
Next
|
||||
ContextMenuStrip1.Show(Cursor.Position)
|
||||
End If
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
@@ -5334,7 +5331,7 @@ Public Class frmSendungsdetailsNEU
|
||||
Dim found = False
|
||||
|
||||
|
||||
If SND.ABRECHNUNG.Exists(Function(x) x.sndabr_beteiligter = "EMPF") Then ' Wenn barechnugn an Empf
|
||||
If SND.ABRECHNUNG.Exists(Function(x) x.sndabr_beteiligter = "EMPF") Then ' Wenn barechnugn an EmpfFambar
|
||||
TmpKdNr = SND.tblSnd_EmpfaengerKdNr
|
||||
If Not listKdNr.Contains(TmpKdNr) Then
|
||||
f = New AVISO.frmSndVorgeschriebenSetzen(AVISO, SND, TmpKdNr)
|
||||
@@ -6764,4 +6761,94 @@ Public Class frmSendungsdetailsNEU
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Private Sub mnuItem_Clicked(sender As Object, e As EventArgs)
|
||||
ContextMenuStrip1.Hide()
|
||||
Dim item As ToolStripMenuItem = TryCast(sender, ToolStripMenuItem)
|
||||
|
||||
If item IsNot Nothing Then
|
||||
|
||||
For Each r As cTextkonserve In listOfTextconserven.LIST
|
||||
|
||||
If item.Name = r.txt_Id.ToString Then
|
||||
|
||||
Dim outl As New Outlook.Application
|
||||
Dim Mail As Microsoft.Office.Interop.Outlook.MailItem
|
||||
Mail = outl.CreateItem(0)
|
||||
|
||||
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "AMBAR" Then
|
||||
Try
|
||||
Mail.SentOnBehalfOfName = SDL.cFakturierung.getDefaultMail("AMBAR")
|
||||
Mail.HTMLBody &= cFakturierung.getSignature(r.txt_sprache, 24, True, True)
|
||||
Catch ex2 As Exception
|
||||
MsgBox(ex2.Message)
|
||||
End Try
|
||||
|
||||
|
||||
End If
|
||||
|
||||
|
||||
Mail.Subject = r.txt_betreff
|
||||
|
||||
Dim TextHTML = ""
|
||||
TextHTML &= r.txt_text
|
||||
TextHTML &= "<br>"
|
||||
TextHTML &= "<br>"
|
||||
TextHTML &= "Mit freundlichen Grüßen<br>"
|
||||
TextHTML &= VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME & "<br>"
|
||||
TextHTML &= "<br>"
|
||||
TextHTML &= cFakturierung.getSignature(r.txt_sprache, r.txt_firmaSig, True, True)
|
||||
|
||||
If lblGrenze.Text <> "" Then
|
||||
TextHTML = TextHTML.Replace("%VAR-GRENZE%", lblGrenze.Text & "<br>")
|
||||
Else
|
||||
TextHTML = TextHTML.Replace("%VAR-GRENZE%", "")
|
||||
End If
|
||||
|
||||
|
||||
Mail.HTMLBody = "<div style=""font-family:Calibri, Arial"">" & TextHTML & "</div>"
|
||||
|
||||
|
||||
|
||||
If AVISO IsNot Nothing Then
|
||||
Mail.Subject = Mail.Subject.Replace("%LKW%", AVISO.LKW_Nr)
|
||||
Mail.Subject = Mail.Subject.Replace("%LKWKennzeichen%", AVISO.LKW_Nr)
|
||||
End If
|
||||
|
||||
If SENDUNG_LIST(CURRENT_INDEX).tblSnd_Empfaenger IsNot Nothing Then
|
||||
Mail.Subject = Mail.Subject.Replace("%Empfaenger%", SENDUNG_LIST(CURRENT_INDEX).tblSnd_Empfaenger)
|
||||
End If
|
||||
|
||||
Mail.Subject = Mail.Subject.Replace("%LKW%", "")
|
||||
Mail.Subject = Mail.Subject.Replace("%LKWKennzeichen%", "")
|
||||
Mail.Subject = Mail.Subject.Replace("% - Empfaenger%", "")
|
||||
Mail.Subject = Mail.Subject.Replace("% Empfaenger%", "")
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
For Each anh As DataGridViewRow In dgvAnhang.SelectedRows
|
||||
Mail.Attachments.Add(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(anh.Cells("anh_docId").Value), Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue)
|
||||
Next
|
||||
Mail.Display()
|
||||
If False Then
|
||||
AvisoStatusFunctions.insertSendungsVermerk(SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID, AvisoId, "An Fremdspediteur avisiert (Warenort)", 98)
|
||||
End If
|
||||
Exit For
|
||||
End If
|
||||
|
||||
|
||||
Next
|
||||
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
End Class
|
||||
|
||||
Reference in New Issue
Block a user