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

Zollstopp, Anhänge Atilla, div.

Browse Source
This commit is contained in:
Andreas Luxbauer
2025-01-09 10:49:50 +01:00
parent dc06b1c3d9
commit 9dc0c1fca3
11 changed files with 186 additions and 83 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
Aviso/frmSendungsdetailsNEU.vb
View File

@@ -1505,6 +1505,7 @@ Public Class frmSendungsdetailsNEU
usrcntl_NCTS.txtT1VerzollungsadresseEORI_NL.Text = loadValue(SENDUNG_LIST(CURRENT_INDEX).NCTS_Verzollungsadresse_EORI_NL, "")
usrcntl_NCTS.txtT1VerzollungsadresseAnspr.Text = loadValue(SENDUNG_LIST(CURRENT_INDEX).NCTS_Verzollungsadresse_Ansprechpartner, "")
usrcntl_NCTS.txtT1VerzollungsadresseBestimmungszollstelle.SET_VALUE(loadValue(SENDUNG_LIST(CURRENT_INDEX).NCTS_Bestimmungszollstelle, ""))
usrcntl_NCTS.txtT1VerzollungsadresseATANr.Text = loadValue(SENDUNG_LIST(CURRENT_INDEX).tblSnd_ATANr, "")
usrcntl_NCTS.cbxNCTSAufDispo.Checked = SENDUNG_LIST(CURRENT_INDEX).tblSnd_NCTSaufDISPO
pnlT1.Controls.Add(usrcntl_NCTS)
@@ -1911,6 +1912,7 @@ Public Class frmSendungsdetailsNEU
SENDUNG_LIST(CURRENT_INDEX).NCTS_Verzollungsadresse_EORI_NL = usrcntl_NCTS.txtT1VerzollungsadresseEORI_NL.Text
SENDUNG_LIST(CURRENT_INDEX).NCTS_Verzollungsadresse_Ansprechpartner = usrcntl_NCTS.txtT1VerzollungsadresseAnspr.Text
SENDUNG_LIST(CURRENT_INDEX).NCTS_Bestimmungszollstelle = usrcntl_NCTS.txtT1VerzollungsadresseBestimmungszollstelle._value
SENDUNG_LIST(CURRENT_INDEX).tblSnd_ATANr = usrcntl_NCTS.txtT1VerzollungsadresseATANr.Text
SENDUNG_LIST(CURRENT_INDEX).NCTS_ngaId = If(usrcntl_NCTS.NCTS_GA IsNot Nothing, usrcntl_NCTS.NCTS_GA.nga_id, Nothing)
SENDUNG_LIST(CURRENT_INDEX).tblSnd_NCTSaufDISPO = usrcntl_NCTS.cbxNCTSAufDispo.Checked
End If
@@ -5985,11 +5987,12 @@ Public Class frmSendungsdetailsNEU
Dim f = New frmFrachtkostenBerechnen()
f.UsrcntlFrachtkostenberechnung1.init(AvisoId, txtAbsenderKdNr._value, txtEmpfaengerKdNr._value, txtGewicht.Text, txtFrachtkostenGesamt.Text, rtbWarenbezeichnung.Text, txtWarenwert._value)
If f.ShowDialog = DialogResult.OK Then
txtFrachtkostenEU._value = f.UsrcntlFrachtkostenberechnung1.EUAnteil.ToString("N2")
txtFrachtkostenNichtEU._value = f.UsrcntlFrachtkostenberechnung1.nichtEUAnteil.ToString("N2")
txtFrachtkostenGesamt._value = (f.UsrcntlFrachtkostenberechnung1.EUAnteil + f.UsrcntlFrachtkostenberechnung1.nichtEUAnteil).ToString("N2")
End If
End Sub
Private Sub btn_FrachtkostenBerechnen_Click(sender As Object, e As EventArgs) Handles btn_FrachtkostenBerechnen.Click