From 780d763ba480f0bf6329c99bb3222caa527cb37f Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Mon, 5 Sep 2022 15:25:15 +0200 Subject: [PATCH] Revert "Revert "neu MDM"" This reverts commit cdd0326632353f2ea21784fdc43987a5a97ee331. --- SDL/My Project/AssemblyInfo.vb | 4 ++-- SDL/USTV/frmMDM_USTVAntrag.vb | 6 +++--- SDL/mdm/frmMDMDatenverarbetiung.vb | 6 +++--- 3 files changed, 8 insertions(+), 8 deletions(-) diff --git a/SDL/My Project/AssemblyInfo.vb b/SDL/My Project/AssemblyInfo.vb index 8753b7fb..0c9f977a 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/USTV/frmMDM_USTVAntrag.vb b/SDL/USTV/frmMDM_USTVAntrag.vb index 8d848366..f55637b1 100644 --- a/SDL/USTV/frmMDM_USTVAntrag.vb +++ b/SDL/USTV/frmMDM_USTVAntrag.vb @@ -36,7 +36,6 @@ .Columns("UStVPo_ID").Width = 40 - .Columns("UStVPo_ReDat").HeaderText = "Rg-Datum" .Columns("UStVPo_ReDat").Width = 80 @@ -139,7 +138,7 @@ ' 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_MWSTBetragWaehrungAbbuchung / ANTRAG.plose_MWSTBetrag + 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")) @@ -147,7 +146,8 @@ USTV_POS.INSERT() Next - ' NOCH NICHT''''' MDM_Worker.cPLOSE.UPDATE_ARCHIV(USTV_ANTRAG.UStVAn_ReDatVon, USTV_ANTRAG.UStVAn_ReDatBis, USTV_ANTRAG.UStVAn_KuNr) + MDM_Worker.cPLOSE.UPDATE_ARCHIV(USTV_ANTRAG.UStVAn_ReDatVon, USTV_ANTRAG.UStVAn_ReDatBis, USTV_ANTRAG.UStVAn_KuNr) + ' NOCH NICHT''''' End If Return True diff --git a/SDL/mdm/frmMDMDatenverarbetiung.vb b/SDL/mdm/frmMDMDatenverarbetiung.vb index 84e28d87..9a036ae6 100644 --- a/SDL/mdm/frmMDMDatenverarbetiung.vb +++ b/SDL/mdm/frmMDMDatenverarbetiung.vb @@ -179,7 +179,7 @@ Public Class frmMDMDatenverarbetiung FROM tblPLOSE_Details WHERE 1 = 1 And plose_DatumTransaktion between '" & dat_Sum_Von.Value & "' and '" & dat_Sum_Bis.Value & "' - AND plose_Fakturiert=1 + AND plose_Fakturiert=0 group by plose_POLSEKundennummer,plose_ProduktCode order by plose_POLSEKundennummer,plose_ProduktCode", "FMZOLL") .LOAD() @@ -246,8 +246,8 @@ Public Class frmMDMDatenverarbetiung Next txtAnzahl.Text = .Rows.Count - txtPruefsummeNetto.Text = sumNto.ToString("C2") - txtPruefsummeBrutto.Text = sumBto.ToString("CS2") + txtPruefsummeNetto.Text = CDbl(sumNto).ToString("C2") + txtPruefsummeBrutto.Text = CDbl(sumBto).ToString("C2") .ClearSelection() End With