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

dakosy, etc.

Browse Source
This commit is contained in:
d.breimaier
2026-06-10 08:16:40 +02:00
parent 14fd7c2f69
commit 67965acfea
8 changed files with 245 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
DAKOSY_Worker/cDakosyFunftions.vb
View File

@@ -76,7 +76,7 @@ Public Class cDakosyFunftions
Case "SUB" : Return "SUB"
Case "SBG" : Return "SBG"
Case "NKD" : Return "NKD"
Case "NEU" : Return "NEU"
Case "NEU" : Return "SUB" 'Return "NEU"
Case "WAI" : Return "WAI"
Case Else : Return "SUB"
End Select

4
DAKOSY_Worker/cZollsysteme_Aktenbeschriftung.vb
View File

@@ -548,9 +548,9 @@ Public Class cZollsysteme_Aktenbeschriftung
ANZ_POS = EZA.eza_WARENPOS.Count
For Each A In EZA.eza_AUFSCHUB
If If(A.ezaAfb_AbgabeArt, "") = "B0000" Then
ABGABEN_EUST += CDbl(A.ezaAfb_Abgabenbetrag)
ABGABEN_EUST += IIf((A.ezaAfb_PositionsNummer) Is Nothing, CDbl(A.ezaAfb_Abgabenbetrag), 0)
Else
ABGABEN_ZOLL += CDbl(A.ezaAfb_Abgabenbetrag)
ABGABEN_ZOLL += IIf((A.ezaAfb_PositionsNummer) Is Nothing, CDbl(A.ezaAfb_Abgabenbetrag), 0)
End If
Next