feature_Frachtkostenberechnung
This commit is contained in:
@@ -6,6 +6,7 @@ Imports System.Management
|
||||
Imports System.Data.SqlClient
|
||||
Imports iTextSharp.text.pdf
|
||||
Imports Microsoft.Office.Interop
|
||||
Imports DocumentFormat.OpenXml.Presentation
|
||||
|
||||
Public Class frmSendungsdetailsNEU
|
||||
Public AvisoId As Integer
|
||||
@@ -295,7 +296,7 @@ Public Class frmSendungsdetailsNEU
|
||||
|
||||
End If
|
||||
|
||||
|
||||
|
||||
End If
|
||||
|
||||
initVorpapiere()
|
||||
@@ -900,7 +901,8 @@ Public Class frmSendungsdetailsNEU
|
||||
b_add.Size = New Size(30, 30)
|
||||
b_add.Margin = New Padding(2, 22, 0, 0)
|
||||
b_add.Text = "+"
|
||||
b_add.Font = New Font(b_add.Font.FontFamily, 14, FontStyle.Bold)
|
||||
'b_add.Font = New Font()
|
||||
'b_add.Font.FontFamily, 14, FontStyle.Bold)
|
||||
b_add.BackColor = Color.LightGray()
|
||||
AddHandler b_add.Click, Sub(send As Object, ev As EventArgs)
|
||||
If AVISO.Abgeschlossen Then Exit Sub
|
||||
@@ -2916,12 +2918,12 @@ Public Class frmSendungsdetailsNEU
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
|
||||
txtAnzahlPos.Visible = (cboFiliale._value = "7001")
|
||||
txtAnzahlPos.Visible = (cboFiliale._value = "7001")
|
||||
Label4.Visible = (cboFiliale._value = "7001")
|
||||
|
||||
Dim tmp = cboAbfertigungsart._value
|
||||
@@ -3977,20 +3979,20 @@ Public Class frmSendungsdetailsNEU
|
||||
Dim TextHTML = ""
|
||||
TextHTML &= "Sehr geehrte Damen und Herren,<br>"
|
||||
TextHTML &= "<br>"
|
||||
TextHTML &= "beiliegend senden wir Ihnen die Sendungsunterlagen für den o.g. LKW/Container. Wir bitten um Zusendung der ATA-Nummer.<br>"
|
||||
TextHTML &= "<br>"
|
||||
TextHTML &= "beiliegend senden wir Ihnen die Sendungsunterlagen für den o.g. LKW/Container. Wir bitten um Zusendung der ATA-Nummer.<br>"
|
||||
TextHTML &= "<br>"
|
||||
|
||||
TextHTML &= "Mit freundlichen Grüßen<br>"
|
||||
TextHTML &= VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME & "<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.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)
|
||||
AvisoStatusFunctions.insertSendungsVermerk(SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID, AvisoId, "ATA-Nr fehlt (Fremdanmeldung) - angefordert", 33)
|
||||
|
||||
End If
|
||||
End If
|
||||
|
||||
Mail.Display()
|
||||
Mail.Display()
|
||||
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,, "Fehler beim Öffnen der Mail!")
|
||||
@@ -4087,7 +4089,7 @@ Public Class frmSendungsdetailsNEU
|
||||
DirectCast(pnlKundenInfo.Controls(0), SDL.usrCntlKundenuebersicht).Visible = True
|
||||
End If
|
||||
Else
|
||||
If pnlKundenInfo.Controls.Count > 0 Then
|
||||
If pnlKundenInfo.Controls.Count > 0 Then
|
||||
DirectCast(pnlKundenInfo.Controls(0), SDL.usrCntlKundenuebersicht).Visible = False
|
||||
End If
|
||||
End If
|
||||
@@ -4718,7 +4720,7 @@ Public Class frmSendungsdetailsNEU
|
||||
Dim AD As New VERAG_PROG_ALLGEMEIN.cAdressen(SENDUNG_LIST(CURRENT_INDEX).tblSnd_AbsenderKdNr)
|
||||
If AD IsNot Nothing Then
|
||||
Blatt.Range("E13").Value = AD.Name_1
|
||||
Blatt.Range("E14").Value = (If(AD.LandKz, "") & " " & If(AD.PLZ, "") & " " & If(AD.Ort, "") & " " & If(AD.Straße, "")).trim
|
||||
Blatt.Range("E14").Value = (If(AD.LandKz, "") & " " & If(AD.PLZ, "") & " " & If(AD.Ort, "") & " " & If(AD.Straße, "")).Trim
|
||||
End If
|
||||
Blatt.Range("E13").Value = SENDUNG_LIST(CURRENT_INDEX).tblSnd_Frachtfuehrer
|
||||
Else
|
||||
@@ -5365,41 +5367,19 @@ Public Class frmSendungsdetailsNEU
|
||||
Me.Cursor = Cursors.Default
|
||||
End Sub
|
||||
|
||||
Private Sub Button17_Click_2(sender As Object, e As EventArgs) Handles Button17.Click
|
||||
Dim f As New SDL.frmCMR
|
||||
Sub calculateFreightCosts()
|
||||
|
||||
f.btnCMRtoAkt.Visible = True
|
||||
f.txtCMRName.Visible = True
|
||||
Dim frachkosten = New frmFrachtkostenBerechnen(txtAbsenderKdNr._value, txtEmpfaengerKdNr._value, txtGewicht.Text)
|
||||
|
||||
|
||||
If txtAbsender.KdData_ADRESSEN IsNot Nothing Then f.uCmr.txtAbsender.Text = txtAbsender.KdData_ADRESSEN.getAdressFromatted()
|
||||
If txtFrachtfuehrer.KdData_ADRESSEN IsNot Nothing Then f.uCmr.txtFrachtführer.Text = txtFrachtfuehrer.KdData_ADRESSEN.getAdressFromatted()
|
||||
If txtEmpfaenger.KdData_ADRESSEN IsNot Nothing Then f.uCmr.txtEmpfänger.Text = txtEmpfaenger.KdData_ADRESSEN.getAdressFromatted()
|
||||
|
||||
f.uCmr.dgvLadungenKurz.Rows.Add(If(SENDUNG_LIST(CURRENT_INDEX).tblSnd_Colli, ""), "Pk", If(SENDUNG_LIST(CURRENT_INDEX).tblSnd_Warenbezeichnung, If(SENDUNG_LIST(CURRENT_INDEX).tblSnd_Gewicht, "")))
|
||||
|
||||
f.uCmr.txtKfz.Text = AVISO.LKW_Nr
|
||||
f.uCmr.txtAnhänger.Text = AVISO.LKW_Nr
|
||||
|
||||
If f.ShowDialog(Me) Then
|
||||
|
||||
Dim da_id = -1
|
||||
Dim anhId = -1
|
||||
Dim destPath = ""
|
||||
|
||||
Dim Typ = ""
|
||||
|
||||
If f.PDF_Path <> "" Then
|
||||
Dim CMRName = If(f.txtCMRName.Text <> "", f.txtCMRName.Text, "CMR")
|
||||
frmSendungAnhangImport.saveToDS(AvisoId, CMRName, f.PDF_Path, "CMR", "PDF", da_id, anhId, destPath, SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID)
|
||||
initAnhang()
|
||||
|
||||
End If
|
||||
If frachkosten.ShowDialog() = DialogResult.OK Then
|
||||
' TODO -> Rückgabewert von Frachkostenberechnung
|
||||
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub Button18_Click_1(sender As Object, e As EventArgs) Handles Button18.Click
|
||||
MsgBox("Funktion noch nicht verfügbar!")
|
||||
calculateFreightCosts()
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
Reference in New Issue
Block a user