neu
This commit is contained in:
@@ -169,7 +169,7 @@ Public Class frmSendungsdetailsNEU
|
||||
If e.Modifiers = Keys.Control AndAlso e.KeyCode = Keys.P Then
|
||||
loadDataInLIST()
|
||||
Dim trd = New Threading.Thread(Sub()
|
||||
SendungOptions.PrintSendung("DIALOG", SENDUNG_LIST(CURRENT_INDEX), AVISO)
|
||||
SendungOptions.PrintSendung("DIALOG", SENDUNG_LIST(CURRENT_INDEX), AVISO,,, SENDUNG_LIST.Count)
|
||||
End Sub)
|
||||
trd.IsBackground = True : trd.Start()
|
||||
e.Handled = True
|
||||
@@ -995,8 +995,8 @@ Public Class frmSendungsdetailsNEU
|
||||
rtbAnmerkung.Text = loadValue(SENDUNG_LIST(CURRENT_INDEX).tblSnd_Anmerkung, "")
|
||||
rtbAnmerkungDispoliste.Text = loadValue(SENDUNG_LIST(CURRENT_INDEX).tblSnd_AnmerkungDispoliste, "")
|
||||
|
||||
txtColli.Text = loadValue(SENDUNG_LIST(CURRENT_INDEX).tblSnd_Colli, "")
|
||||
txtGewicht.Text = loadValue(SENDUNG_LIST(CURRENT_INDEX).tblSnd_Gewicht, "")
|
||||
txtColli.Text = loadValue(SENDUNG_LIST(CURRENT_INDEX).tblSnd_Colli, "").ToString.Replace(" ", "").Replace(Chr(160), "") ' 160: irgend ein Sonder-Leerzeichen
|
||||
txtGewicht.Text = loadValue(SENDUNG_LIST(CURRENT_INDEX).tblSnd_Gewicht, "").ToString.Replace(" ", "").Replace(Chr(160), "") ' 160: irgend ein Sonder-Leerzeichen
|
||||
rtbWarenbezeichnung.Text = loadValue(SENDUNG_LIST(CURRENT_INDEX).tblSnd_Warenbezeichnung, "")
|
||||
cbxSpedBuch.Checked = loadValue(SENDUNG_LIST(CURRENT_INDEX).tblSnd_SpeditionsbuchEingetragen, False)
|
||||
|
||||
@@ -1074,27 +1074,31 @@ Public Class frmSendungsdetailsNEU
|
||||
txtFrachtfuehrer.Text = SENDUNG_LIST(CURRENT_INDEX).tblSnd_Frachtfuehrer 'IIf(SENDUNG_LIST(CURRENT_INDEX).tblSnd_frachtfuehrer Is Nothing, "", SENDUNG_LIST(CURRENT_INDEX).tblSnd_frachtfuehrer)
|
||||
End If
|
||||
|
||||
''Übergangsphase Aviso/Sendung
|
||||
'If txtAvisiererKdNr.Text = "" Then
|
||||
' If AVISO.Auftraggeber_KdNr > -1 Then
|
||||
' txtAvisierer.KdNr = AVISO.Auftraggeber_KdNr
|
||||
' Else
|
||||
' txtAvisierer.KdNr_value = -1
|
||||
' txtAvisiererKdNr.Text = ""
|
||||
' txtAvisierer.Text = AVISO.Auftraggeber
|
||||
' End If
|
||||
'End If
|
||||
'Übergangsphase Aviso/Sendung
|
||||
If txtAvisierer.Text = "" And txtAvisierer.Enabled And VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale(cboFiliale._value) = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Then
|
||||
If AVISO.Auftraggeber_KdNr > -1 Then
|
||||
If VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromKdNr(AVISO.Auftraggeber_KdNr) = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Then
|
||||
txtAvisierer.KdNr = AVISO.Auftraggeber_KdNr
|
||||
End If
|
||||
Else
|
||||
txtAvisierer.KdNr_value = -1
|
||||
txtAvisiererKdNr.Text = ""
|
||||
txtAvisierer.Text = AVISO.Auftraggeber
|
||||
End If
|
||||
End If
|
||||
|
||||
''Übergangsphase Aviso/Sendung
|
||||
'If txtFrachtfuehrer.Text = "" Then
|
||||
' If AVISO.Frächter_KdNr > -1 Then
|
||||
' txtFrachtfuehrer.KdNr = AVISO.Frächter_KdNr
|
||||
' Else
|
||||
' txtFrachtfuehrer.KdNr_value = -1
|
||||
' txtFrachtfuehrerKdNr.Text = ""
|
||||
' txtFrachtfuehrer.Text = AVISO.Frächter
|
||||
' End If
|
||||
'End If
|
||||
'Übergangsphase Aviso/Sendung
|
||||
If txtFrachtfuehrer.Text = "" And txtFrachtfuehrer.Enabled And VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale(cboFiliale._value) = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Then
|
||||
If AVISO.Frächter_KdNr > -1 Then
|
||||
If VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromKdNr(AVISO.Frächter_KdNr) = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Then
|
||||
txtFrachtfuehrer.KdNr = AVISO.Frächter_KdNr
|
||||
End If
|
||||
Else
|
||||
txtFrachtfuehrer.KdNr_value = -1
|
||||
txtFrachtfuehrerKdNr.Text = ""
|
||||
txtFrachtfuehrer.Text = AVISO.Frächter
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
pnlT1.Controls.Clear()
|
||||
@@ -1498,12 +1502,12 @@ Public Class frmSendungsdetailsNEU
|
||||
If sender Is Button3 Or sender Is LaufzettelDruckenToolStripMenuItem Then
|
||||
|
||||
'Dim trd = New Threading.Thread(Sub()
|
||||
SendungOptions.PrintSendung("PRINT", Me.SENDUNG_LIST(CURRENT_INDEX), Me.AVISO, Printername, If(sender Is LaufzettelDruckenToolStripMenuItem, "LAUFZETTEL", "AKT"))
|
||||
SendungOptions.PrintSendung("PRINT", Me.SENDUNG_LIST(CURRENT_INDEX), Me.AVISO, Printername, If(sender Is LaufzettelDruckenToolStripMenuItem, "LAUFZETTEL", "AKT"), SENDUNG_LIST.Count)
|
||||
' End Sub)
|
||||
' trd.IsBackground = True : trd.Start()
|
||||
|
||||
ElseIf sender Is Button8 Then
|
||||
SendungOptions.PrintSendung("PDF", SENDUNG_LIST(CURRENT_INDEX), AVISO, Printername)
|
||||
SendungOptions.PrintSendung("PDF", SENDUNG_LIST(CURRENT_INDEX), AVISO, Printername,, SENDUNG_LIST.Count)
|
||||
End If
|
||||
Me.Cursor = Cursors.Default
|
||||
End Sub
|
||||
@@ -2364,7 +2368,7 @@ Public Class frmSendungsdetailsNEU
|
||||
Dim Printername = cboPrinter.Text
|
||||
'Dim trd = New Threading.Thread(Sub()
|
||||
For Each s In SENDUNG_LIST
|
||||
If Not s.tblSnd_Fremdspedition Then SendungOptions.PrintSendung("PRINT", s, AVISO, Printername)
|
||||
If Not s.tblSnd_Fremdspedition Then SendungOptions.PrintSendung("PRINT", s, AVISO, Printername,, SENDUNG_LIST.Count)
|
||||
Next
|
||||
' End Sub)
|
||||
' trd.IsBackground = True : trd.Start()
|
||||
@@ -2478,7 +2482,9 @@ Public Class frmSendungsdetailsNEU
|
||||
Case "UNISPED"
|
||||
If cboFiliale._value <> "5601" Then sperren = True
|
||||
Case "VERAG"
|
||||
If cboFiliale._value = "5601" Or cboFiliale._value = "5501" Then sperren = True
|
||||
If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("AVISO_IMEX", "AVISO") Then
|
||||
If cboFiliale._value = "5601" Or cboFiliale._value = "5501" Then sperren = True
|
||||
End If
|
||||
End Select
|
||||
End If
|
||||
End If
|
||||
@@ -3732,4 +3738,42 @@ Public Class frmSendungsdetailsNEU
|
||||
txtFrachtfuehrer.Text = txtAvisierer.Text
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub IMEXToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles IMEXToolStripMenuItem1.Click
|
||||
open_Mail_NeuerLKW("IMEX")
|
||||
End Sub
|
||||
|
||||
Sub open_Mail_NeuerLKW(firmaTmp)
|
||||
Dim outl As New Outlook.Application
|
||||
Dim Mail As Microsoft.Office.Interop.Outlook.MailItem
|
||||
Mail = outl.CreateItem(0)
|
||||
Mail.Subject = "NEUER LKW: " & AVISO.LKW_Nr
|
||||
|
||||
Select Case firmaTmp
|
||||
Case "IMEX" : Mail.To = "info@imex-group.at"
|
||||
Case "UNISPED" : Mail.To = "office@unisped.at"
|
||||
Case "VERAG" : Mail.To = "quickstop@verag.ag"
|
||||
End Select
|
||||
Dim TextHTML = ""
|
||||
TextHTML &= "Hallo " & firmaTmp & "-TEAM,<br>"
|
||||
TextHTML &= "<br>"
|
||||
TextHTML &= "oben genannter LKW/Container wurde im AVISO erfasst.<br>"
|
||||
TextHTML &= "Die Papiere sind im Aviso der jeweiligen Sendung angehängt (<b>DIGITALER AKT</b>).<br>"
|
||||
TextHTML &= "<br>"
|
||||
TextHTML &= "Mit freundlichen Grüßen<br>"
|
||||
TextHTML &= VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME & "<br>"
|
||||
TextHTML &= "<br>"
|
||||
|
||||
Mail.HTMLBody = "<div style=""font-family:Calibri, Arial;font-size:15px;"">" & TextHTML & SDL.cFakturierung.getSignature("DE") & "</div>"
|
||||
|
||||
Mail.Display()
|
||||
End Sub
|
||||
|
||||
Private Sub UNISPEDToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles UNISPEDToolStripMenuItem.Click
|
||||
open_Mail_NeuerLKW("UNISPED")
|
||||
End Sub
|
||||
|
||||
Private Sub VERAGToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles VERAGToolStripMenuItem.Click
|
||||
open_Mail_NeuerLKW("VERAG")
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
Reference in New Issue
Block a user