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

MDM, USTVA

Browse Source
This commit is contained in:
d.breimaier
2025-01-03 10:40:22 +01:00
parent e45f865a0d
commit ee00953ee5
3 changed files with 39 additions and 32 deletions
Download Patch File Download Diff File Expand all files Collapse all files

50
SDL/USTV/frmMDM_USTVAntrag.vb
View File

@@ -1,5 +1,6 @@

Imports System.Reflection
Imports com.sun.tools.internal.ws.wsdl.framework
Imports DocumentFormat.OpenXml.Office2010.Drawing.Charts
Imports java.text.Normalizer
Imports jdk.nashorn.internal.objects.annotations
@@ -51,9 +52,9 @@ Public Class frmMDM_USTVAntrag
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
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
@@ -355,13 +356,6 @@ Public Class frmMDM_USTVAntrag
cbxFiliale.fillWithSQL("SELECT Filialen.FilialenNr, Filialen.Grenzstelle FROM Filialen WHERE Filialen.FilialenNr>=4800 AND Filialen.Fil_Status='A' ORDER BY Filialen.FilialenNr",, "FMZOLL", True)
For i As Integer = 0 To cbxFiliale.Items.Count - 1
If cbxFiliale.Items(i).ToString().Contains("MWST Rückerstattung") Then
cbxFiliale.SelectedIndex = i
Exit For
End If
Next
lbl_EintrageVerarbetiet.Text = ""
If UStVAn_ID > 0 Then
@@ -379,30 +373,38 @@ Public Class frmMDM_USTVAntrag
cbxWahrung.Enabled = True
For i As Integer = 0 To cbxFiliale.Items.Count - 1
If cbxFiliale.Items(i).ToString().Contains("MWST Rückerstattung") Then
cbxFiliale.SelectedIndex = i
Exit For
End If
Next
KdSearchBox1.initKdBox(Me)
AddHandler KdSearchBox1.PropertyChanged, Sub()
Try
AddHandler KdSearchBox1.PropertyChanged, Sub()
Try
lblKdNr.Text = KdSearchBox1.KdNr
KundenNr = KdSearchBox1.KdNr
lblKdNr.Text = KdSearchBox1.KdNr
KundenNr = KdSearchBox1.KdNr
Dim ADR As New cAdressen(KdSearchBox1.KdNr)
lblFirma.Text = ADR.Name_1
Dim ADR As New cAdressen(KdSearchBox1.KdNr)
lblFirma.Text = ADR.Name_1
cbxLand.fillWithSQL("SELECT [Länderverzeichnis für die Außenhandelsstatistik].LandNr, [Länderverzeichnis für die Außenhandelsstatistik].LandKz
cbxLand.fillWithSQL("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
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
@@ -430,7 +432,7 @@ Public Class frmMDM_USTVAntrag
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
@@ -1008,7 +1010,7 @@ Public Class frmMDM_USTVAntrag
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
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")
@@ -1204,6 +1206,8 @@ Public Class frmMDM_USTVAntrag
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles btnEintragloeschen.Click
If dgvUSTVPositionen.Rows.Count = 0 Then Exit Sub
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