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

Aktenbeschriftung Rechnungspreis Währung

Browse Source
This commit is contained in:
Andreas Luxbauer
2025-08-08 12:12:33 +02:00
parent 423462b21f
commit e7726250a1
1 changed files with 16 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
DAKOSY_Worker/cZollsysteme_Aktenbeschriftung.vb
View File

@@ -10,6 +10,7 @@ Public Class cZollsysteme_Aktenbeschriftung
Property num_Colli As Integer = 0
Property num_Gewicht As Double = 0
Property Rechnungspreis As String
Property RechnungspreisohneWahrung As String
Property Warenbezeichung As String
Property AbgabenKonto As String
Property Garantie As String
@@ -289,11 +290,13 @@ Public Class cZollsysteme_Aktenbeschriftung
' End If
'End If
' fNEF.cbxWaehrung._value = DTzsAnmValData.Rows(0).Item("InvCurr") ' = DLookup("[Währungsschlüssel]", "Währungstabelle", "[Währungscode] = '" & DTzsAnmValData.Rows(0).Item("InvCurr") & "'")
If Not IsNull(DTzsAnmValData.Rows(0).Item("InvVal")) Then Rechnungspreis = CDbl(DTzsAnmValData.Rows(0).Item("InvVal"))
If Not IsNull(DTzsAnmValData.Rows(0).Item("InvCurr")) Then Waehrungscode = DTzsAnmValData.Rows(0).Item("InvCurr")
If Not IsNull(DTzsAnmValData.Rows(0).Item("InvVal")) Then Rechnungspreis = CDbl(DTzsAnmValData.Rows(0).Item("InvVal")) : RechnungspreisohneWahrung = CDbl(DTzsAnmValData.Rows(0).Item("InvVal"))
If Not IsNull(DTzsAnmValData.Rows(0).Item("InvCurr")) Then Waehrungscode = DTzsAnmValData.Rows(0).Item("InvCurr") : Rechnungspreis &= " " & Waehrungscode
If Not IsNull(DTzsAnmValData.Rows(0).Item("TermDelCd")) Then Incoterms = DTzsAnmValData.Rows(0).Item("TermDelCd")
If Not IsNull(DTzsAnmValData.Rows(0).Item("TransacCd")) Then Geschaeftsart = DTzsAnmValData.Rows(0).Item("TransacCd")
End If
@@ -483,7 +486,9 @@ Public Class cZollsysteme_Aktenbeschriftung
'Me.Rechnungspreis &= " " & If(EZA.eza_Rechnungswaehrung, "")
ATCMRN = If(EZA.eza_ANR, "")
' Me.Rechnungspreis &= " " & If(EZA.eza_Rechnungswaehrung, "")
Me.RechnungspreisohneWahrung =Me.Rechnungspreis
Me.Rechnungspreis &= " " & If(EZA.eza_Rechnungswaehrung, "")
'Property Absender As String
'Property Empfaenger As String
'Property Anmelder As String
@@ -677,6 +682,9 @@ Public Class cZollsysteme_Aktenbeschriftung
End If
num_Colli = Colli
Me.Colli = Colli & " Pk."
'Me.Rechnungspreis = Warenwert.ToString("N2") & " " & WarenwertWaehrung
Me.RechnungspreisohneWahrung = Warenwert.ToString("N2")
Me.Rechnungspreis = Warenwert.ToString("N2") & " " & WarenwertWaehrung
@@ -750,6 +758,8 @@ Public Class cZollsysteme_Aktenbeschriftung
'
If IsNumeric(If(NCTS.ncts_GrossMass, "")) Then Me.Gewicht = CDbl(NCTS.ncts_GrossMass).ToString("N1") & " kg" : num_Gewicht = CDbl(NCTS.ncts_GrossMass).ToString("N1")
' Me.Rechnungspreis &= " " & If(NCTS.NCTS_Rechnungswaehrung, "")
'Property Absender As String
'Property Empfaenger As String
@@ -801,8 +811,10 @@ Public Class cZollsysteme_Aktenbeschriftung
End If
num_Colli = Colli
Me.Colli = Colli & " Pk."
Me.Rechnungspreis = Warenwert.ToString("N2") & " " & WarenwertWaehrung
'Me.Rechnungspreis = Warenwert.ToString("N2") & " " & WarenwertWaehrung
Me.RechnungspreisohneWahrung = Warenwert.ToString("N2")
Me.Rechnungspreis = Warenwert.ToString("N2") & " " & WarenwertWaehrung
Absender = (If(NCTS.ncts_Consignor_IdentificationNumber, "") & " " & If(NCTS.ncts_Consignor_Name, "") & " " & If(NCTS.ncts_Consignor_Country, "") & " " & If(NCTS.ncts_Consignor_City, "")).ToString.Trim
Empfaenger = (If(NCTS.ncts_Consignee_IdentificationNumber, "") & " " & If(NCTS.ncts_Consignee_Name, "") & " " & If(NCTS.ncts_Consignee_Country, "") & " " & If(NCTS.ncts_Consignee_City, "")).ToString.Trim