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

MDM. Zugferd, LeistungenFIBUKonten, USTVA, MSE

Browse Source
This commit is contained in:
d.breimaier
2024-12-20 16:02:58 +01:00
parent 8cc73ab9fc
commit ca55452c6c
13 changed files with 330 additions and 394 deletions
Download Patch File Download Diff File Expand all files Collapse all files

43
SDL/USTV/frmMDM_USTVAntrag.vb
View File

@@ -252,6 +252,7 @@ Public Class frmMDM_USTVAntrag
USTV_ANTRAG.UStVAn_Status = cboStatus._value
USTV_ANTRAG.UStVAn_AntragArt = cboAntragArt._value
USTV_ANTRAG.UStVAn_StatusText = rtbStatusText.Text
USTV_ANTRAG.FilialenNr = cbxFiliale._value
If txt3470.Text <> "" AndAlso IsNumeric(txt3470.Text) Then
USTV_ANTRAG.UStVAn_3470 = CDbl(txt3470.Text)
@@ -265,23 +266,10 @@ Public Class frmMDM_USTVAntrag
USTV_ANTRAG.UStVAn_RZBetragVZ = Nothing
End If
If txtBezugsNr.Text <> "" Then
USTV_ANTRAG.UStVAn_BezugsNr = txtBezugsNr
Else
USTV_ANTRAG.UStVAn_BezugsNr = ""
End If
USTV_ANTRAG.UStVAn_BezugsNr = txtBezugsNr.Text
USTV_ANTRAG.AbfertigungsNr = txtAbfNr.Text
If txtAbfNr.Text <> "" Then
USTV_ANTRAG.AbfertigungsNr = txtAbfNr
Else
USTV_ANTRAG.AbfertigungsNr = ""
End If
If txtAbfNr.Text <> "" Then
USTV_ANTRAG.AbfertigungsNr = txtAbfNr
Else
USTV_ANTRAG.AbfertigungsNr = ""
End If
If ADR IsNot Nothing Then
@@ -300,7 +288,6 @@ Public Class frmMDM_USTVAntrag
USTV_ANTRAG.UStVAn_BLZ = FIRMA.Firma_BLZ1
USTV_ANTRAG.UStVAn_KTO = FIRMA.Firma_KTO1
'fallback laut FM-ZOLL
If USTV_ANTRAG.UStVAn_Kontoinhaber Is Nothing Then USTV_ANTRAG.UStVAn_Kontoinhaber = "VERAG 360 GmbH; 4975 Suben"
If USTV_ANTRAG.UStVAn_Bankverbindung Is Nothing Then USTV_ANTRAG.UStVAn_Bankverbindung = "Raiba Suben"
@@ -310,9 +297,9 @@ Public Class frmMDM_USTVAntrag
If USTV_ANTRAG.UStVAn_Erklärung_9_a Is Nothing Then USTV_ANTRAG.UStVAn_Erklärung_9_a = "Warentransport"
If USTV_ANTRAG.UStVAn_Ausstellungsort Is Nothing Then USTV_ANTRAG.UStVAn_Ausstellungsort = "Suben"
If USTV_ANTRAG.UStVAn_Erklärung_9_b_1 Is Nothing Then USTV_ANTRAG.UStVAn_Erklärung_9_b_1 = 0
If USTV_ANTRAG.UStVAn_Erklärung_9_b_2 Is Nothing Then USTV_ANTRAG.UStVAn_Erklärung_9_b_2 = 0
If USTV_ANTRAG.UStVAn_Erklärung_9_b_3 Is Nothing Then USTV_ANTRAG.UStVAn_Erklärung_9_b_3 = 0
If USTV_ANTRAG.UStVAn_Erklärung_9_b_1 Is Nothing Then USTV_ANTRAG.UStVAn_Erklärung_9_b_1 = False
If USTV_ANTRAG.UStVAn_Erklärung_9_b_2 Is Nothing Then USTV_ANTRAG.UStVAn_Erklärung_9_b_2 = False
If USTV_ANTRAG.UStVAn_Erklärung_9_b_3 Is Nothing Then USTV_ANTRAG.UStVAn_Erklärung_9_b_3 = False
End If
@@ -761,14 +748,12 @@ Public Class frmMDM_USTVAntrag
Dim umrechKurs As Double = 1
If (CDbl(r.Item("rmc_betragBrutto")) > 0 AndAlso CDbl(r.Item("rmc_euroBrutto")) > 0) Then
Dim eur As Double = CDbl(r.Item("rmc_euroBrutto"))
Dim frmdw As Double = CDbl(r.Item("rmc_betragBrutto"))
Dim UST_EUR As Double = CDbl(r.Item("rmc_euroBrutto"))
Dim UST_org As Double = CDbl(r.Item("rmc_betragBrutto"))
'umrechKurs = frmdw / eur
umrechKurs = (frmdw / eur * 100 + 0.5) / 100
umrechKurs = Math.Floor((UST_org / UST_EUR * 100 + 0.5)) / 100
End If
@@ -803,8 +788,6 @@ Public Class frmMDM_USTVAntrag
If GET_Antraege Then
Return True
For Each r As DataRow In dt.Rows
Dim kdNr = r.Item("customer_id")
@@ -834,7 +817,8 @@ Public Class frmMDM_USTVAntrag
If (UST_EUR > 0 AndAlso UST_org > 0 AndAlso UST_org <> UST_EUR) Then
'umrechKurs = UST_org / UST_EUR
umrechKurs = (UST_org / UST_EUR * 100 + 0.5) / 100
umrechKurs = Math.Floor((UST_org / UST_EUR * 100 + 0.5)) / 100
End If
@@ -898,7 +882,8 @@ Public Class frmMDM_USTVAntrag
If (UST_org > 0 AndAlso UST_org <> UST_EUR) Then
umrechKurs = (UST_org / UST_EUR * 100 + 0.5) / 100
umrechKurs = Math.Floor((UST_org / UST_EUR * 100 + 0.5)) / 100
End If
@@ -967,7 +952,7 @@ Public Class frmMDM_USTVAntrag
End If
If (UST_org > 0 AndAlso UST_org <> UST_EUR) Then
umrechKurs = (UST_org / UST_EUR * 100 + 0.5) / 100
umrechKurs = Math.Floor((UST_org / UST_EUR * 100 + 0.5)) / 100
End If