Kundendatenblatt, ustva, IDS, UTA, MSE
This commit is contained in:
@@ -1,15 +1,23 @@
|
||||
|
||||
Imports System.Reflection
|
||||
Imports DocumentFormat.OpenXml.Office2010.Drawing.Charts
|
||||
Imports java.text.Normalizer
|
||||
Imports jdk.nashorn.internal.objects.annotations
|
||||
'Imports DocumentFormat.OpenXml.Drawing.Charts
|
||||
Imports Microsoft.Office.Interop
|
||||
Imports org.BouncyCastle.Pqc.Crypto
|
||||
Imports VERAG_PROG_ALLGEMEIN
|
||||
|
||||
Public Class frmMDM_USTVAntrag
|
||||
|
||||
Dim UStVAn_ID As Integer
|
||||
Dim KundenNr As Integer
|
||||
Dim USTV_ANTRAG As VERAG_PROG_ALLGEMEIN.cUSTVAntrag = Nothing
|
||||
Dim Antrag_LandKz As String = ""
|
||||
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
|
||||
Dim von, bis As Date
|
||||
|
||||
Sub New(UStVAn_ID)
|
||||
|
||||
' Dieser Aufruf ist für den Designer erforderlich.
|
||||
@@ -20,6 +28,19 @@ Public Class frmMDM_USTVAntrag
|
||||
|
||||
End Sub
|
||||
|
||||
Sub New(Antrag_KundenNr As Integer, Antrag_LandKz As String, von As Date, bis As Date)
|
||||
|
||||
' Dieser Aufruf ist für den Designer erforderlich.
|
||||
InitializeComponent()
|
||||
|
||||
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
|
||||
Me.KundenNr = Antrag_KundenNr
|
||||
Me.Antrag_LandKz = Antrag_LandKz
|
||||
Me.von = von
|
||||
Me.bis = bis
|
||||
|
||||
End Sub
|
||||
|
||||
Sub init(Optional Lieferant As String = "")
|
||||
pnlFilter.AutoScroll = False
|
||||
|
||||
@@ -27,6 +48,17 @@ Public Class frmMDM_USTVAntrag
|
||||
lblGesamtErstattung.Text = "-"
|
||||
lblDiffernezbetrag.Text = "-"
|
||||
|
||||
btnAntrageeinarbeiten.Enabled = Not UStVAn_ID <= 0
|
||||
FlowLayoutPanel.Enabled = Not UStVAn_ID <= 0
|
||||
btnEintragloeschen.Enabled = Not UStVAn_ID <= 0
|
||||
btnNeuerEintrag.Enabled = Not UStVAn_ID <= 0
|
||||
UstCntlUSTV_AntragPosition1.Enabled = Not UStVAn_ID <= 0
|
||||
|
||||
cbxLand.Visible = UStVAn_ID <= 0
|
||||
|
||||
|
||||
|
||||
|
||||
With dgvUSTVPositionen
|
||||
.ClearSelection()
|
||||
|
||||
@@ -171,6 +203,18 @@ Public Class frmMDM_USTVAntrag
|
||||
End If
|
||||
|
||||
|
||||
If UStVAn_ID > 0 Then
|
||||
KdSearchBox1.Visible = False
|
||||
USTV_ANTRAG = New VERAG_PROG_ALLGEMEIN.cUSTVAntrag(UStVAn_ID)
|
||||
Antrag_LandKz = SQL.DLookup("LandKz", "[Länderverzeichnis für die Außenhandelsstatistik]", "Landnr='" & USTV_ANTRAG.UStVAn_LandNr & "'", "FMZOLL")
|
||||
setValue(USTV_ANTRAG)
|
||||
End If
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
Sub setValue(USTV_ANTRAG As VERAG_PROG_ALLGEMEIN.cUSTVAntrag)
|
||||
@@ -189,7 +233,7 @@ Public Class frmMDM_USTVAntrag
|
||||
|
||||
End Sub
|
||||
|
||||
Sub getValue(ByRef USTV_ANTRAG As VERAG_PROG_ALLGEMEIN.cUSTVAntrag)
|
||||
Sub getValue(ByRef USTV_ANTRAG As VERAG_PROG_ALLGEMEIN.cUSTVAntrag, Optional ADR As cAdressen = Nothing, Optional FIRMA As cFirmen = Nothing)
|
||||
|
||||
If Me_Validate() Then
|
||||
'lblFirma.Text = USTV_ANTRAG.UStVAn_Name
|
||||
@@ -209,7 +253,41 @@ Public Class frmMDM_USTVAntrag
|
||||
USTV_ANTRAG.UStVAn_3470 = Nothing
|
||||
End If
|
||||
|
||||
If ADR IsNot Nothing Then
|
||||
USTV_ANTRAG.UStVAn_KuNr = ADR.AdressenNr
|
||||
USTV_ANTRAG.UStVAn_Name = ADR.Name_1
|
||||
USTV_ANTRAG.UStVAn_Straße = ADR.Straße
|
||||
USTV_ANTRAG.UStVAn_LandKz = ADR.LandKz
|
||||
USTV_ANTRAG.UStVAn_Ort = ADR.Ort
|
||||
USTV_ANTRAG.UStVAn_Steuernummer = ADR.Steuernummer
|
||||
End If
|
||||
|
||||
|
||||
If FIRMA IsNot Nothing Then
|
||||
USTV_ANTRAG.UStVAn_Kontoinhaber = FIRMA.Firma_Bez & "; " & FIRMA.Firma_Straße & ";" & FIRMA.Firma_Ort
|
||||
USTV_ANTRAG.UStVAn_Bankverbindung = FIRMA.Firma_Bankverbindung1
|
||||
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"
|
||||
If USTV_ANTRAG.UStVAn_KTO Is Nothing Then USTV_ANTRAG.UStVAn_KTO = "4210225"
|
||||
If USTV_ANTRAG.UStVAn_BLZ Is Nothing Then USTV_ANTRAG.UStVAn_BLZ = "34620"
|
||||
If USTV_ANTRAG.UStVAn_Gewerbe Is Nothing Then USTV_ANTRAG.UStVAn_Gewerbe = "Transportunternehmer"
|
||||
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
|
||||
|
||||
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
End Sub
|
||||
Function Me_Validate() As Boolean
|
||||
If Not IsDate(txtVon._value) Then MsgBox("Datumsformat: Von") : Return False
|
||||
@@ -254,13 +332,72 @@ Public Class frmMDM_USTVAntrag
|
||||
lbl_EintrageVerarbetiet.Text = ""
|
||||
|
||||
If UStVAn_ID > 0 Then
|
||||
KdSearchBox1.Visible = False
|
||||
USTV_ANTRAG = New VERAG_PROG_ALLGEMEIN.cUSTVAntrag(UStVAn_ID)
|
||||
Antrag_LandKz = SQL.DLookup("LandKz", "[Länderverzeichnis für die Außenhandelsstatistik]", "Landnr='" & USTV_ANTRAG.UStVAn_LandNr & "'", "FMZOLL")
|
||||
setValue(USTV_ANTRAG)
|
||||
|
||||
Else
|
||||
Dim sqlWhere As String = ""
|
||||
'neuer USTVA-Antrag
|
||||
KdSearchBox1.Visible = True
|
||||
|
||||
|
||||
|
||||
KdSearchBox1.initKdBox(Me)
|
||||
AddHandler KdSearchBox1.PropertyChanged, Sub()
|
||||
Try
|
||||
|
||||
|
||||
lblKdNr.Text = KdSearchBox1.KdNr
|
||||
KundenNr = KdSearchBox1.KdNr
|
||||
|
||||
|
||||
Dim ADR As New cAdressen(KdSearchBox1.KdNr)
|
||||
lblFirma.Text = ADR.Name_1
|
||||
|
||||
|
||||
cbxLand.DataSource = SQL.loadCboBySqlWithListItem("SELECT [Länderverzeichnis für die Außenhandelsstatistik].LandNr, [Länderverzeichnis für die Außenhandelsstatistik].LandKz
|
||||
FROM [Länderverzeichnis für die Außenhandelsstatistik] INNER JOIN tblSteuernummern On [Länderverzeichnis für die Außenhandelsstatistik].LandNr = tblSteuernummern.LandNr
|
||||
WHERE[Länderverzeichnis für die Außenhandelsstatistik].Umsatzsteuervergütungsverfahren = 1 And (tblSteuernummern.AdressenNr)=" & KdSearchBox1.KdNr & " And tblSteuernummern.UStV = 1
|
||||
group by [Länderverzeichnis für die Außenhandelsstatistik].LandKz,[Länderverzeichnis für die Außenhandelsstatistik].LandNr
|
||||
order by [Länderverzeichnis für die Außenhandelsstatistik].LandKz,[Länderverzeichnis für die Außenhandelsstatistik].LandNr", False, "FMZOLL")
|
||||
|
||||
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
If KundenNr > 0 Then
|
||||
KdSearchBox1.KdNr = KundenNr
|
||||
sqlWhere = "And tblSteuernummern.AdressenNr=" & KundenNr
|
||||
End If
|
||||
|
||||
cbxLand.Visible = True
|
||||
cbxLand.DataSource = SQL.loadCboBySqlWithListItem("SELECT [Länderverzeichnis für die Außenhandelsstatistik].LandNr, [Länderverzeichnis für die Außenhandelsstatistik].LandKz
|
||||
FROM [Länderverzeichnis für die Außenhandelsstatistik] INNER JOIN tblSteuernummern On [Länderverzeichnis für die Außenhandelsstatistik].LandNr = tblSteuernummern.LandNr
|
||||
WHERE[Länderverzeichnis für die Außenhandelsstatistik].Umsatzsteuervergütungsverfahren = 1 And tblSteuernummern.UStV = 1 " & sqlWhere &
|
||||
"group by [Länderverzeichnis für die Außenhandelsstatistik].LandKz,[Länderverzeichnis für die Außenhandelsstatistik].LandNr
|
||||
order by [Länderverzeichnis für die Außenhandelsstatistik].LandKz,[Länderverzeichnis für die Außenhandelsstatistik].LandNr", False, "FMZOLL")
|
||||
|
||||
cbxLand.changeItem(Antrag_LandKz)
|
||||
'lblKdNr.Text = KdSearchBox1.KdNr
|
||||
'lblFirma.Text = IIf(KdSearchBox1.KdName Is Nothing, "", KdSearchBox1.KdName)
|
||||
|
||||
txtVon._value = von
|
||||
txtBis._value = bis
|
||||
|
||||
If Antrag_LandKz <> cbxLand.SelectedValue.ToString Then
|
||||
lblWarnung.Text = "keine StNr für " & Antrag_LandKz
|
||||
Else
|
||||
lblWarnung.Text = ""
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
|
||||
If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MDM_USTVA_bearbeiten", Me.FindForm) Then
|
||||
If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MDM_USTVA_bearbeiten", Me.FindForm) Then
|
||||
btnAntrageeinarbeiten.Enabled = False
|
||||
FlowLayoutPanel.Enabled = False
|
||||
btnEintragloeschen.Enabled = False
|
||||
@@ -269,8 +406,6 @@ Public Class frmMDM_USTVAntrag
|
||||
|
||||
End If
|
||||
|
||||
|
||||
|
||||
init()
|
||||
|
||||
End Sub
|
||||
@@ -285,12 +420,15 @@ Public Class frmMDM_USTVAntrag
|
||||
AddHandler plose.Click, AddressOf mnuItemAuftrauege_Clicked
|
||||
End If
|
||||
|
||||
If Not ContextMenuStrip2.Items.ContainsKey("ploseneu") Then
|
||||
Dim plose = New ToolStripMenuItem() With {.Text = "Plose NEUE LOGIK", .Name = "ploseneu", .Font = New Font(Me.Font.FontFamily, Me.Font.Size)}
|
||||
ContextMenuStrip2.Items.Add(plose)
|
||||
AddHandler plose.Click, AddressOf mnuItemAuftrauege_Clicked
|
||||
If False Then 'wenn INFO von PLOSE WÄHRUNGSCODE IN INV_DATA, dann freischalten
|
||||
If Not ContextMenuStrip2.Items.ContainsKey("ploseneu") Then
|
||||
Dim plose = New ToolStripMenuItem() With {.Text = "Plose NEUE LOGIK", .Name = "ploseneu", .Font = New Font(Me.Font.FontFamily, Me.Font.Size)}
|
||||
ContextMenuStrip2.Items.Add(plose)
|
||||
AddHandler plose.Click, AddressOf mnuItemAuftrauege_Clicked
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
If Not ContextMenuStrip2.Items.ContainsKey("rmc") Then
|
||||
Dim rmc = New ToolStripMenuItem() With {.Text = "RMC", .Name = "rmc", .Font = New Font(Me.Font.FontFamily, Me.Font.Size)}
|
||||
AddHandler rmc.Click, AddressOf mnuItemAuftrauege_Clicked
|
||||
@@ -349,7 +487,6 @@ Public Class frmMDM_USTVAntrag
|
||||
ElseIf item.Name = "ids" Then
|
||||
loadUSTVFrom_IDS(UStVAn_ID, Antrag_LandKz, cbxArchivierteEintracheNochmalsEinarbetien.Checked)
|
||||
init()
|
||||
|
||||
ElseIf item.Name = "verag" Then
|
||||
loadUSTVFrom_VERAG(UStVAn_ID, Antrag_LandKz, cbxArchivierteEintracheNochmalsEinarbetien.Checked)
|
||||
init()
|
||||
@@ -412,18 +549,23 @@ Public Class frmMDM_USTVAntrag
|
||||
USTV_POS.UStVPo_Schnittstelle = True
|
||||
USTV_POS.UStVPo_Leistungsbezeichnung = "Maut"
|
||||
USTV_POS.UStVPo_Leistender = ANTRAG.plose_Lieferant
|
||||
If ANTRAG.plose_Lieferant = "PLOSE Then Sistem Service" Then
|
||||
If ANTRAG.plose_Lieferant = "PLOSE Sistem Service" Then
|
||||
USTV_POS.UStVPo_Leistender = USTV_POS.UStVPo_Leistender.ToString.Replace("", "PLOSE Sistem Service")
|
||||
End If
|
||||
|
||||
USTV_POS.UStVPo_Sachbearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
|
||||
USTV_POS.UStVPo_Zeitstempel = Now()
|
||||
' Berechnungen
|
||||
USTV_POS.UStVPo_USteuerbetragEUR = ANTRAG.plose_MWSTBetragWaehrungAbbuchung 'VERAG_PROG_ALLGEMEIN.cProgramFunctions.fktEuro(ANTRAG.plose_MWSTBetragWaehrungAbbuchung, USTV_ANTRAG.UStVAn_Währungscode, "EUR")
|
||||
'USTV_POS.UStVPo_Umrechnungskurs = VERAG_PROG_ALLGEMEIN.cProgramFunctions.fktEuroKurs(ANTRAG.plose_WaehrungAbbuchung, ANTRAG.plose_RechnungsDatum)
|
||||
USTV_POS.UStVPo_Umrechnungskurs = ANTRAG.plose_MWSTBetrag / ANTRAG.plose_MWSTBetragWaehrungAbbuchung
|
||||
USTV_POS.UStVPo_USteuerbetrag = ANTRAG.plose_MWSTBetrag
|
||||
' MsgBox(ANTRAG.plose_Lieferant & " - " & ANTRAG.plose_RechnungsDatum & " - " & ANTRAG.plose_RechnungsNr & " :::::::::: " & CDbl(ANTRAG.plose_MWSTBetrag).ToString("C2"))
|
||||
If Not MWSTSummenAusBeleg Then
|
||||
USTV_POS.UStVPo_USteuerbetragEUR = ANTRAG.plose_MWSTBetragWaehrungAbbuchung 'VERAG_PROG_ALLGEMEIN.cProgramFunctions.fktEuro(ANTRAG.plose_MWSTBetragWaehrungAbbuchung, USTV_ANTRAG.UStVAn_Währungscode, "EUR")
|
||||
'USTV_POS.UStVPo_Umrechnungskurs = VERAG_PROG_ALLGEMEIN.cProgramFunctions.fktEuroKurs(ANTRAG.plose_WaehrungAbbuchung, ANTRAG.plose_RechnungsDatum)
|
||||
USTV_POS.UStVPo_Umrechnungskurs = ANTRAG.plose_MWSTBetrag / ANTRAG.plose_MWSTBetragWaehrungAbbuchung
|
||||
USTV_POS.UStVPo_USteuerbetrag = ANTRAG.plose_MWSTBetrag
|
||||
' MsgBox(ANTRAG.plose_Lieferant & " - " & ANTRAG.plose_RechnungsDatum & " - " & ANTRAG.plose_RechnungsNr & " :::::::::: " & CDbl(ANTRAG.plose_MWSTBetrag).ToString("C2"))
|
||||
Else
|
||||
'TODO - hier Umrechnungslogik von FRMDW und EUR und EUR/FRMDWR für Belegsebene
|
||||
End If
|
||||
|
||||
|
||||
|
||||
USTV_POS.INSERT()
|
||||
@@ -445,7 +587,6 @@ Public Class frmMDM_USTVAntrag
|
||||
Try
|
||||
|
||||
If Antrag_LandKz <> "AT" Then
|
||||
MsgBox("Nur für AT gültig!")
|
||||
Return False
|
||||
End If
|
||||
|
||||
@@ -533,10 +674,8 @@ Public Class frmMDM_USTVAntrag
|
||||
|
||||
Next
|
||||
|
||||
'Einträge als archivert setzen ' vormals wichtig
|
||||
Return verarbeitet
|
||||
|
||||
|
||||
End If
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
@@ -582,7 +721,11 @@ Public Class frmMDM_USTVAntrag
|
||||
Dim eur As Double = CDbl(r.Item("rmc_euroBrutto"))
|
||||
Dim frmdw As Double = CDbl(r.Item("rmc_betragBrutto"))
|
||||
|
||||
umrechKurs = frmdw / eur
|
||||
'umrechKurs = frmdw / eur
|
||||
|
||||
umrechKurs = (frmdw / eur * 100 + 0.5) / 100
|
||||
|
||||
|
||||
|
||||
End If
|
||||
|
||||
@@ -600,8 +743,6 @@ Public Class frmMDM_USTVAntrag
|
||||
|
||||
Next
|
||||
|
||||
|
||||
|
||||
End If
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
@@ -647,7 +788,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
|
||||
umrechKurs = (UST_org / UST_EUR * 100 + 0.5) / 100
|
||||
|
||||
End If
|
||||
|
||||
@@ -702,30 +844,22 @@ Public Class frmMDM_USTVAntrag
|
||||
USTV_POS.UStVPo_Zeitstempel = Now()
|
||||
|
||||
' Berechnungen
|
||||
'UTA liefert Beträge immer in EUR, wir müssen allerdings die Beträge in FREMDW umrechnen!
|
||||
'UTA liefert Beträge immer in EUR und in FREMDW!
|
||||
|
||||
Dim umrechKurs As Double = 1
|
||||
|
||||
Dim UST_org = CDbl(r.Item("Umsatzsteuerbetrag_in_Lieferlandwährung"))
|
||||
Dim UST_EUR = CDbl(r.Item("Umsatzsteuerbetrag_in_Darstellwährung")) 'ist immer EUR
|
||||
|
||||
If (UST_org > 0 AndAlso UST_org <> UST_EUR AndAlso r.Item("Darstellwährung_ISO") = "EUR") Then
|
||||
|
||||
umrechKurs = UST_org / UST_EUR
|
||||
|
||||
If (UST_org > 0 AndAlso UST_org <> UST_EUR) Then
|
||||
umrechKurs = (UST_org / UST_EUR * 100 + 0.5) / 100
|
||||
End If
|
||||
|
||||
If USTV_ANTRAG.UStVAn_Währungscode <> "EUR" Then
|
||||
Dim kurs As New cEZB_Waehrungskurse(USTV_ANTRAG.UStVAn_Währungscode)
|
||||
UST_org = Math.Round(kurs.EXCHANGE_EURTOCUR(UST_EUR, USTV_ANTRAG.UStVAn_Währungscode, CDate(USTV_POS.UStVPo_ReDat)), 2)
|
||||
End If
|
||||
|
||||
If (UST_org > 0 AndAlso UST_org <> UST_EUR) Then umrechKurs = (UST_org / UST_EUR * 100 + 0.5) / 100
|
||||
|
||||
|
||||
|
||||
If UST_org > 0 Then
|
||||
USTV_POS.UStVPo_USteuerbetragEUR = UST_org 'Math.Round((UST_org / umrechKurs), 2)
|
||||
USTV_POS.UStVPo_USteuerbetragEUR = UST_EUR
|
||||
USTV_POS.UStVPo_Umrechnungskurs = umrechKurs
|
||||
USTV_POS.UStVPo_USteuerbetrag = UST_org
|
||||
End If
|
||||
@@ -787,11 +921,13 @@ Public Class frmMDM_USTVAntrag
|
||||
UST_org = Math.Round(kurs.EXCHANGE_EURTOCUR(UST_EUR, USTV_ANTRAG.UStVAn_Währungscode, CDate(USTV_POS.UStVPo_ReDat)), 2)
|
||||
End If
|
||||
|
||||
If (UST_org > 0 AndAlso UST_org <> UST_EUR) Then umrechKurs = (UST_org / UST_EUR * 100 + 0.5) / 100
|
||||
If (UST_org > 0 AndAlso UST_org <> UST_EUR) Then
|
||||
umrechKurs = (UST_org / UST_EUR * 100 + 0.5) / 100
|
||||
End If
|
||||
|
||||
|
||||
If UST_org > 0 Then
|
||||
USTV_POS.UStVPo_USteuerbetragEUR = UST_EUR 'Math.Round((UST_org / umrechKurs), 2)
|
||||
USTV_POS.UStVPo_USteuerbetragEUR = UST_EUR
|
||||
USTV_POS.UStVPo_Umrechnungskurs = umrechKurs
|
||||
USTV_POS.UStVPo_USteuerbetrag = UST_org
|
||||
End If
|
||||
@@ -799,8 +935,8 @@ Public Class frmMDM_USTVAntrag
|
||||
If USTV_POS.INSERT() Then
|
||||
cIDS.UPDATE_ARCHIV(USTV_POS.UStVPo_ReDat, USTV_POS.UStVPo_ReNr, kdnr, Antrag_LandKz, USTV_POS.UStVAn_ID)
|
||||
End If
|
||||
'tblUStVPositionen
|
||||
End If
|
||||
'tblUStVPositionen
|
||||
End If
|
||||
|
||||
Next
|
||||
|
||||
@@ -815,13 +951,46 @@ Public Class frmMDM_USTVAntrag
|
||||
|
||||
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
|
||||
|
||||
dgvUSTVPositionen.GetOrder()
|
||||
If UStVAn_ID > 0 Then
|
||||
|
||||
dgvUSTVPositionen.GetOrder()
|
||||
|
||||
getValue(USTV_ANTRAG)
|
||||
If USTV_ANTRAG.SAVE Then
|
||||
init()
|
||||
dgvUSTVPositionen.SetOrder()
|
||||
End If
|
||||
|
||||
Else
|
||||
|
||||
Dim USTV_ANTRAG = New VERAG_PROG_ALLGEMEIN.cUSTVAntrag()
|
||||
Dim ADR As New cAdressen(KundenNr)
|
||||
Dim ERW As New cKundenErweitert(KundenNr)
|
||||
Dim FIRMA As New cFirmen(1)
|
||||
|
||||
If ERW.kde_keineMWSt Then
|
||||
If Not vbYes = MsgBox("Der ausgewählte Kunde " & ADR.Name_1 & " ist als KEIN MWST-Kunde deklariert!" & vbNewLine & "Trotzdem den Antrag speichern?", vbYesNoCancel) Then Exit Sub
|
||||
End If
|
||||
|
||||
USTV_ANTRAG.UStVAn_LandNr = cbxLand._value
|
||||
|
||||
If cbxWahrung.SelectedValue Is Nothing Then
|
||||
USTV_ANTRAG.UStVAn_Währungscode = SQL.DLookup("Währungscode", "[Länderverzeichnis für die Außenhandelsstatistik]", "Landnr='" & USTV_ANTRAG.UStVAn_LandNr & "'", "FMZOLL")
|
||||
Else
|
||||
USTV_ANTRAG.UStVAn_Währungscode = cbxWahrung.SelectedValue
|
||||
End If
|
||||
|
||||
USTV_ANTRAG.UStVAn_Sachbearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
|
||||
USTV_ANTRAG.UStVAn_Zeitstempel = Now()
|
||||
|
||||
getValue(USTV_ANTRAG, ADR, FIRMA)
|
||||
|
||||
Me.UStVAn_ID = USTV_ANTRAG.SAVEID()
|
||||
|
||||
getValue(USTV_ANTRAG)
|
||||
If USTV_ANTRAG.SAVE Then
|
||||
init()
|
||||
dgvUSTVPositionen.SetOrder()
|
||||
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Sub initPosition(UStVPo_ID)
|
||||
@@ -998,12 +1167,15 @@ Public Class frmMDM_USTVAntrag
|
||||
End Sub
|
||||
|
||||
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles btnEintragloeschen.Click
|
||||
|
||||
If vbYes = MsgBox("Möchten Sie den Eintrag wirklich löschen?", vbYesNoCancel) Then
|
||||
|
||||
If UstCntlUSTV_AntragPosition1.cbxAPI IsNot Nothing AndAlso UstCntlUSTV_AntragPosition1.cboSchnittstellennr._value IsNot Nothing Then
|
||||
Dim updated As Boolean = False
|
||||
Dim sqlText = ""
|
||||
Dim test As Boolean = False
|
||||
|
||||
|
||||
Select Case UstCntlUSTV_AntragPosition1.cboSchnittstellennr._value
|
||||
|
||||
Case 1 'VERAG 360 GmbH; 4975 Suben
|
||||
@@ -1271,13 +1443,18 @@ Public Class frmMDM_USTVAntrag
|
||||
Case 4, 9 : da_id = SQL.getValueTxtBySql("SELECT TOP(1) [daId] FROM [tblMSEInvoices] as inv inner join tblMSECustomers on inv.customer_number = customer_id where invoice_date='" & reDat & "' and country='" & Antrag_LandKz & "' AND partner_customer_number = " & USTV_ANTRAG.UStVAn_KuNr & " AND daId is not null", "FMZOLL",,, -1)
|
||||
Case 10 : da_id = SQL.getValueTxtBySql("SELECT TOP(1) [daId] FROM [tblUTAImportNew] where Rechnungsdatum='" & reDat & "' and Abrechnungsnummer='" & reNr & "' and Lieferland_ISO2='" & Antrag_LandKz & "' AND daId is not null", "FMZOLL",,, -1)
|
||||
Case 7 : da_id = SQL.getValueTxtBySql("SELECT TOP(1) [rmc_daId] FROM [tblRMCImport] where rmc_reDatum='" & reDat & "' and rmc_reNr='" & reNr & "' and rmc_landKZ='" & Antrag_LandKz & "' AND [rmc_daId] is not null", "FMZOLL",,, -1)
|
||||
Case 8 : da_id = SQL.getValueTxtBySql("SELECT TOP(1) tblIDSInvoicesNew.daId FROM [tblIDSTransactionsNew] INNER JOIN tbl_IDS_Länder ON tblIDSTransactionsNew.[OutletCountryCode] = tbl_IDS_Länder.OutletCountryCode LEFT JOIN tblIDSInvoicesNew on tblIDSInvoicesNew.CustomerCode = tblIDSTransactionsNew.CustomerCode and tblIDSInvoicesNew.Invoicenumber = Paymentsummarynumber where tblIDSTransactionsNew.[YearMonthDay] ='" & reDat & "' and tblIDSTransactionsNew.[Paymentsummarynumber]='" & reNr & "' and tbl_IDS_Länder.Lieferland_ISO2='" & Antrag_LandKz & "' AND tblIDSInvoicesNew.daId is not null", "FMZOLL",,, -1)
|
||||
Case 8 : da_id = SQL.getValueTxtBySql("SELECT TOP(1) tblIDSInvoicesNew.daId FROM [tblIDSTransactionsNew] INNER JOIN tbl_IDS_Länder ON tblIDSTransactionsNew.[OutletCountryCode] = tbl_IDS_Länder.OutletCountryCode LEFT JOIN tblIDSInvoicesNew on tblIDSInvoicesNew.CustomerCode = tblIDSTransactionsNew.CustomerCode and tblIDSInvoicesNew.Invoicenumber = Paymentsummarynumber where tblIDSTransactionsNew.[YearMonthDay] ='" & reDat & "' AND ISNULL(tblIDSTransactionsNew.[OBONumber], ISNULL(tblIDSTransactionsNew.[VRNumber], tblIDSTransactionsNew.[Paymentsummarynumber])) ='" & reNr & "' and tbl_IDS_Länder.Lieferland_ISO2='" & Antrag_LandKz & "' AND tblIDSInvoicesNew.daId is not null", "FMZOLL",,, -1)
|
||||
End Select
|
||||
|
||||
Return da_id
|
||||
|
||||
End Function
|
||||
|
||||
Private Sub cbxLand_SelectedValueChanged(sender As Object, e As EventArgs) Handles cbxLand.SelectedValueChanged
|
||||
|
||||
lblLand.Text = IIf(cbxLand.SelectedItem IsNot Nothing, cbxLand.SelectedItem.Text, "")
|
||||
End Sub
|
||||
|
||||
Private Sub dgvUSTVPositionen_Sorted(sender As Object, e As EventArgs) Handles dgvUSTVPositionen.Sorted
|
||||
|
||||
For Each r As DataGridViewRow In dgvUSTVPositionen.Rows
|
||||
|
||||
Reference in New Issue
Block a user