neu
This commit is contained in:
@@ -339,7 +339,7 @@ Public Class frmSendungsdetailsNEU
|
||||
cboFiliale._allowFreiText = Nothing
|
||||
Case Else
|
||||
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
|
||||
Case "VERAG" : cboFiliale._allowedValuesFreiText = {"4803", "4809", "4805", "4806", "4811", "5003", "5303", "5103", "4839"}
|
||||
Case "VERAG" : cboFiliale._allowedValuesFreiText = {"4803", "4809", "4805", "4806", "4811", "5003", "5303", "5103", "4839", "7001"}
|
||||
Case "IMEX" : cboFiliale._allowedValuesFreiText = {"5501"}
|
||||
Case "UNISPED" : cboFiliale._allowedValuesFreiText = {"5601"}
|
||||
Case "AMBAR" : cboFiliale._allowedValuesFreiText = {"5701"}
|
||||
@@ -990,9 +990,9 @@ Public Class frmSendungsdetailsNEU
|
||||
|
||||
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER
|
||||
Case "FRONTOFFICE"
|
||||
whereFiliale = " AND FilialenNr IN (4803,4805,4811,5003,5303,5103,4839,5501,5601,5701,5801) "
|
||||
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) "
|
||||
whereFiliale = " AND FilialenNr IN (4803,4805,4811,5003,5303,5103,4839,5501,5601,5801,5701,7001) "
|
||||
End If
|
||||
|
||||
Case Else
|
||||
@@ -1049,6 +1049,7 @@ Public Class frmSendungsdetailsNEU
|
||||
' txtEmpfaengerBonitaet.Text = loadValue(SENDUNG_LIST(CURRENT_INDEX).tblSnd_Bonitaet, "")
|
||||
' txtEmpfaengerAnsprechpartner.Text = loadValue(SENDUNG_LIST(CURRENT_INDEX).tblSnd_Ansprechperson, "")
|
||||
txtAnzahl.Text = loadValue(SENDUNG_LIST(CURRENT_INDEX).tblSnd_anzahlHandling, String.Empty)
|
||||
txtAnzahlPos.Text = loadValue(SENDUNG_LIST(CURRENT_INDEX).tblSnd_anzahlPOS, String.Empty)
|
||||
|
||||
' txtAuftraggeber, "KdNr = loadValue(SENDUNG_LIST(CURRENT_INDEX).tblSnd_AuftraggeberKdNr", String.Empty)
|
||||
' txtAbsender, "KdNr = loadValue(SENDUNG_LIST(CURRENT_INDEX).tblSnd_AbsenderKdNr", String.Empty)
|
||||
@@ -1463,6 +1464,7 @@ Public Class frmSendungsdetailsNEU
|
||||
' SENDUNG_LIST(CURRENT_INDEX).tblSnd_Bonitaet = txtEmpfaengerBonitaet.Text
|
||||
' SENDUNG_LIST(CURRENT_INDEX).tblSnd_Ansprechperson = txtEmpfaengerAnsprechpartner.Text
|
||||
SENDUNG_LIST(CURRENT_INDEX).tblSnd_anzahlHandling = txtAnzahl.Text
|
||||
SENDUNG_LIST(CURRENT_INDEX).tblSnd_anzahlPOS = If(IsNumeric(txtAnzahlPos.Text), txtAnzahlPos.Text, Nothing)
|
||||
|
||||
' txtAuftraggeber, "KdNr = loadValue(SENDUNG_LIST(CURRENT_INDEX).tblSnd_AuftraggeberKdNr", String.Empty)
|
||||
' txtAbsender, "KdNr = loadValue(SENDUNG_LIST(CURRENT_INDEX).tblSnd_AbsenderKdNr", String.Empty)
|
||||
@@ -1593,6 +1595,8 @@ Public Class frmSendungsdetailsNEU
|
||||
SENDUNG_LIST(CURRENT_INDEX).tblSnd_Vorpapier3 = cboVorpapier3.Text.Trim
|
||||
SENDUNG_LIST(CURRENT_INDEX).tblSnd_Vorpapier3_Pos = txtVorpapier3Pos.Text.Trim
|
||||
|
||||
SENDUNG_LIST(CURRENT_INDEX).tblSnd_anzahlHandling = txtAnzahlPos.Text.Trim
|
||||
|
||||
|
||||
End Sub
|
||||
Function getint(o) As Integer
|
||||
@@ -2673,6 +2677,7 @@ Public Class frmSendungsdetailsNEU
|
||||
' Panel5.Enabled = Not sperren
|
||||
' cboAbfertigungsart.Enabled = Not sperren
|
||||
txtAnzahl.Enabled = Not sperren
|
||||
txtAnzahlPos.Enabled = Not sperren
|
||||
' cboFiliale.Enabled = Not sperren
|
||||
txtAbfertigungsnummer.Enabled = Not sperren
|
||||
txtUnterNr.Enabled = Not sperren
|
||||
@@ -2682,6 +2687,10 @@ Public Class frmSendungsdetailsNEU
|
||||
End Sub
|
||||
Private Sub cboFiliale_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboFiliale.SelectedIndexChanged
|
||||
' btnKassenbuchEintrag.Enabled = True
|
||||
|
||||
txtAnzahlPos.Visible = (cboFiliale._value = "7001")
|
||||
Label4.Visible = (cboFiliale._value = "7001")
|
||||
|
||||
Dim tmp = cboAbfertigungsart._value
|
||||
If IsNumeric(cboFiliale._value) Then
|
||||
cboAbfertigungsart.fillWithSQL("SELECT Abfertigungsarten.Abfertigungsart,[Abfertigungsbezeichnung] FROM [Abfertigungsarten] INNER JOIN tblAbfertigungsartenFiliale ON tblAbfertigungsartenFiliale.Abfertigungsart=Abfertigungsarten.Abfertigungsart where Filialennr=" & cboFiliale._value & "", True, "FMZOLL", True)
|
||||
@@ -4168,7 +4177,7 @@ Public Class frmSendungsdetailsNEU
|
||||
VK.sndvk_LeistungsNr = 499
|
||||
VK.sndvk_LeistungsBez = txtVK_Leistung.Text.Trim
|
||||
VK.sndvk_Firma = txtVK_Firma.Text.Trim
|
||||
VK.sndvk_Preis = txtVK_Preis._value
|
||||
VK.sndvk_Preis = CDbl(txtVK_Preis._value)
|
||||
'SENDUNG_LIST(CURRENT_INDEX).SAVE()
|
||||
btnVorkostenAdd.BackgroundImage = My.Resources.plus
|
||||
Else
|
||||
@@ -4176,7 +4185,7 @@ Public Class frmSendungsdetailsNEU
|
||||
VK.sndvk_LeistungsNr = 499
|
||||
VK.sndvk_LeistungsBez = txtVK_Leistung.Text.Trim
|
||||
VK.sndvk_Firma = txtVK_Firma.Text.Trim
|
||||
VK.sndvk_Preis = txtVK_Preis._value
|
||||
VK.sndvk_Preis = CDbl(txtVK_Preis._value)
|
||||
SENDUNG_LIST(CURRENT_INDEX).VORKOSTEN.Add(VK)
|
||||
End If
|
||||
VK_ID = -1
|
||||
@@ -4487,4 +4496,55 @@ Public Class frmSendungsdetailsNEU
|
||||
End Try
|
||||
Me.Cursor = Cursors.Default
|
||||
End Sub
|
||||
|
||||
Private Sub AuftragATANAKToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AuftragATANAKToolStripMenuItem.Click
|
||||
|
||||
Try
|
||||
VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.clearTMPPath("ClipBoard_TMP")
|
||||
If True Then 'dgvAnhang.SelectedRows.Count >= 1 Then
|
||||
Try
|
||||
Dim outl As New Outlook.Application
|
||||
Dim Mail As Microsoft.Office.Interop.Outlook.MailItem
|
||||
Mail = outl.CreateItem(0)
|
||||
|
||||
For Each r As DataGridViewRow In dgvAnhang.SelectedRows
|
||||
Mail.Attachments.Add(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(r.Cells("anh_docId").Value), Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue)
|
||||
Next
|
||||
Mail.Subject = AVISO.ImEx & " / " & AVISO.LKW_Nr & " / " & "ETA: " & If(AVISO.VoraussichtlichesEintreffen IsNot Nothing, CDate(AVISO.VoraussichtlichesEintreffen).ToShortDateString, "") & " // VERAG"
|
||||
Mail.To = "european@atanak.com"
|
||||
|
||||
Dim TextHTML = ""
|
||||
TextHTML &= "Dear Atanak Team,<br>"
|
||||
TextHTML &= "<br>"
|
||||
TextHTML &= "eattached our next " & If(AVISO.ImEx = "", "customs", AVISO.ImEx) & " instruction.<br>"
|
||||
TextHTML &= "<br>"
|
||||
TextHTML &= "<table style=""font-family:Calibri, Arial;font-size:15px;"">"
|
||||
TextHTML &= "<tr><td>ETA:</td><td><b>" & If(AVISO.VoraussichtlichesEintreffen IsNot Nothing, CDate(AVISO.VoraussichtlichesEintreffen).ToShortDateString, "") & "</b></td></tr>"
|
||||
TextHTML &= "<tr><td>Truck:</td><td><b>" & AVISO.LKW_Nr & "</b></td></tr>"
|
||||
TextHTML &= "<tr><td width=""150"">Customs Office: </td><td><b>" & SQL.getValueTxtBySql("SELECT [basncd_name] FROM basncd WHERE basncd_dstnr='" & If(AVISO.Zollstelle, "") & "' ", "ATLAS") & "</b></td></tr>"
|
||||
TextHTML &= "</table>"
|
||||
TextHTML &= "<br>"
|
||||
TextHTML &= "<br>"
|
||||
|
||||
TextHTML &= "Best regards<br>"
|
||||
TextHTML &= "<b>" & VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME & "</b><br>"
|
||||
TextHTML &= "<br>"
|
||||
|
||||
Mail.HTMLBody = "<div style=""font-family:Calibri, Arial;font-size:15px;"">" & TextHTML & SDL.cFakturierung.getSignature("EN",,,, "BREXIT_VERAG") & "</div>"
|
||||
|
||||
Dim answer = MsgBox("Vermerk 'An ATANAK avisiert' eintragen?", vbYesNoCancel)
|
||||
If vbYes = answer Then
|
||||
AvisoStatusFunctions.insertSendungsVermerk(SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID, AvisoId, "An ATANAK avisiert", 43)
|
||||
End If
|
||||
Mail.Display()
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler beim Öffnen der Mail!")
|
||||
End Try
|
||||
End If
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler beim Öffnen der Mail!")
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
|
||||
Reference in New Issue
Block a user