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

div. Änderungen, Verson

Browse Source
This commit is contained in:
d.breimaier
2026-04-02 17:16:42 +02:00
parent 8a6ba55721
commit f5f6b61365
5 changed files with 84 additions and 58 deletions
Download Patch File Download Diff File Expand all files Collapse all files

31
Aviso/frmSendungsdetailsNEU.vb
View File

@@ -1677,6 +1677,9 @@ Public Class frmSendungsdetailsNEU
' End Sub
' txtT1Verzollungsadresse.Text = ""
btnWWberechnen.Visible = False
Select Case SENDUNG_LIST(CURRENT_INDEX).tblSnd_Abfertigungsart_ID
Case 5, 6, 18, 32, 24, 33, 34, 37, 40, 42
If (SENDUNG_LIST(CURRENT_INDEX).NCTS_ngaId IsNot Nothing) Then
@@ -7944,7 +7947,7 @@ Public Class frmSendungsdetailsNEU
Dim vorpT1 = usrcntl_ATB.txtATBT1.Text
Try
If SENDUNG_LIST(CURRENT_INDEX).tblSnd_WarenwertWaehrung = "" Then
If SENDUNG_LIST(CURRENT_INDEX).tblSnd_WarenwertWaehrung = "" Then 'GESTELLUNG
txtWarenwertWaehrung.SET_VALUE("EUR")
SAVE_ME()
End If
@@ -7956,24 +7959,26 @@ Public Class frmSendungsdetailsNEU
End If
If SENDUNG_LIST(CURRENT_INDEX).tblSnd_WarenwertWaehrung <> "EUR" Then
MsgBox("Warenwert darf nur in EUR angegeben werden")
MsgBox("Warenwert der Gestellung darf nur in EUR angegeben werden")
Exit Sub
End If
For Each s As cSendungen In SENDUNG_LIST
'nur Betrag EUR
If s.tblSnd_Vorpapier = vorpT1 Then
If s.tblSnd_WarenwertWaehrung = "EUR" AndAlso s.FilialenNr = SENDUNG_LIST(CURRENT_INDEX).FilialenNr Then
If Not s.tblSnd_Abfertigungsart_ID = 44 Then calcWarenwerte += s.tblSnd_Warenwert
Else
MsgBox("Bei Sendung " & s.AbfertigungsNr & " ist der Warenwert nicht in EUR angegeben!")
Exit Sub
End If
If s.tblSnd_Vorpapier = vorpT1 AndAlso Not s.tblSnd_Abfertigungsart_ID = 44 Then
If s.tblSnd_WarenwertWaehrung = "EUR" Then
calcWarenwerte += s.tblSnd_Warenwert
ElseIf s.tblSnd_WarenwertWaehrung <> "" Then
Dim kurs As New cFremdwaehrungskurse(s.tblSnd_WarenwertWaehrung)
If kurs.hasEntry Then
calcWarenwerte += Math.Round(kurs.EXCHANGE_CURTOEUR(s.tblSnd_Warenwert, s.tblSnd_WarenwertWaehrung, CDate(Today)), 2)
Else
MsgBox("Es kann keine Umrechnungskurs zum heutigen Datum für " & s.tblSnd_WarenwertWaehrung & " ermittelt werden!")
End If
End If
End If
Next
If txtWarenwert.Text = "" OrElse txtWarenwert.Text = "0,00" Then
@@ -7984,7 +7989,7 @@ Public Class frmSendungsdetailsNEU
If IsNumeric(SENDUNG_LIST(CURRENT_INDEX).tblSnd_Warenwert) AndAlso SENDUNG_LIST(CURRENT_INDEX).tblSnd_Warenwert <> 0 AndAlso Math.Round(calcWarenwerte, 2) <> Math.Round(SENDUNG_LIST(CURRENT_INDEX).tblSnd_Warenwert, 2) Then
MsgBox("Warenwert für Gestellung stimmt nicht überein!" & vbNewLine & "Berechnerter Warenwert: " & Math.Round(calcWarenwerte, 2) & vbNewLine & "Eingetragener Warenwert: " & Math.Round(SENDUNG_LIST(CURRENT_INDEX).tblSnd_Warenwert, 2), MsgBoxStyle.Critical)
MsgBox("Warenwert für Gestellung stimmt nicht überein!" & vbNewLine & "Berechneter Warenwert: " & Math.Round(calcWarenwerte, 2) & vbNewLine & "Eingetragener Warenwert: " & Math.Round(SENDUNG_LIST(CURRENT_INDEX).tblSnd_Warenwert, 2), MsgBoxStyle.Critical)
Else