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_Colli As Integer = 0
Property num_Gewicht As Double = 0 Property num_Gewicht As Double = 0
Property Rechnungspreis As String Property Rechnungspreis As String
Property RechnungspreisohneWahrung As String
Property Warenbezeichung As String Property Warenbezeichung As String
Property AbgabenKonto As String Property AbgabenKonto As String
Property Garantie As String Property Garantie As String
@@ -289,11 +290,13 @@ Public Class cZollsysteme_Aktenbeschriftung
' End If ' End If
'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") & "'") ' 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("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") 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("TermDelCd")) Then Incoterms = DTzsAnmValData.Rows(0).Item("TermDelCd")
If Not IsNull(DTzsAnmValData.Rows(0).Item("TransacCd")) Then Geschaeftsart = DTzsAnmValData.Rows(0).Item("TransacCd") If Not IsNull(DTzsAnmValData.Rows(0).Item("TransacCd")) Then Geschaeftsart = DTzsAnmValData.Rows(0).Item("TransacCd")
End If End If
@@ -483,7 +486,9 @@ Public Class cZollsysteme_Aktenbeschriftung
'Me.Rechnungspreis &= " " & If(EZA.eza_Rechnungswaehrung, "") 'Me.Rechnungspreis &= " " & If(EZA.eza_Rechnungswaehrung, "")
ATCMRN = If(EZA.eza_ANR, "") 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 Absender As String
'Property Empfaenger As String 'Property Empfaenger As String
'Property Anmelder As String 'Property Anmelder As String
@@ -677,6 +682,9 @@ Public Class cZollsysteme_Aktenbeschriftung
End If End If
num_Colli = Colli num_Colli = Colli
Me.Colli = Colli & " Pk." Me.Colli = Colli & " Pk."
'Me.Rechnungspreis = Warenwert.ToString("N2") & " " & WarenwertWaehrung
Me.RechnungspreisohneWahrung = Warenwert.ToString("N2")
Me.Rechnungspreis = Warenwert.ToString("N2") & " " & WarenwertWaehrung 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") 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, "") ' Me.Rechnungspreis &= " " & If(NCTS.NCTS_Rechnungswaehrung, "")
'Property Absender As String 'Property Absender As String
'Property Empfaenger As String 'Property Empfaenger As String
@@ -801,8 +811,10 @@ Public Class cZollsysteme_Aktenbeschriftung
End If End If
num_Colli = Colli num_Colli = Colli
Me.Colli = Colli & " Pk." 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 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 Empfaenger = (If(NCTS.ncts_Consignee_IdentificationNumber, "") & " " & If(NCTS.ncts_Consignee_Name, "") & " " & If(NCTS.ncts_Consignee_Country, "") & " " & If(NCTS.ncts_Consignee_City, "")).ToString.Trim