From cdd0326632353f2ea21784fdc43987a5a97ee331 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Mon, 5 Sep 2022 15:24:00 +0200 Subject: [PATCH] Revert "neu MDM" This reverts commit 2a6502fc9341e0ab3b90ec9d976eb9c69c5e8d6c. --- 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 0c9f977a..8753b7fb 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 f55637b1..8d848366 100644 --- a/SDL/USTV/frmMDM_USTVAntrag.vb +++ b/SDL/USTV/frmMDM_USTVAntrag.vb @@ -36,6 +36,7 @@ .Columns("UStVPo_ID").Width = 40 + .Columns("UStVPo_ReDat").HeaderText = "Rg-Datum" .Columns("UStVPo_ReDat").Width = 80 @@ -138,7 +139,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_MWSTBetrag / ANTRAG.plose_MWSTBetragWaehrungAbbuchung + USTV_POS.UStVPo_Umrechnungskurs = ANTRAG.plose_MWSTBetragWaehrungAbbuchung / ANTRAG.plose_MWSTBetrag USTV_POS.UStVPo_USteuerbetrag = ANTRAG.plose_MWSTBetrag ' MsgBox(ANTRAG.plose_Lieferant & " - " & ANTRAG.plose_RechnungsDatum & " - " & ANTRAG.plose_RechnungsNr & " :::::::::: " & CDbl(ANTRAG.plose_MWSTBetrag).ToString("C2")) @@ -146,8 +147,7 @@ USTV_POS.INSERT() Next - MDM_Worker.cPLOSE.UPDATE_ARCHIV(USTV_ANTRAG.UStVAn_ReDatVon, USTV_ANTRAG.UStVAn_ReDatBis, USTV_ANTRAG.UStVAn_KuNr) - ' NOCH NICHT''''' + ' NOCH NICHT''''' MDM_Worker.cPLOSE.UPDATE_ARCHIV(USTV_ANTRAG.UStVAn_ReDatVon, USTV_ANTRAG.UStVAn_ReDatBis, USTV_ANTRAG.UStVAn_KuNr) End If Return True diff --git a/SDL/mdm/frmMDMDatenverarbetiung.vb b/SDL/mdm/frmMDMDatenverarbetiung.vb index 9a036ae6..84e28d87 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=0 + AND plose_Fakturiert=1 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 = CDbl(sumNto).ToString("C2") - txtPruefsummeBrutto.Text = CDbl(sumBto).ToString("C2") + txtPruefsummeNetto.Text = sumNto.ToString("C2") + txtPruefsummeBrutto.Text = sumBto.ToString("CS2") .ClearSelection() End With