From 6e023041f92d4c9b12e79d361a6e4e7a97503105 Mon Sep 17 00:00:00 2001 From: Andreas Luxbauer Date: Mon, 29 Jan 2024 14:27:54 +0100 Subject: [PATCH] ATR, Fakt (UNISPED Vorlage Zahlungsziel), Preise --- SDL/Fakturierung/cFakturierung.vb | 62 ++++++++++++----- SDL/Fakturierung/frmRechnungenSuche.vb | 39 +++++++---- .../usrcntlVerzollungspreise.vb | 69 ++++++++++++++++++- SDL/OriginalArchiv_ATR/frmATR.vb | 42 +++++++---- .../frmOriginalArchiv_ATR.vb | 1 + .../usrcntlKundeBearbeitenFull.Designer.vb | 40 +++++++++++ SDL/kunden/usrcntlKundeBearbeitenFull.vb | 2 + VERAG_PROG_ALLGEMEIN/AVISO/cDatenbankAVISO.vb | 40 ++++++++++- .../Classes/cKundenErweitert.vb | 2 + VERAG_PROG_ALLGEMEIN/Classes/cOriginalATR.vb | 4 +- VERAG_PROG_ALLGEMEIN/Classes/cTrdInvoice.vb | 3 +- .../Messenger/frmMessenger.Designer.vb | 13 ++-- VERAG_PROG_ALLGEMEIN/cProgramFunktions.vb | 28 ++++---- 13 files changed, 276 insertions(+), 69 deletions(-) diff --git a/SDL/Fakturierung/cFakturierung.vb b/SDL/Fakturierung/cFakturierung.vb index 93e961c8..e47f504d 100644 --- a/SDL/Fakturierung/cFakturierung.vb +++ b/SDL/Fakturierung/cFakturierung.vb @@ -352,7 +352,7 @@ Public Class cFakturierung End If If RECHNUNG.Firma_ID = 4 Then - strZahlbar &= " ()" + strZahlbar &= " ()" End If ' @@ -541,12 +541,14 @@ Public Class cFakturierung End If Case 21, 22, 23 Dim VORL = RECHNUNG.POSITIONEN.FindAll(Function(x) (x.LeistungsNr = 700 Or x.LeistungsNr = 710)) + ' If ZZKdZahlungszielVL <> ZZKdZahlungsziel Then If VORL IsNot Nothing AndAlso VORL.Count > 0 Then - Select Case RECHNUNG.RechnungSprache - Case "EN" : strText = strText.Replace("", "If payment is received by , you can deduct the template commission charged. " & vbCrLf) - Case Else : strText = strText.Replace("", "Bei Zahlungseingang bis zum können Sie die verrechnete Vorlageprovision in Abzug bringen. " & vbCrLf) - End Select - End If + Select Case RECHNUNG.RechnungSprache + Case "EN" : strText = strText.Replace("", "If payment is received by , you can deduct the template commission charged. " & vbCrLf) + Case Else : strText = strText.Replace("", "Bei Zahlungseingang bis zum können Sie die verrechnete Vorlageprovision in Abzug bringen. " & vbCrLf) + End Select + End If + ' End If End Select 'strText = strZahlbar & vbNewLine & strText @@ -1057,10 +1059,17 @@ Public Class cFakturierung End Select Dim ZZTage = 10 + Dim ZZTageVL = 10 Dim ZZKdZahlungsziel = SQL.DLookup("Zahlungsziel", "Kunden", "Kundennr=" & RECHNUNG.RechnungsKundenNr, "FMZOLL", 10) If ZZKdZahlungsziel IsNot Nothing AndAlso IsNumeric(ZZKdZahlungsziel) Then ZZTage = ZZKdZahlungsziel + ZZTageVL = ZZTage End If + Dim ZZKdZahlungszielVL = SQL.DLookup("kde_abweichendesZZVL", "tblKundenErweitert", "kde_KundenNr=" & RECHNUNG.RechnungsKundenNr, "FMZOLL", 10) + If ZZKdZahlungszielVL IsNot Nothing AndAlso IsNumeric(ZZKdZahlungszielVL) Then + ZZTageVL = ZZKdZahlungszielVL + End If + Select Case RECHNUNG.RechnungSprache Case "EN" : rpt.Label2.Text = ZZTage & " Days" : rpt.Label1.Text = "Payment target:" Case Else : rpt.Label2.Text = ZZTage & " Tage" @@ -1379,8 +1388,13 @@ Public Class cFakturierung If vorschau Then - rpt.txtVermerk.Text = rpt.txtVermerk.Text.Replace("", Now.AddDays(ZZTage).ToShortDateString) - rpt.TextBox1.Text = rpt.TextBox1.Text.Replace("", Now.AddDays(ZZTage).ToShortDateString) + rpt.txtVermerk.Text = rpt.txtVermerk.Text.Replace("", Now.AddDays(10).ToShortDateString) + rpt.txtVermerk.Text = rpt.txtVermerk.Text.Replace("", Now.AddDays(ZZTage).ToShortDateString) + rpt.txtVermerk.Text = rpt.txtVermerk.Text.Replace("", Now.AddDays(ZZTageVL).ToShortDateString) + rpt.TextBox1.Text = rpt.TextBox1.Text.Replace("", Now.AddDays(10).ToShortDateString) + rpt.TextBox1.Text = rpt.TextBox1.Text.Replace("", Now.AddDays(ZZTage).ToShortDateString) + + rpt.TextBox1.Text = rpt.TextBox1.Text.Replace("", Now.AddDays(ZZTageVL).ToShortDateString) cProgramFunctions.showRpt(rpt, "Rechnungsdruck", False) @@ -1398,11 +1412,19 @@ Public Class cFakturierung rpt.lblRgDatum.Text = CDate(RECHNUNG.RechnungsDatum).ToShortDateString If RECHNUNG.RechnungsDatum IsNot Nothing Then 'Muss zweimal vorkommen, Erstmaliger Druck - rpt.txtVermerk.Text = rpt.txtVermerk.Text.Replace("", CDate(RECHNUNG.RechnungsDatum).AddDays(ZZTage).ToShortDateString) - rpt.TextBox1.Text = rpt.TextBox1.Text.Replace("", CDate(RECHNUNG.RechnungsDatum).AddDays(ZZTage).ToShortDateString) + rpt.txtVermerk.Text = rpt.txtVermerk.Text.Replace("", CDate(RECHNUNG.RechnungsDatum).AddDays(10).ToShortDateString) + rpt.txtVermerk.Text = rpt.txtVermerk.Text.Replace("", CDate(RECHNUNG.RechnungsDatum).AddDays(ZZTage).ToShortDateString) + rpt.TextBox1.Text = rpt.TextBox1.Text.Replace("", CDate(RECHNUNG.RechnungsDatum).AddDays(10).ToShortDateString) + rpt.TextBox1.Text = rpt.TextBox1.Text.Replace("", CDate(RECHNUNG.RechnungsDatum).AddDays(ZZTageVL).ToShortDateString) + rpt.TextBox1.Text = rpt.TextBox1.Text.Replace("", CDate(RECHNUNG.RechnungsDatum).AddDays(ZZTage).ToShortDateString) + rpt.txtVermerk.Text = rpt.txtVermerk.Text.Replace("", CDate(RECHNUNG.RechnungsDatum).AddDays(ZZTageVL).ToShortDateString) Else - rpt.txtVermerk.Text = rpt.txtVermerk.Text.Replace("", Now.AddDays(ZZTage).ToShortDateString) - rpt.TextBox1.Text = rpt.TextBox1.Text.Replace("", Now.AddDays(ZZTage).ToShortDateString) + rpt.txtVermerk.Text = rpt.txtVermerk.Text.Replace("", Now.AddDays(10).ToShortDateString) + rpt.txtVermerk.Text = rpt.txtVermerk.Text.Replace("", Now.AddDays(ZZTage).ToShortDateString) + rpt.TextBox1.Text = rpt.TextBox1.Text.Replace("", Now.AddDays(10).ToShortDateString) + rpt.TextBox1.Text = rpt.TextBox1.Text.Replace("", Now.AddDays(ZZTage).ToShortDateString) + rpt.TextBox1.Text = rpt.TextBox1.Text.Replace("", Now.AddDays(ZZTageVL).ToShortDateString) + rpt.txtVermerk.Text = rpt.txtVermerk.Text.Replace("", Now.AddDays(ZZTageVL).ToShortDateString) End If Else @@ -1416,11 +1438,19 @@ Public Class cFakturierung Else If RECHNUNG.RechnungsDatum IsNot Nothing Then 'Muss zweimal vorkommen, Wiederholungsdruck - rpt.txtVermerk.Text = rpt.txtVermerk.Text.Replace("", CDate(RECHNUNG.RechnungsDatum).AddDays(ZZTage).ToShortDateString) - rpt.TextBox1.Text = rpt.TextBox1.Text.Replace("", CDate(RECHNUNG.RechnungsDatum).AddDays(ZZTage).ToShortDateString) + rpt.txtVermerk.Text = rpt.txtVermerk.Text.Replace("", CDate(RECHNUNG.RechnungsDatum).AddDays(10).ToShortDateString) + rpt.txtVermerk.Text = rpt.txtVermerk.Text.Replace("", CDate(RECHNUNG.RechnungsDatum).AddDays(ZZTage).ToShortDateString) + rpt.TextBox1.Text = rpt.TextBox1.Text.Replace("", CDate(RECHNUNG.RechnungsDatum).AddDays(10).ToShortDateString) + rpt.TextBox1.Text = rpt.TextBox1.Text.Replace("", CDate(RECHNUNG.RechnungsDatum).AddDays(ZZTageVL).ToShortDateString) + rpt.TextBox1.Text = rpt.TextBox1.Text.Replace("", CDate(RECHNUNG.RechnungsDatum).AddDays(ZZTage).ToShortDateString) + rpt.txtVermerk.Text = rpt.txtVermerk.Text.Replace("", CDate(RECHNUNG.RechnungsDatum).AddDays(ZZTageVL).ToShortDateString) Else - rpt.txtVermerk.Text = rpt.txtVermerk.Text.Replace("", Now.AddDays(ZZTage).ToShortDateString) - rpt.TextBox1.Text = rpt.TextBox1.Text.Replace("", Now.AddDays(ZZTage).ToShortDateString) + rpt.txtVermerk.Text = rpt.txtVermerk.Text.Replace("", Now.AddDays(10).ToShortDateString) + rpt.txtVermerk.Text = rpt.txtVermerk.Text.Replace("", Now.AddDays(ZZTage).ToShortDateString) + rpt.TextBox1.Text = rpt.TextBox1.Text.Replace("", Now.AddDays(10).ToShortDateString) + rpt.TextBox1.Text = rpt.TextBox1.Text.Replace("", Now.AddDays(ZZTage).ToShortDateString) + rpt.TextBox1.Text = rpt.TextBox1.Text.Replace("", Now.AddDays(ZZTageVL).ToShortDateString) + rpt.txtVermerk.Text = rpt.txtVermerk.Text.Replace("", Now.AddDays(ZZTageVL).ToShortDateString) End If If RECHNUNG.[DruckDatumZeit] Is Nothing Then diff --git a/SDL/Fakturierung/frmRechnungenSuche.vb b/SDL/Fakturierung/frmRechnungenSuche.vb index 0c60e68d..5312ca2c 100644 --- a/SDL/Fakturierung/frmRechnungenSuche.vb +++ b/SDL/Fakturierung/frmRechnungenSuche.vb @@ -530,29 +530,40 @@ Public Class frmRechnungenSuche Private Sub btnExcel_Click(sender As Object, e As EventArgs) Handles btnExcel.Click - Dim sqlstr As String = "" - ' Dim TopMax = If(IsNumeric(txtMaxSrch.Text), " TOP " & txtMaxSrch.Text, "") - sqlstr &= "SELECT RK_ID,[RechnungsNr],cast([RechnungsDatum] as date) RechnungsDatum, Sammelrechnung, [FilialenNr],[AbfertigungsNr],[UnterNr],cast(Abfertigungsdatum as date) Abfertigungsdatum, isnull(cast(RechnungsKundenNr as nvarchar(10)) + ' ','') + [RechnungsName 1] as [RechnungAn], " & - " isnull(cast([AbsenderKundenNr] as nvarchar(10)) + ' ','') + [AbsenderName 1] as Absender,isnull(cast([EmpfängerKundenNr] as nvarchar(10)) + ' ','') + [EmpfängerName 1] as Empfänger, isnull(cast([VermittlerKundenNr] as nvarchar(10)) + ' ','') + [VermittlerName 1] as Vermittler, [LKW Kennzeichen],Sachbearbeiter,[SteuerpflichtigerGesamtbetrag],[SteuerfreierGesamtbetrag] " & - " FROM [Rechnungsausgang] WHERE 1=1 " - Dim dt = SQL.loadDgvBySql_Param(sqlstr & getRechnungsAusgangWhere() & " ORDER BY Rechnungsdatum, RK_ID", "FMZOLL", , getSpedbuchList) - - Me.Cursor = Cursors.WaitCursor 'cProgramFunctions.genExcelFromDGV_NEW(DataGridView, False) If brexitXLS Then - cProgramFunctions.genExcelFromDT_NEW(dt, {"J1:J" & (dt.Rows.Count + 2), "L1:M" & (dt.Rows.Count + 2)},,,, "£") + cProgramFunctions.genExcelFromDT_NEW(DataGridView.DataSource, {"J1:J" & (DataGridView.DataSource.Rows.Count + 2), "L1:M" & (DataGridView.DataSource.Rows.Count + 2)},,,, "£") Else - cProgramFunctions.genExcelFromDT_NEW(dt, {"M1:N" & (dt.Rows.Count + 2)}) + cProgramFunctions.genExcelFromDT_NEW(DataGridView.DataSource, {"M1:N" & (DataGridView.DataSource.Rows.Count + 2)}) End If Me.Cursor = Cursors.Default + + + 'Dim sqlstr As String = "" + '' Dim TopMax = If(IsNumeric(txtMaxSrch.Text), " TOP " & txtMaxSrch.Text, "") + 'sqlstr &= "SELECT RK_ID,[RechnungsNr],cast([RechnungsDatum] as date) RechnungsDatum, Sammelrechnung, [FilialenNr],[AbfertigungsNr],[UnterNr],cast(Abfertigungsdatum as date) Abfertigungsdatum, isnull(cast(RechnungsKundenNr as nvarchar(10)) + ' ','') + [RechnungsName 1] as [RechnungAn], " & + ' " isnull(cast([AbsenderKundenNr] as nvarchar(10)) + ' ','') + [AbsenderName 1] as Absender,isnull(cast([EmpfängerKundenNr] as nvarchar(10)) + ' ','') + [EmpfängerName 1] as Empfänger, isnull(cast([VermittlerKundenNr] as nvarchar(10)) + ' ','') + [VermittlerName 1] as Vermittler, [LKW Kennzeichen],Sachbearbeiter,[SteuerpflichtigerGesamtbetrag],[SteuerfreierGesamtbetrag] " & + ' " FROM [Rechnungsausgang] WHERE 1=1 " + 'Dim dt = SQL.loadDgvBySql_Param(sqlstr & getRechnungsAusgangWhere() & " ORDER BY Rechnungsdatum, RK_ID", "FMZOLL", , getSpedbuchList) + + + + 'Me.Cursor = Cursors.WaitCursor + ''cProgramFunctions.genExcelFromDGV_NEW(DataGridView, False) 'If brexitXLS Then - ' cProgramFunctions.genExcelFromDT_NEW(DataGridView.DataSource, {"J1:J" & (DataGridView.DataSource.Rows.Count + 2), "L1:M" & (DataGridView.DataSource.Rows.Count + 2)},,,, "£") + ' cProgramFunctions.genExcelFromDT_NEW(dt, {"J1:J" & (dt.Rows.Count + 2), "L1:M" & (dt.Rows.Count + 2)},,,, "£") 'Else - ' cProgramFunctions.genExcelFromDT_NEW(DataGridView.DataSource, {"M1:N" & (DataGridView.DataSource.Rows.Count + 2)}) + ' cProgramFunctions.genExcelFromDT_NEW(dt, {"M1:N" & (dt.Rows.Count + 2)}) 'End If 'Me.Cursor = Cursors.Default + ''If brexitXLS Then + '' cProgramFunctions.genExcelFromDT_NEW(DataGridView.DataSource, {"J1:J" & (DataGridView.DataSource.Rows.Count + 2), "L1:M" & (DataGridView.DataSource.Rows.Count + 2)},,,, "£") + ''Else + '' cProgramFunctions.genExcelFromDT_NEW(DataGridView.DataSource, {"M1:N" & (DataGridView.DataSource.Rows.Count + 2)}) + ''End If + ''Me.Cursor = Cursors.Default End Sub Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click @@ -800,9 +811,11 @@ Public Class frmRechnungenSuche /*and Rechnungsausgang.SteuerpflichtigerGesamtbetrag<>0*/ /*and Leistungen.Steuerpflichtig=1*/ and (Leistungen.Abfertigungskosten=1 or Leistungen.LeistungsNr IN (656,425)) - and RechnungsausgangPositionen.LeistungsNr NOT IN (700,710,750,751) + and RechnungsausgangPositionen.LeistungsNr NOT IN (700,710,750,751,20,60,61) and Firma_ID=26 " + + MsgBox(sqlStr & getRechnungsAusgangWhere() & " order by [RechnungsDatum],RechnungsNr,RechnungsausgangPositionen.LeistungsNr") .SET_SQL(sqlStr & getRechnungsAusgangWhere() & " order by [RechnungsDatum],RechnungsNr,RechnungsausgangPositionen.LeistungsNr", "FMZOLL", getSpedbuchList) .LOAD() diff --git a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungspreise.vb b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungspreise.vb index f6309b9d..1301cf94 100644 --- a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungspreise.vb +++ b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungspreise.vb @@ -86,6 +86,7 @@ 'MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollung EV", "VZ_EV")) ' MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollung Rückware", "VZ_RW")) MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VZ Gemüse,Arznei,Lebensmittel", "VZ_SPECIAL_1")) + MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VZ Lebensmittel Backwaren", "VZ_SPECIAL_2")) MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("nur EUST", "EUST")) 'If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("FISKAL_Preise", Me.FindForm) Then MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollung Fiskal AT", "VZ_FISKAL")) @@ -100,6 +101,7 @@ cboFirma.changeItem("AMBAR") MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollung", "VZ")) MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VZ Gemüse,Arznei,Lebensmittel", "VZ_SPECIAL_1")) + MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VZ Lebensmittel Backwaren", "VZ_SPECIAL_2")) MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollung Rückware", "VZ_RW")) MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollung Fiskal DE", "VZ_FISKAL_DE")) MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("T1", "VZ")) @@ -114,6 +116,7 @@ ' MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollung Rückware", "VZ_RW")) MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("nur EUST", "EUST")) MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VZ Gemüse,Arznei,Lebensmittel", "VZ_SPECIAL_1")) + MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VZ Lebensmittel Backwaren", "VZ_SPECIAL_2")) If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("FISKAL_Preise", Me.FindForm) Then MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollung Fiskal AT", "VZ_FISKAL")) @@ -277,7 +280,7 @@ ' cboFirma.changeItem("AG") Case "VZ_SPECIAL_1" '"VZ Gemüse,Arznei,Lebensmittel" - DataGridView.Rows.Add(cnt, "", "Verzollung (inkl. 1 Tarifnummer)", CDbl(139).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "", "Verzollung Gemüse/Arznei/Lebensmittel (inkl. 1 Tarifnummer)", CDbl(198).ToString("C2")) : cnt += 1 DataGridView.Rows.Add(cnt, "", "je weitere Tarifnummer", CDbl(18).ToString("C2")) : cnt += 1 DataGridView.Rows.Add(cnt, "440", "Fixe Taxe", CDbl(15).ToString("C2")) : cnt += 1 DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1 @@ -286,6 +289,24 @@ DataGridView.Rows.Add(cnt, "750", "2 % Kreditaufwendung (von Einfuhrabgaben)", "") : cnt += 1 + dgvZusatzleistung.Rows.Add("", "347", "Compliance Check (EINMALIG nur bei 1. Abfertigung)", CDbl(80).ToString("C2")) + dgvZusatzleistung.Rows.Add("", "", "Korr. Rechnung anfordern", CDbl(25).ToString("C2")) + dgvZusatzleistung.Rows.Add("", "380", "Übersetzung Rechnung", CDbl(1.5).ToString("C2") & "/min") + + dgvZusatzleistung.Rows.Add("", "", "Aufschlag Rückwarenverzollung/Aktive Veredelung", CDbl(17).ToString("C2")) + dgvZusatzleistung.Rows.Add("", "", "Neutralisierung", CDbl(15).ToString("C2")) + dgvZusatzleistung.Rows.Add("", "348", "Avisokosten (Vorkasse)", CDbl(24).ToString("C2")) + + Case "VZ_SPECIAL_2" '"VZ Backwaren" + DataGridView.Rows.Add(cnt, "", "Verzollung Lebensmittel Backwaren (inkl. 1 Tarifnummer)", CDbl(298).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "", "je weitere Tarifnummer", CDbl(25).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "440", "Fixe Taxe", CDbl(15).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1 + DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) Zuschlag", CDbl(8).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "700", "1 % Vorlageprovision (von Einfuhrabgaben)", "") : cnt += 1 + DataGridView.Rows.Add(cnt, "750", "2 % Kreditaufwendung (von Einfuhrabgaben)", "") : cnt += 1 + + dgvZusatzleistung.Rows.Add("", "347", "Compliance Check (EINMALIG nur bei 1. Abfertigung)", CDbl(80).ToString("C2")) dgvZusatzleistung.Rows.Add("", "", "Korr. Rechnung anfordern", CDbl(25).ToString("C2")) dgvZusatzleistung.Rows.Add("", "380", "Übersetzung Rechnung", CDbl(1.5).ToString("C2") & "/min") @@ -374,7 +395,7 @@ DataGridView.Rows.Add(cnt, "", "T1/T2 Abfertigung", CDbl(60).ToString("C2")) : cnt += 1 Case "VZ_SPECIAL_1" '"VZ Gemüse,Arznei,Lebensmittel" - DataGridView.Rows.Add(cnt, "", "Verzollung (inkl. 1 Tarifnummer)", CDbl(158).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "", "Verzollung Gemüse,Arznei,Lebensmittel (inkl. 1 Tarifnummer)", CDbl(198).ToString("C2")) : cnt += 1 DataGridView.Rows.Add(cnt, "", "je weitere Tarifnummer", CDbl(18).ToString("C2")) : cnt += 1 DataGridView.Rows.Add(cnt, "", "Aviso", CDbl(20).ToString("C2")) : cnt += 1 DataGridView.Rows.Add(cnt, "440", "Fixe Taxe", CDbl(15).ToString("C2")) : cnt += 1 @@ -386,6 +407,27 @@ DataGridView.Rows.Add(cnt, "750", "2 % Kreditaufwendung (von Einfuhrabgaben)", "") : cnt += 1 + dgvZusatzleistung.Rows.Add("", "347", "Clearingkosten (EINMALIG nur bei 1. Abfertigung)", CDbl(40).ToString("C2")) + dgvZusatzleistung.Rows.Add("", "", "Korr. Rechnung anfordern", CDbl(25).ToString("C2")) + ' dgvZusatzleistung.Rows.Add("", "380", "Übersetzung Rechnung", CDbl(1.5).ToString("C2") & "/min") + + dgvZusatzleistung.Rows.Add("", "", "Aufschlag Rückwarenverzollung/Aktive Veredelung", CDbl(17).ToString("C2")) + dgvZusatzleistung.Rows.Add("", "348", "Fremdgrenze", CDbl(20).ToString("C2")) + dgvZusatzleistung.Rows.Add("", "", "Neutralisierung", CDbl(15).ToString("C2")) + + Case "VZ_SPECIAL_2" '"VZ Backwaren" + DataGridView.Rows.Add(cnt, "", "Verzollung Backwaren (inkl. 1 Tarifnummer)", CDbl(298).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "", "je weitere Tarifnummer", CDbl(25).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "", "Aviso", CDbl(20).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "440", "Fixe Taxe", CDbl(15).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "440", "Papiere Porti", CDbl(10).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "440", "Sonstige Kosten*", CDbl(40).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1 + DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) Zuschlag", CDbl(10).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "700", "1 % Vorlageprovision (von Einfuhrabgaben)", "") : cnt += 1 + DataGridView.Rows.Add(cnt, "750", "2 % Kreditaufwendung (von Einfuhrabgaben)", "") : cnt += 1 + + dgvZusatzleistung.Rows.Add("", "347", "Clearingkosten (EINMALIG nur bei 1. Abfertigung)", CDbl(40).ToString("C2")) dgvZusatzleistung.Rows.Add("", "", "Korr. Rechnung anfordern", CDbl(25).ToString("C2")) ' dgvZusatzleistung.Rows.Add("", "380", "Übersetzung Rechnung", CDbl(1.5).ToString("C2") & "/min") @@ -525,7 +567,7 @@ cboFirma.changeItem("AG") Case "VZ_SPECIAL_1" '"VZ Gemüse,Arznei,Lebensmittel" - DataGridView.Rows.Add(cnt, "", "Verzollung (inkl. 1 Tarifnummer)", CDbl(168).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "", "Verzollung Gemüse,Arznei,Lebensmittel (inkl. 1 Tarifnummer)", CDbl(198).ToString("C2")) : cnt += 1 DataGridView.Rows.Add(cnt, "", "je weitere Tarifnummer", CDbl(18).ToString("C2")) : cnt += 1 DataGridView.Rows.Add(cnt, "440", "Fixe Taxe", CDbl(15).ToString("C2")) : cnt += 1 DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1 @@ -534,6 +576,27 @@ DataGridView.Rows.Add(cnt, "750", "2 % Kreditaufwendung (von Einfuhrabgaben)", "") : cnt += 1 + dgvZusatzleistung.Rows.Add("", "347", "Compliance Check (EINMALIG nur bei 1. Abfertigung)", CDbl(80).ToString("C2")) + dgvZusatzleistung.Rows.Add("", "", "Korr. Rechnung anfordern", CDbl(25).ToString("C2")) + dgvZusatzleistung.Rows.Add("", "380", "Übersetzung Rechnung", CDbl(1.5).ToString("C2") & "/min") + + dgvZusatzleistung.Rows.Add("", "", "Aufschlag Rückwarenverzollung/Aktive Veredelung", CDbl(17).ToString("C2")) + dgvZusatzleistung.Rows.Add("", "", "Neutralisierung", CDbl(15).ToString("C2")) + dgvZusatzleistung.Rows.Add("", "", "Zollbeschaukosten je 30 min.", CDbl(40).ToString("C2")) + 'dgvZusatzleistung.Rows.Add("", "", "Aufschlag Arzneiwaren oder Lebensmittel", CDbl(25).ToString("C2")) + 'dgvZusatzleistung.Rows.Add("", "", "CMR-Versendungsbeleg", CDbl(25).ToString("C2")) + ' dgvZusatzleistung.Rows.Add("", "", "Ü-T1", CDbl(15).ToString("C2")) + 'dgvZusatzleistung.Rows.Add("", "", "VERAG Warenort", CDbl(60).ToString("C2")) + Case "VZ_SPECIAL_2" '"VZ Gemüse,Arznei,Lebensmittel" + DataGridView.Rows.Add(cnt, "", "Verzollung Lebensmittel Backwaren (inkl. 1 Tarifnummer)", CDbl(298).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "", "je weitere Tarifnummer", CDbl(25).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "440", "Fixe Taxe", CDbl(15).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1 + DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) Zuschlag", CDbl(10).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "700", "1 % Vorlageprovision (von Einfuhrabgaben)", "") : cnt += 1 + DataGridView.Rows.Add(cnt, "750", "2 % Kreditaufwendung (von Einfuhrabgaben)", "") : cnt += 1 + + dgvZusatzleistung.Rows.Add("", "347", "Compliance Check (EINMALIG nur bei 1. Abfertigung)", CDbl(80).ToString("C2")) dgvZusatzleistung.Rows.Add("", "", "Korr. Rechnung anfordern", CDbl(25).ToString("C2")) dgvZusatzleistung.Rows.Add("", "380", "Übersetzung Rechnung", CDbl(1.5).ToString("C2") & "/min") diff --git a/SDL/OriginalArchiv_ATR/frmATR.vb b/SDL/OriginalArchiv_ATR/frmATR.vb index ca5c9c8d..d00c6dae 100644 --- a/SDL/OriginalArchiv_ATR/frmATR.vb +++ b/SDL/OriginalArchiv_ATR/frmATR.vb @@ -58,6 +58,8 @@ Public Class frmATR getValues() 'Falls keine Sendung gewählt, aber FilialeNr/AbfertigungsNr eingegeben: + + If ATR.atr_SendungsId <= 0 And ATR.atr_FilialenNr > 0 And ATR.atr_AbfertigungsNr > 0 Then 'Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL Dim SND = VERAG_PROG_ALLGEMEIN.cSendungen.LOADByFilialenNrAbfertigungsNr(ATR.atr_FilialenNr, ATR.atr_AbfertigungsNr) @@ -67,7 +69,7 @@ Public Class frmATR End If End If - If (ATR.atr_SendungsId > 0 AndAlso ATR.atr_dsId > 0) Or (loadedDSID <> DSID And loadedDSID > 0) Then + If (ATR.atr_SendungsId > 0 AndAlso ATR.atr_dsId > 0) And (loadedDSID <> DSID Or loadedDSID <= 0) Then If vbYes = MsgBox("ATR in Anhang speichern?", vbYesNoCancel) Then If ATR.atr_dsId < 0 Then MsgBox("Kein PDF-Anhang!") @@ -81,6 +83,7 @@ Public Class frmATR ANH.anh_Art = "ATR" ANH.SAVE() 'Eintrag wird überschreiben ATR.atr_anhID = ANH.anh_id + insertVermerkATR(ATR) End If End If @@ -95,6 +98,14 @@ Public Class frmATR Me.DialogResult = DialogResult.None End Sub + Shared Sub insertVermerkATR(ATR As VERAG_PROG_ALLGEMEIN.cOrigianlATR) + + Dim VermerkeCodeID = 110 + VERAG_PROG_ALLGEMEIN.cVermerkeDAL.DeleteSNDVermerkCode(ATR.atr_SendungsId, VermerkeCodeID) 'Alte löschen! + Dim vermerkId = VERAG_PROG_ALLGEMEIN.cVermerkeDAL.insertSendungsVermerk(ATR.atr_SendungsId, ATR.atr_AvisoId, "ATR-Archiv", VermerkeCodeID) + If vermerkId > 0 Then VERAG_PROG_ALLGEMEIN.cVermerkeDAL.toggleHervorheben(vermerkId) 'Hervorheben! + + End Sub Function doValidation() As Boolean lblErr_Ausstellungsdatum.Visible = False @@ -135,8 +146,8 @@ Public Class frmATR txtDocNumber.Text = If(ATR.atr_documentNr, "") txtDocDatum._value = If(ATR.atr_austellungsdatum, "") txtKennzeichen.Text = If(ATR.atr_LKW, "") - txtFiliale.Text = If(ATR.atr_FilialenNr > 0, ATR.atr_FilialenNr, "") - txtAbfNr.Text = If(ATR.atr_AbfertigungsNr > 0, ATR.atr_AbfertigungsNr, "") + txtFiliale._value = If(ATR.atr_FilialenNr > 0, ATR.atr_FilialenNr, "") + txtAbfNr._value = If(ATR.atr_AbfertigungsNr > 0, ATR.atr_AbfertigungsNr, "") sbAvisoSuche.SET_VALUE(ATR.atr_SendungsId) @@ -167,7 +178,7 @@ Public Class frmATR If txtAbfNr._value <> "" Then ATR.atr_AbfertigungsNr = txtAbfNr._value ATR.atr_LKW = txtKennzeichen.Text - ATR.atr_SendungsId = sbAvisoSuche._value + ATR.atr_SendungsId = If(sbAvisoSuche._value <> "", sbAvisoSuche._value, -1) If sbAvisoSuche._value <> "" Then Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL ATR.atr_AvisoId = SQL.DLookup("tblSnd_AvisoId", "tblSendungen", " tblSnd_SendungID='" & sbAvisoSuche._value & "'", "AVISO", -1) @@ -262,17 +273,20 @@ Public Class frmATR Private Sub sbAvisoSuche_TextChanged() Handles sbAvisoSuche.VALUE_CHANGED txtFiliale.Text = "" txtAbfNr.Text = "" - Dim SND As New VERAG_PROG_ALLGEMEIN.cSendungen(sbAvisoSuche._value) - If SND IsNot Nothing Then - Dim AVISO = VERAG_PROG_ALLGEMEIN.cAviso.getAvisoById(SND.tblSnd_AvisoID) - txtFiliale.Text = SND.FilialenNr - txtAbfNr.Text = SND.AbfertigungsNr - lblLKWId.Text = SND.tblSnd_AvisoID - If AVISO IsNot Nothing Then - txtKennzeichen.Text = AVISO.LKW_Nr + If sbAvisoSuche._value <> "" Then + + Dim SND As New VERAG_PROG_ALLGEMEIN.cSendungen(sbAvisoSuche._value) + If SND IsNot Nothing Then + Dim AVISO = VERAG_PROG_ALLGEMEIN.cAviso.getAvisoById(SND.tblSnd_AvisoID) + txtFiliale._value = SND.FilialenNr + txtAbfNr._value = SND.AbfertigungsNr + lblLKWId.Text = SND.tblSnd_AvisoID + If AVISO IsNot Nothing Then + txtKennzeichen.Text = AVISO.LKW_Nr + End If + ' lblKennzeichen.Visible = True + lblLKWId.Visible = True End If - ' lblKennzeichen.Visible = True - lblLKWId.Visible = True End If End Sub diff --git a/SDL/OriginalArchiv_ATR/frmOriginalArchiv_ATR.vb b/SDL/OriginalArchiv_ATR/frmOriginalArchiv_ATR.vb index e0dc0d16..5e66e5ea 100644 --- a/SDL/OriginalArchiv_ATR/frmOriginalArchiv_ATR.vb +++ b/SDL/OriginalArchiv_ATR/frmOriginalArchiv_ATR.vb @@ -402,6 +402,7 @@ Public Class frmOriginalArchiv_ATR ATR.atr_FilialenNr = SND.FilialenNr ATR.atr_AbfertigungsNr = SND.AbfertigungsNr If ATR.SAVE() Then + frmATR.insertVermerkATR(ATR) Me.Close() End If End If diff --git a/SDL/kunden/usrcntlKundeBearbeitenFull.Designer.vb b/SDL/kunden/usrcntlKundeBearbeitenFull.Designer.vb index c795b3f6..3fc1fd3c 100644 --- a/SDL/kunden/usrcntlKundeBearbeitenFull.Designer.vb +++ b/SDL/kunden/usrcntlKundeBearbeitenFull.Designer.vb @@ -337,6 +337,8 @@ Partial Class usrcntlKundeBearbeitenFull Me.cboFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.cboAuswahl = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.DataGridViewTextBoxColumn2 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.txtAbwZZVL = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Label101 = New System.Windows.Forms.Label() Me.tbcntrDetails.SuspendLayout() Me.tbAbfertigung.SuspendLayout() Me.tbcntrAbf.SuspendLayout() @@ -1056,6 +1058,8 @@ Partial Class usrcntlKundeBearbeitenFull ' 'tbVerrechnung ' + Me.tbVerrechnung.Controls.Add(Me.Label101) + Me.tbVerrechnung.Controls.Add(Me.txtAbwZZVL) Me.tbVerrechnung.Controls.Add(Me.cbxSndDatenAusSTB) Me.tbVerrechnung.Controls.Add(Me.Label95) Me.tbVerrechnung.Controls.Add(Me.cbxSammelrechnungBerichtLeistungsdetails) @@ -4519,6 +4523,40 @@ Partial Class usrcntlKundeBearbeitenFull Me.DataGridViewTextBoxColumn2.HeaderText = "E-Mail" Me.DataGridViewTextBoxColumn2.Name = "DataGridViewTextBoxColumn2" ' + 'txtAbwZZVL + ' + Me.txtAbwZZVL._DateTimeOnly = False + Me.txtAbwZZVL._numbersOnly = True + Me.txtAbwZZVL._numbersOnlyKommastellen = "" + Me.txtAbwZZVL._numbersOnlyTrennzeichen = True + Me.txtAbwZZVL._Prozent = False + Me.txtAbwZZVL._ShortDateNew = False + Me.txtAbwZZVL._ShortDateOnly = False + Me.txtAbwZZVL._TimeOnly = False + Me.txtAbwZZVL._TimeOnly_Seconds = False + Me.txtAbwZZVL._value = "" + Me.txtAbwZZVL._Waehrung = False + Me.txtAbwZZVL._WaehrungZeichen = True + Me.txtAbwZZVL.ForeColor = System.Drawing.Color.Red + Me.txtAbwZZVL.Location = New System.Drawing.Point(191, 66) + Me.txtAbwZZVL.MaxLength = 10 + Me.txtAbwZZVL.MaxLineLength = -1 + Me.txtAbwZZVL.MaxLines_Warning = "" + Me.txtAbwZZVL.MaxLines_Warning_Label = Nothing + Me.txtAbwZZVL.Name = "txtAbwZZVL" + Me.txtAbwZZVL.Size = New System.Drawing.Size(60, 20) + Me.txtAbwZZVL.TabIndex = 41 + Me.txtAbwZZVL.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + ' + 'Label101 + ' + Me.Label101.AutoSize = True + Me.Label101.Location = New System.Drawing.Point(191, 53) + Me.Label101.Name = "Label101" + Me.Label101.Size = New System.Drawing.Size(50, 13) + Me.Label101.TabIndex = 42 + Me.Label101.Text = "abw. ZZ:" + ' 'usrcntlKundeBearbeitenFull ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) @@ -4907,4 +4945,6 @@ Partial Class usrcntlKundeBearbeitenFull Friend WithEvents Label100 As Label Friend WithEvents txtAdresseZusatz As TextBox Friend WithEvents PictureBox5 As PictureBox + Friend WithEvents Label101 As Label + Friend WithEvents txtAbwZZVL As VERAG_PROG_ALLGEMEIN.MyTextBox End Class diff --git a/SDL/kunden/usrcntlKundeBearbeitenFull.vb b/SDL/kunden/usrcntlKundeBearbeitenFull.vb index 9968c4dd..5c0ff564 100644 --- a/SDL/kunden/usrcntlKundeBearbeitenFull.vb +++ b/SDL/kunden/usrcntlKundeBearbeitenFull.vb @@ -218,6 +218,7 @@ Public Class usrcntlKundeBearbeitenFull txtAbf_Bankspesen._value = loadValue(KUNDE.Bankspesen, "") txtAbf_BankspesenMindestbetrag._value = loadValue(KUNDE.Bankspesen_Mindestbetrag, "") txtVers_Kreditlimit.Text = loadValue(KUNDE.Kreditlimit, "") + txtAbwZZVL.Text = loadValue(KUNDE_ERW.kde_abweichendesZZVL, "") txtAbf_Zahlungsziel.Text = loadValue(KUNDE.Zahlungsziel, "") txtAbf_Zahlungsziel2.Text = loadValue(KUNDE_ERW.Zahlungsziel2, "") txtAbf_Zahlungsziel3.Text = loadValue(KUNDE_ERW.Zahlungsziel3, "") @@ -514,6 +515,7 @@ Public Class usrcntlKundeBearbeitenFull KUNDE.Bankspesen_Mindestbetrag = If(IsNumeric(txtAbf_BankspesenMindestbetrag._value), CDbl(txtAbf_BankspesenMindestbetrag._value), 0) KUNDE.Kreditlimit = txtVers_Kreditlimit.Text + KUNDE_ERW.kde_abweichendesZZVL = If(txtAbwZZVL._value <> "" And IsNumeric(txtAbwZZVL._value), txtAbwZZVL._value, Nothing) KUNDE.Zahlungsziel = txtAbf_Zahlungsziel.Text KUNDE_ERW.Zahlungsziel2 = isLeerNothing(txtAbf_Zahlungsziel2.Text) diff --git a/VERAG_PROG_ALLGEMEIN/AVISO/cDatenbankAVISO.vb b/VERAG_PROG_ALLGEMEIN/AVISO/cDatenbankAVISO.vb index bc6d1749..d03e3795 100644 --- a/VERAG_PROG_ALLGEMEIN/AVISO/cDatenbankAVISO.vb +++ b/VERAG_PROG_ALLGEMEIN/AVISO/cDatenbankAVISO.vb @@ -1988,7 +1988,30 @@ Public Class cVermerkeDAL End Function + Shared Function insertSendungsVermerk(SendungID As Integer, AvisoID As Integer, Text As String, VermerkCodeId As Integer, Optional Beschreibung As String = "", Optional VorauskasseId As Object = Nothing, Optional addAuto As Boolean = False) As Integer + 'Daten zuweisen und speichern + Dim myVermerk As New cVermerk + myVermerk.VermerkID = 0 + myVermerk.AvisoID = AvisoID + myVermerk.Datum = Now + myVermerk.Mitarbeiter = cGlobal.AktiverMitarbeiter.Mitarbeiter & If(addAuto, " (AUTO)", "") + myVermerk.MitarbeiterId = cGlobal.AktiverMitarbeiter.MitarbeiterID + myVermerk.Hinweis_Vermerk = Text + myVermerk.VermerkCodeId = VermerkCodeId + 'myVermerk.her = VermerkCodeId + myVermerk.SendungID = SendungID + If VorauskasseId IsNot Nothing AndAlso VorauskasseId IsNot DBNull.Value Then myVermerk.VorauskasseId = VorauskasseId + myVermerk.VermerkArt = "S" + Dim VermerkeDAL As New cVermerkeDAL + insertSendungsVermerk = VermerkeDAL.SpeichernVermerk(myVermerk) + + If myVermerk.VermerkCodeId = 18 Then + VermerkeDAL.UpdateLKW(myVermerk.AvisoID, False) + + End If + + End Function Public Function loadTableMyAviso(maId As Integer) As DataTable ' While True 'Endlosschleife; wird verlassen durch Return oder Application.Exit() Try @@ -2263,7 +2286,7 @@ Public Class cVermerkeDAL End Sub - Public Sub toggleHervorheben(ByVal hID As Integer) + Public Shared Sub toggleHervorheben(ByVal hID As Integer) Dim sql = String.Format("UPDATE Vermerke SET Hervorheben=Hervorheben-1 WHERE VermerkID = {0}", hID) Dim conn As SqlConnection = cDatenbankAVISO.GetNewOpenConnection() @@ -2276,6 +2299,21 @@ Public Class cVermerkeDAL End Using conn.Close() + End Sub + + Public Shared Sub DeleteSNDVermerkCode(ByVal SendungID As Integer, VermerkeCode As Integer) + Dim sql = "DELETE Vermerke WHERE VermerkeCode = '" & VermerkeCode & "' and SendungID= '" & SendungID & "'" + + Dim conn As SqlConnection = cDatenbankAVISO.GetNewOpenConnection() + Using cmd As New SqlCommand(sql, conn) + Try + cmd.ExecuteNonQuery() + Catch ex As SqlException + MsgBox("Hervorheben kann nicht gesetzt werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Hervorheben") + End Try + End Using + conn.Close() + End Sub Public Function Vermerke_einlesen(hAvisoID As Integer) As String 'falls ID mitgegeben, dann diese laden, ansonsten den anderen Wert suchen diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cKundenErweitert.vb b/VERAG_PROG_ALLGEMEIN/Classes/cKundenErweitert.vb index 695558a3..df2490fb 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cKundenErweitert.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/cKundenErweitert.vb @@ -76,6 +76,7 @@ Public Class cKundenErweitert Property kde_Abrechnung_SendungsdatenAusSTB As Boolean = False Property kde_EORIgeprueftAm As Object = Nothing Property kde_AdressZusatz As Object = Nothing + Property kde_abweichendesZZVL As Object = Nothing Dim SQL As New SQL @@ -153,6 +154,7 @@ Public Class cKundenErweitert list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_UIDMehrfachverwendung", kde_UIDMehrfachverwendung)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_EORIgeprueftAm", kde_EORIgeprueftAm)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_AdressZusatz", kde_AdressZusatz)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_abweichendesZZVL", kde_abweichendesZZVL)) Return list End Function diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cOriginalATR.vb b/VERAG_PROG_ALLGEMEIN/Classes/cOriginalATR.vb index 65e0fea0..595ea8ce 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cOriginalATR.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/cOriginalATR.vb @@ -14,8 +14,8 @@ Public Class cOrigianlATR Property atr_empfaengerkdnr As Integer = -1 Property atr_absenderkdnr As Integer = -1 Property atr_austellungsdatum As Object = Nothing - Property atr_AvisoId As Object = Nothing - Property atr_SendungsId As Object = Nothing + Property atr_AvisoId As Integer = -1 + Property atr_SendungsId As Integer = -1 Property atr_LKW As Object = Nothing Property atr_dsId As Object = Nothing Property atr_DHL_ReferenzNr As Object = Nothing diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cTrdInvoice.vb b/VERAG_PROG_ALLGEMEIN/Classes/cTrdInvoice.vb index c0942ed9..42b74f4d 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cTrdInvoice.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/cTrdInvoice.vb @@ -614,8 +614,9 @@ Class TrdInvoice_FUNCTIONS Count(1) AS RK_Satzzähler FROM Rechnungsausgang INNER JOIN RechnungsausgangPositionen ON Rechnungsausgang.RK_ID = RechnungsausgangPositionen.RK_ID WHERE (((Rechnungsausgang.RechnungsDatum) Is Not Null) AND ((Rechnungsausgang.RechnungsNr) Is Not Null) AND ((Rechnungsausgang.Trdin)=0)) " & If(Firma > 0, " and Firma_ID=" & Firma, "") & If(Buchungsjahr > 0, " and Buchungsjahr=" & Buchungsjahr, "") & " - GROUP BY Rechnungsausgang.RechnungsDatum, Rechnungsausgang.RechnungsNr + GROUP BY Rechnungsausgang.RechnungsDatum, Rechnungsausgang.RechnungsNr ORDER BY Rechnungsausgang.RechnungsDatum, Rechnungsausgang.RechnungsNr, min(Rechnungsausgang.Abfertigungsdatum), min(Rechnungsausgang.FilialenNr), min(Rechnungsausgang.AbfertigungsNr), min(Rechnungsausgang.UnterNr);" + '" & If(Firma = 4, " and Rechnungsausgang.RechnungsNr='23800029'", "") & " End Function diff --git a/VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger.Designer.vb b/VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger.Designer.vb index 248466b5..5d1e86b9 100644 --- a/VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger.Designer.vb +++ b/VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger.Designer.vb @@ -24,7 +24,6 @@ Partial Class frmMessenger 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. _ Private Sub InitializeComponent() - Me.components = New System.ComponentModel.Container() Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() @@ -39,11 +38,11 @@ Partial Class frmMessenger Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmMessenger)) Me.SplitContainer = New System.Windows.Forms.SplitContainer() Me.SplitContainer2 = New System.Windows.Forms.SplitContainer() - Me.dgvChats = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) + Me.dgvChats = New VERAG_PROG_ALLGEMEIN.MyDatagridview() Me.Panel6 = New System.Windows.Forms.Panel() Me.lblLKWChat_MsgCntInaktiv = New System.Windows.Forms.Label() Me.cbxInaktiveChats = New System.Windows.Forms.CheckBox() - Me.DGVSonstige = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) + Me.DGVSonstige = New VERAG_PROG_ALLGEMEIN.MyDatagridview() Me.Panel5 = New System.Windows.Forms.Panel() Me.MyTextBox2 = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.PictureBox2 = New System.Windows.Forms.PictureBox() @@ -64,7 +63,7 @@ Partial Class frmMessenger Me.btnNeu = New System.Windows.Forms.Button() Me.Button1 = New System.Windows.Forms.Button() Me.SplitContainer1 = New System.Windows.Forms.SplitContainer() - Me.MyFlowLayoutPanel1 = New VERAG_PROG_ALLGEMEIN.MyFlowLayoutPanel(Me.components) + Me.MyFlowLayoutPanel1 = New VERAG_PROG_ALLGEMEIN.MyFlowLayoutPanel() Me.UsrCntlMessenger_ChatElement1 = New VERAG_PROG_ALLGEMEIN.usrCntlMessenger_ChatElement() Me.Panel3 = New System.Windows.Forms.Panel() Me.btnTeilnehmer = New System.Windows.Forms.Button() @@ -92,9 +91,9 @@ Partial Class frmMessenger Me.btnSendAtt = New System.Windows.Forms.Button() Me.btnSenden = New System.Windows.Forms.Button() Me.rtbChatMessage = New System.Windows.Forms.RichTextBox() - Me.TimerNEW_MESSAGE = New System.Windows.Forms.Timer(Me.components) - Me.Timer_REFRESH = New System.Windows.Forms.Timer(Me.components) - Me.cntxt = New System.Windows.Forms.ContextMenuStrip(Me.components) + Me.TimerNEW_MESSAGE = New System.Windows.Forms.Timer() + Me.Timer_REFRESH = New System.Windows.Forms.Timer() + Me.cntxt = New System.Windows.Forms.ContextMenuStrip() Me.ChatDeaktivierenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.toolChatReminder = New System.Windows.Forms.ToolStripMenuItem() Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn() diff --git a/VERAG_PROG_ALLGEMEIN/cProgramFunktions.vb b/VERAG_PROG_ALLGEMEIN/cProgramFunktions.vb index dda71b88..bc57ccd9 100644 --- a/VERAG_PROG_ALLGEMEIN/cProgramFunktions.vb +++ b/VERAG_PROG_ALLGEMEIN/cProgramFunktions.vb @@ -493,19 +493,23 @@ Public Class cProgramFunctions End Sub Public Shared Function getFilePathTypeValid(filePath) As String - Dim fi As New FileInfo(filePath) - Dim filename = fi.Name - Dim Typ = "" - Select Case fi.Extension.ToString.Replace(".", "").ToUpper - Case "PDF" : Typ = "PDF" - Case "XLS", "XLM", "XLSM", "XLSX", "CSV" : Typ = "EXCEL" - Case "DOC", "DOCX" : Typ = "WORD" - Case "TXT" : Typ = "TEXT" - Case "JPEG", "JPG", "GIF", "TFF" : Typ = "BILD" - Case "EXE" : MsgBox("Aviso-Anhänge: Ungültiges Datei-Format!") : Return False - Case Else : Typ = "SONSTIGES" - End Select + If filePath <> "" Then + + Dim fi As New FileInfo(filePath) + Dim filename = fi.Name + + + Select Case fi.Extension.ToString.Replace(".", "").ToUpper + Case "PDF" : Typ = "PDF" + Case "XLS", "XLM", "XLSM", "XLSX", "CSV" : Typ = "EXCEL" + Case "DOC", "DOCX" : Typ = "WORD" + Case "TXT" : Typ = "TEXT" + Case "JPEG", "JPG", "GIF", "TFF" : Typ = "BILD" + Case "EXE" : MsgBox("Aviso-Anhänge: Ungültiges Datei-Format!") : Return False + Case Else : Typ = "SONSTIGES" + End Select + End If Return Typ End Function