From a336f0d54a1a6ae313b8879eca523bb22e0f3ec4 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Mon, 14 Apr 2025 11:04:08 +0200 Subject: [PATCH] ustva, rmc --- SDL/My Project/AssemblyInfo.vb | 4 +-- .../Nacherfassung/frmNacherfassungNEU.vb | 7 ++++ SDL/USTV/frmMDM_USTVAntrag.vb | 32 ++++++++++++++++--- SDL/USTV/usrCntlUSTV.vb | 4 --- VERAG_PROG_ALLGEMEIN/Classes/cRMC.vb | 2 +- 5 files changed, 37 insertions(+), 12 deletions(-) diff --git a/SDL/My Project/AssemblyInfo.vb b/SDL/My Project/AssemblyInfo.vb index b0ce2692..15183041 100644 --- a/SDL/My Project/AssemblyInfo.vb +++ b/SDL/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - - + + diff --git a/SDL/Speditionsbuch/Nacherfassung/frmNacherfassungNEU.vb b/SDL/Speditionsbuch/Nacherfassung/frmNacherfassungNEU.vb index 4be3c91c..ac0582c7 100644 --- a/SDL/Speditionsbuch/Nacherfassung/frmNacherfassungNEU.vb +++ b/SDL/Speditionsbuch/Nacherfassung/frmNacherfassungNEU.vb @@ -588,6 +588,13 @@ Public Class frmNacherfassungNEU Case "FRONTOFFICE" : where = " AND mit_firma NOT IN ('ATILLA') " Case "ATILLA" : cboFiliale._allowedValuesFreiText = {"4801", "4802"} Case "VERIMEX" : cboFiliale._allowedValuesFreiText = {"6001"} + Case "VERAG" + If VERAG_PROG_ALLGEMEIN.cAllgemein.ABTEILUNG = "MDM" Then + cboFiliale._allowedValuesFreiText = {"4814", "4815", "4817", "4820", "4821", "4822", "4823", "4824", "4868", "8001"} : where = " AND mit_abteilung IN (' " & VERAG_PROG_ALLGEMEIN.cAllgemein.ABTEILUNG & "')" + Else + where = " AND mit_firma NOT IN ('IMEX','UNISPED','AMBAR','FRONTOFFICE') " + End If + Case Else : where = " AND mit_firma NOT IN ('IMEX','UNISPED','AMBAR','FRONTOFFICE') " End Select diff --git a/SDL/USTV/frmMDM_USTVAntrag.vb b/SDL/USTV/frmMDM_USTVAntrag.vb index 5b39682c..661ad879 100644 --- a/SDL/USTV/frmMDM_USTVAntrag.vb +++ b/SDL/USTV/frmMDM_USTVAntrag.vb @@ -262,9 +262,20 @@ Public Class frmMDM_USTVAntrag If KUNDE_ERW.kde_AnmerkungAntrag IsNot Nothing AndAlso KUNDE_ERW.kde_AnmerkungAntrag <> "" Then lblMWSTAntrag.Text &= " - " & KUNDE_ERW.kde_AnmerkungAntrag End If + If USTV_ANTRAG.FilialenNr IsNot Nothing AndAlso USTV_ANTRAG.FilialenNr > 0 AndAlso USTV_ANTRAG.AbfertigungsNr IsNot Nothing AndAlso USTV_ANTRAG.AbfertigungsNr > 0 Then + Dim spedBuch As New cSpeditionsbuch(USTV_ANTRAG.FilialenNr, USTV_ANTRAG.AbfertigungsNr, 0) + If spedBuch.hasEntry Then + Button4.Text = "Sped.-Buch anzeigen" + Else + Button4.Text = "Sped.-Buch eintragen" + End If + Else + Button4.Text = "Sped.-Buch eintragen" + End If + End If - If posIndex > 0 Then + If posIndex > 0 Then posIndex = posIndex - 1 If posIndex > 0 And dgvUSTVPositionen.Rows.Count > posIndex Then dgvUSTVPositionen.ClearSelection() @@ -942,7 +953,7 @@ Public Class frmMDM_USTVAntrag 'von RMC bekommen wir Fremdwährung und EUR, d.b. wir können und den Umrechnungskurs selbst berechnen! Dim umrechKurs As Double = 1 - If (CDbl(r.Item("rmc_betragBrutto")) > 0 AndAlso CDbl(r.Item("rmc_euroBrutto")) > 0) Then + If (CDbl(r.Item("rmc_betragBrutto")) <> 0 AndAlso CDbl(r.Item("rmc_euroBrutto")) <> 0) Then Dim UST_EUR As Double = CDbl(r.Item("rmc_euroBrutto")) Dim UST_org As Double = CDbl(r.Item("rmc_betragBrutto")) @@ -2270,7 +2281,15 @@ Public Class frmMDM_USTVAntrag Dim spedBuch As New cSpeditionsbuch(USTV_ANTRAG.FilialenNr, USTV_ANTRAG.AbfertigungsNr, 0) - If spedBuch.hasEntry Then MsgBox("Es existiert bereits ein Speditionsbucheintrag!" & vbNewLine & "Vorgang wird abgebrochen ") : Exit Sub + If spedBuch.hasEntry Then + Dim frmNacherfassung As New frmNacherfassungNEU + frmNacherfassung.srchFiliale = USTV_ANTRAG.FilialenNr + frmNacherfassung.srchAbfertigungsnummer = USTV_ANTRAG.AbfertigungsNr + frmNacherfassung.srchUnterNr = 0 + frmNacherfassung.ShowDialog(Me) + + Exit Sub + End If With spedBuch .Abfertigungsdatum = Today() @@ -2280,9 +2299,12 @@ Public Class frmMDM_USTVAntrag .AnzahlSonstiges = 1 .Abfertigungsart = 10 .Abfertigungsanzahl = 1 - .Packstücke = "Mehrwertsteuerrückerstattung " & USTV_ANTRAG.UStVAn_LandKz & " / " & USTV_ANTRAG.UStVAn_ReDatVon & " - " & USTV_ANTRAG.UStVAn_ReDatBis + .Packstücke = "Mehrwertsteuerrückerstattung " & Antrag_LandKz & " / " & USTV_ANTRAG.UStVAn_ReDatVon & " - " & USTV_ANTRAG.UStVAn_ReDatBis .VermittlerKundenNr = USTV_ANTRAG.UStVAn_KuNr - If .SAVE() Then MsgBox("Sped-Eintrag wurde angelegt") + If .SAVE() Then + MsgBox("Sped-Eintrag wurde angelegt") + init() + End If End With End Sub diff --git a/SDL/USTV/usrCntlUSTV.vb b/SDL/USTV/usrCntlUSTV.vb index 4e798ab8..e447be26 100644 --- a/SDL/USTV/usrCntlUSTV.vb +++ b/SDL/USTV/usrCntlUSTV.vb @@ -1,9 +1,5 @@ Imports System.ComponentModel -Imports com.sun.javadoc -Imports com.sun.xml.internal.bind.v2.model.core -Imports itextsharp.text.factories Imports Microsoft.Office.Interop -Imports sun.swing Imports VERAG_PROG_ALLGEMEIN diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cRMC.vb b/VERAG_PROG_ALLGEMEIN/Classes/cRMC.vb index c8b05cc2..e0a6905e 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cRMC.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/cRMC.vb @@ -171,7 +171,7 @@ Public Class cRMC where cast(rmc_reDatum as date) between @von and @bis and AdressenNr=@AdressenNr AND rmc_landKZ ='" & LandKZ & "'" & IIf(Not Archiv, " And rmc_archiv = 0 ", "") & " group by rmc_reDatum,rmc_kdNr,[rmc_reNr],[rmc_waehrung], rmc_daId - having sum([rmc_betragMWST])>0 + having sum([rmc_betragMWST])<>0 order by rmc_reDatum", conn) cmd.Parameters.AddWithValue("@von", von)