Merge branch 'newMaster2024' of https://dev.azure.com/VeragAG/_git/SDL into newMaster2024
This commit is contained in:
@@ -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
|
||||
|
||||
@@ -1144,7 +1144,7 @@ Public Class frmMDMDatenverarbetiung
|
||||
|
||||
Dim SPEDBUCH As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch = Nothing
|
||||
Dim verarbOK = IIf(test, False, True)
|
||||
If Not gen_SPEDBUCH_ByKdNr(R_PLOSE("AdressenNr"), SPEDBUCH, "PLOSE", R_PLOSE("PLOSEKundenNr"), dat_Sum_Von.Value.ToShortDateString, dat_Sum_Bis.Value.ToShortDateString) Then verarbOK = False
|
||||
If Not gen_SPEDBUCH_ByKdNr(R_PLOSE("AdressenNr"), SPEDBUCH, "PLOSE", R_PLOSE("PLOSEKundenNr"), dat_Sum_Von.Value.ToShortDateString, dat_Sum_Bis.Value.ToShortDateString, datPloseAnhang.Value) Then verarbOK = False
|
||||
If Not gen_RECHNUNG_BySPEDBUCH(R_PLOSE("AdressenNr"), SPEDBUCH, "PLOSE", R_PLOSE("PLOSEKundenNr"), dat_Sum_Von.Value, dat_Sum_Bis.Value) Then verarbOK = False
|
||||
' ANHÄNGE WERDEN NCIHT BENÖTIGT::genPLOSEAttachmentByKdNr(R_PLOSE("AdressenNr"), R_PLOSE("PLOSEKundenNr"), dat_Sum_Von.Value.ToShortDateString, dat_Sum_Bis.Value.ToShortDateString, dir)
|
||||
|
||||
@@ -1269,7 +1269,7 @@ Public Class frmMDMDatenverarbetiung
|
||||
Dim SPEDBUCH As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch = Nothing
|
||||
Dim verarbOK = IIf(test, False, True)
|
||||
|
||||
If Not gen_SPEDBUCH_ByKdNr(uta("Customer Nr"), SPEDBUCH, "UTA") Then verarbOK = False
|
||||
If Not gen_SPEDBUCH_ByKdNr(uta("Customer Nr"), SPEDBUCH, "UTA",,,, datPloseAnhang.Value) Then verarbOK = False
|
||||
If Not gen_RECHNUNG_BySPEDBUCH(uta("Customer Nr"), SPEDBUCH, "UTA") Then verarbOK = False
|
||||
|
||||
genUTAAttachmentByKdNr(uta("Customer Nr"), uta("Customer ID"), dir, datPloseAnhang.Value)
|
||||
@@ -1406,7 +1406,7 @@ Public Class frmMDMDatenverarbetiung
|
||||
Dim SPEDBUCH As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch = Nothing
|
||||
Dim verarbOK = IIf(test, False, True)
|
||||
|
||||
If Not gen_SPEDBUCH_ByKdNr(MSE("Customer Nr"), SPEDBUCH, "MSE") Then verarbOK = False
|
||||
If Not gen_SPEDBUCH_ByKdNr(MSE("Customer Nr"), SPEDBUCH, "MSE",,,, datPloseAnhang.Value) Then verarbOK = False
|
||||
If Not gen_RECHNUNG_BySPEDBUCH(MSE("Customer Nr"), SPEDBUCH, "MSE") Then verarbOK = False
|
||||
|
||||
genMSEAttachmentByKdNr(MSE("Customer Nr"), MSE("Customer ID"), dir, datPloseAnhang.Value)
|
||||
@@ -1525,7 +1525,7 @@ Public Class frmMDMDatenverarbetiung
|
||||
Dim SPEDBUCH As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch = Nothing
|
||||
Dim verarbOK = IIf(test, False, True)
|
||||
|
||||
If Not gen_SPEDBUCH_ByKdNr(IDS("KdNrVERAG"), SPEDBUCH, art) Then verarbOK = False
|
||||
If Not gen_SPEDBUCH_ByKdNr(IDS("KdNrVERAG"), SPEDBUCH, art,,,, datPloseAnhang.Value) Then verarbOK = False
|
||||
If Not gen_RECHNUNG_BySPEDBUCH(IDS("KdNrVERAG"), SPEDBUCH, art) Then verarbOK = False
|
||||
|
||||
If IDS("Rechnungsdruck") = 2 Then
|
||||
@@ -1695,7 +1695,7 @@ Public Class frmMDMDatenverarbetiung
|
||||
For Each R_ASFINAG In distinctDT_distKunden.Rows
|
||||
Dim SPEDBUCH As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch = Nothing
|
||||
Dim verarbOK = IIf(test, False, True)
|
||||
If Not gen_SPEDBUCH_ByKdNr(R_ASFINAG("KundenNr"), SPEDBUCH, "ASFINAG") Then verarbOK = False
|
||||
If Not gen_SPEDBUCH_ByKdNr(R_ASFINAG("KundenNr"), SPEDBUCH, "ASFINAG",,,, abrechnungsdatum) Then verarbOK = False
|
||||
If Not gen_RECHNUNG_BySPEDBUCH(R_ASFINAG("KundenNr"), SPEDBUCH, "ASFINAG") Then verarbOK = False
|
||||
|
||||
If verarbOK Then
|
||||
@@ -3098,7 +3098,7 @@ Public Class frmMDMDatenverarbetiung
|
||||
End Function
|
||||
|
||||
|
||||
Function gen_SPEDBUCH_ByKdNr(KdNr As String, ByRef SPEDBUCH As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch, Lieferant As String, Optional PLOSEKundenNr As String = "", Optional von As Date = Nothing, Optional bis As Date = Nothing)
|
||||
Function gen_SPEDBUCH_ByKdNr(KdNr As String, ByRef SPEDBUCH As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch, Lieferant As String, Optional PLOSEKundenNr As String = "", Optional von As Date = Nothing, Optional bis As Date = Nothing, Optional abrechnugsdatum As Date = Nothing)
|
||||
Try
|
||||
If KdNr = "" Then Return False
|
||||
|
||||
@@ -3117,7 +3117,10 @@ Public Class frmMDMDatenverarbetiung
|
||||
Case "IDS_AT" : OffertenNr = 21 : Abfertigungsart = 10 : SPEDBUCH.FilialenNr = 4868
|
||||
End Select
|
||||
|
||||
SPEDBUCH.AbfertigungsNr = VERAG_PROG_ALLGEMEIN.cAllgemein.getMaxPosNrIncrement(SPEDBUCH.FilialenNr, Now.Year)
|
||||
Dim GJ = Now.Year
|
||||
If IsDate(abrechnugsdatum) Then GJ = cRKSV.getGJ(abrechnugsdatum, 15)
|
||||
|
||||
SPEDBUCH.AbfertigungsNr = VERAG_PROG_ALLGEMEIN.cAllgemein.getMaxPosNrIncrement(SPEDBUCH.FilialenNr, GJ)
|
||||
SPEDBUCH.NewUNTER_NR()
|
||||
|
||||
SPEDBUCH.Vermittler = AD.Ordnungsbegriff
|
||||
|
||||
Reference in New Issue
Block a user