From 34afade386fa2ae1213478c39460a334a45f7a54 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Tue, 23 Jan 2024 07:44:29 +0100 Subject: [PATCH] Vorkosten --- .../frmNacherfassungVorkosten.vb | 3 + SDL/mdm/usrCntlMDMAuswertungen.vb | 98 +++++++++++-------- .../Schnittstellen/TIMAS/cTimasAPI.vb | 2 +- .../Schnittstellen/cTherefore.vb | 2 +- 4 files changed, 63 insertions(+), 42 deletions(-) diff --git a/SDL/Speditionsbuch/Nacherfassung/frmNacherfassungVorkosten.vb b/SDL/Speditionsbuch/Nacherfassung/frmNacherfassungVorkosten.vb index be8c56b6..f15e8a78 100644 --- a/SDL/Speditionsbuch/Nacherfassung/frmNacherfassungVorkosten.vb +++ b/SDL/Speditionsbuch/Nacherfassung/frmNacherfassungVorkosten.vb @@ -25,6 +25,7 @@ Dim r As DataGridViewRow = dgvVorkosten.Rows(i) If Not IsNumeric(r.Cells("LeistungsNr").Value) Then MsgBox("Leistungsnummer muss eine Zahl sein!") : Me.DialogResult = Windows.Forms.DialogResult.None : Exit Sub If Not IsNumeric(r.Cells("Preis").Value) Then MsgBox("Preis muss eine Zahl sein!") : Me.DialogResult = Windows.Forms.DialogResult.None : Exit Sub + If r.Cells("LeistungsBez").Value.ToString.Length > 30 Then MsgBox("Leistungbezeichnung zu lang (max 30 Zeichen)!") : Me.DialogResult = Windows.Forms.DialogResult.None : Exit Sub VORKOSTEN.Add(New VERAG_PROG_ALLGEMEIN.cVorkosten(FilialenNr, AbfertigungsNr, UnterNr, CInt(r.Cells("LeistungsNr").Value), CStr(r.Cells("Leistungsbez").Value), CDbl(r.Cells("Preis").Value))) Next Me.Close() @@ -122,6 +123,8 @@ If txtLeistungsbezeichnung.Text = "" Then Label24.Visible = True : txtLeistungsbezeichnung.Focus() : Exit Sub If txtPreis._value = "" Then Label1.Visible = True : txtPreis.Focus() : Exit Sub + If txtLeistungsbezeichnung.Text.Length > 30 Then MsgBox("Leistungbezeichnung zu lang (max 30 Zeichen)!") : Label24.Visible = True : txtLeistungsbezeichnung.Focus() : Exit Sub + If VK_EDIT >= 0 Then dgvVorkosten.Rows.RemoveAt(VK_EDIT) dgvVorkosten.Rows.Insert(VK_EDIT, cboLeistungs._value, txtLeistungsbezeichnung.Text, txtPreis._value) diff --git a/SDL/mdm/usrCntlMDMAuswertungen.vb b/SDL/mdm/usrCntlMDMAuswertungen.vb index 2be23e1c..fef614c9 100644 --- a/SDL/mdm/usrCntlMDMAuswertungen.vb +++ b/SDL/mdm/usrCntlMDMAuswertungen.vb @@ -1241,6 +1241,8 @@ Public Class usrCntlMDMAuswertungen Try Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + Dim frm As New Form + Dim dgv As New DataGridView() Dim dt As DataTable = SQL.loadDgvBySql("SELECT PKFileName, @@ -1260,75 +1262,91 @@ Public Class usrCntlMDMAuswertungen Exit Sub End If - Dim print As New frmPrintLayout - print.Text = "ASFINAG" + dgv.DataSource = dt - Dim rpt As New rptASFINAG_TransaktionenSumary + If dgv IsNot Nothing Then + frm.Size = New Size(1400, 1000) + dgv.Size = New Size(frm.Size.Width - 50, frm.Size.Height - 50) + dgv.Dock = DockStyle.Fill + dgv.Anchor = AnchorStyles.Left + dgv.Anchor = AnchorStyles.Top + dgv.ReadOnly = True + frm.Controls.Add(dgv) + frm.StartPosition = FormStartPosition.CenterScreen + frm.ShowDialog() + End If - rpt.DataSource = dt + + + 'Dim print As New frmPrintLayout + 'print.Text = "ASFINAG" + + 'Dim rpt As New rptASFINAG_TransaktionenSumary + + 'rpt.DataSource = dt - Dim sum = 0 - rpt.lblUeberschrift.Text = "ASFINAG Transaktionssummen " & CDate(dat_Sum_Bis.Value.ToShortDateString) - rpt.lblSachbearbeiter.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME + 'Dim sum = 0 + 'rpt.lblUeberschrift.Text = "ASFINAG Transaktionssummen " & CDate(dat_Sum_Bis.Value.ToShortDateString) + 'rpt.lblSachbearbeiter.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME - rpt.Label10.Visible = False - Label1.Text = "Dateiname" - Label8.Text = "Erstellungsdatum" - 'Dim cnt As Integer = 0 - rpt.lblDat.Text = Now.ToLongDateString + 'rpt.Label10.Visible = False + 'Label1.Text = "Dateiname" + 'Label8.Text = "Erstellungsdatum" + ''Dim cnt As Integer = 0 + 'rpt.lblDat.Text = Now.ToLongDateString - Dim sumNetto As Double = 0 - Dim sumMWST As Double = 0 - Dim sumBrutto As Double = 0 + 'Dim sumNetto As Double = 0 + 'Dim sumMWST As Double = 0 + 'Dim sumBrutto As Double = 0 - Dim sumperKdNrNetto As Double = 0 - Dim sumperKdNrMWST As Double = 0 - Dim sumperKdNrBrutto As Double = 0 + 'Dim sumperKdNrNetto As Double = 0 + 'Dim sumperKdNrMWST As Double = 0 + 'Dim sumperKdNrBrutto As Double = 0 - AddHandler rpt.Detail.Format, Sub() + 'AddHandler rpt.Detail.Format, Sub() - rpt.lblKundennr.Text = SQL.isDbnullEmpty(rpt.Fields.Item("PKFileName").Value, "") - rpt.lblName1.Text = SQL.isDbnullEmpty(rpt.Fields.Item("FileCreationDate").Value, "") - rpt.lblKartennr.Text = SQL.isDbnullEmpty(rpt.Fields.Item("Abrechnungsdatum").Value, "") + ' rpt.lblKundennr.Text = SQL.isDbnullEmpty(rpt.Fields.Item("PKFileName").Value, "") + ' rpt.lblName1.Text = SQL.isDbnullEmpty(rpt.Fields.Item("FileCreationDate").Value, "") + ' rpt.lblKartennr.Text = SQL.isDbnullEmpty(rpt.Fields.Item("Abrechnungsdatum").Value, "") - rpt.lblNetto.Text = SQL.isDbnullEmptyDbl(rpt.Fields.Item("Nettobetrag").Value, 2, "") - rpt.lblMWST.Text = SQL.isDbnullEmptyDbl(rpt.Fields.Item("Umsatzsteuer").Value, 2, "") - rpt.lblBrutto.Text = SQL.isDbnullEmptyDbl(rpt.Fields.Item("Bruttobetrag").Value, 2, "") + ' rpt.lblNetto.Text = SQL.isDbnullEmptyDbl(rpt.Fields.Item("Nettobetrag").Value, 2, "") + ' rpt.lblMWST.Text = SQL.isDbnullEmptyDbl(rpt.Fields.Item("Umsatzsteuer").Value, 2, "") + ' rpt.lblBrutto.Text = SQL.isDbnullEmptyDbl(rpt.Fields.Item("Bruttobetrag").Value, 2, "") - rpt.lblSumNet.Visible = False - rpt.lblSumVat.Visible = False - rpt.lblSumBrt.Visible = False + ' rpt.lblSumNet.Visible = False + ' rpt.lblSumVat.Visible = False + ' rpt.lblSumBrt.Visible = False - sumNetto += SQL.isDbnullEmptyDbl(rpt.Fields.Item("Nettobetrag").Value, 4, 0) - sumMWST += SQL.isDbnullEmptyDbl(rpt.Fields.Item("Umsatzsteuer").Value, 4, 0) - sumBrutto += SQL.isDbnullEmptyDbl(rpt.Fields.Item("Bruttobetrag").Value, 4, 0) + ' sumNetto += SQL.isDbnullEmptyDbl(rpt.Fields.Item("Nettobetrag").Value, 4, 0) + ' sumMWST += SQL.isDbnullEmptyDbl(rpt.Fields.Item("Umsatzsteuer").Value, 4, 0) + ' sumBrutto += SQL.isDbnullEmptyDbl(rpt.Fields.Item("Bruttobetrag").Value, 4, 0) - End Sub + ' End Sub - AddHandler rpt.ReportFooter1.Format, Sub() + 'AddHandler rpt.ReportFooter1.Format, Sub() - rpt.lblSumNetto.Text = sumNetto.ToString("N2") - rpt.lblSumMwst.Text = sumMWST.ToString("N2") - rpt.lblSumBrutto.Text = sumBrutto.ToString("N2") + ' rpt.lblSumNetto.Text = sumNetto.ToString("N2") + ' rpt.lblSumMwst.Text = sumMWST.ToString("N2") + ' rpt.lblSumBrutto.Text = sumBrutto.ToString("N2") - End Sub + ' End Sub - print.Viewer.LoadDocument(rpt) - print.Viewer.ViewType = GrapeCity.Viewer.Common.Model.ViewType.Continuous - print.Show() + 'print.Viewer.LoadDocument(rpt) + 'print.Viewer.ViewType = GrapeCity.Viewer.Common.Model.ViewType.Continuous + 'print.Show() Catch ex As System.Exception diff --git a/VERAG_PROG_ALLGEMEIN/Schnittstellen/TIMAS/cTimasAPI.vb b/VERAG_PROG_ALLGEMEIN/Schnittstellen/TIMAS/cTimasAPI.vb index 11b4ffd7..7aff3256 100644 --- a/VERAG_PROG_ALLGEMEIN/Schnittstellen/TIMAS/cTimasAPI.vb +++ b/VERAG_PROG_ALLGEMEIN/Schnittstellen/TIMAS/cTimasAPI.vb @@ -263,7 +263,7 @@ Public Class cTimasAPI success = json.UpdateString("phone1", mitarbeiter.mit_telefonnr & " " & mitarbeiter.mit_durchwahl) success = json.UpdateString("phone2", mitarbeiter.mit_mobiltel) success = json.UpdateString("password", mitarbeiter.mit_pwd) - success = json.UpdateString("clientNumber", IIf(ClientNr <> "", ClientNr, mitarbeiter.mit_firma & " - " & mitarbeiter.mit_abteilung)) + success = json.UpdateString("clientNumber", IIf(ClientNr <> "", ClientNr, mitarbeiter.mit_firma)) success = json.UpdateBool("resetPassword", 0) Dim i As Integer = 0 diff --git a/VERAG_PROG_ALLGEMEIN/Schnittstellen/cTherefore.vb b/VERAG_PROG_ALLGEMEIN/Schnittstellen/cTherefore.vb index ed5bc5e0..877bf876 100644 --- a/VERAG_PROG_ALLGEMEIN/Schnittstellen/cTherefore.vb +++ b/VERAG_PROG_ALLGEMEIN/Schnittstellen/cTherefore.vb @@ -20,7 +20,7 @@ Public Class cTherefore 'Return saveFileTo_ImportFolderCat(Path, FilialeAbfertigungsNr, AvisoId, "Import ab Jänner 2021", "Import ab Jänner 2021", deleteFileAfterImport) 'Return saveFileTo_ImportFolderCat(Path, FilialeAbfertigungsNr, AvisoId, "Import ab Jänner 2022", "Import ab Jänner 2022", deleteFileAfterImport) 'Return saveFileTo_ImportFolderCat(Path, FilialeAbfertigungsNr, AvisoId, "Import ab Jänner 2023", "Import ab Jänner 2023", deleteFileAfterImport) - Return saveFileTo_ImportFolderCat(Path, FilialeAbfertigungsNr, AvisoId, "Import ab Jänner 2024", "Import ab Jänner 2023", deleteFileAfterImport) + Return saveFileTo_ImportFolderCat(Path, FilialeAbfertigungsNr, AvisoId, "Import ab Jänner 2024", "Import ab Jänner 2024", deleteFileAfterImport) ' Return saveFileTo_ImportFolderCat(Path, FilialeAbfertigungsNr, AvisoId, "Import ab Jänner 2020", "Import ab Jänner 2020", deleteFileAfterImport) Case Else Return False