From f50fd37b90e9701fe041788f1e070dcd4c5b2193 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Tue, 24 Jun 2025 13:32:40 +0200 Subject: [PATCH] Mailsender, Start --- MailSender/MAILSender.vb | 15 +++++------ .../frmNachrichtenVerarbeitung_MDM_divers.vb | 14 ++++++---- initATLASAufschubkonten/frmStartOptions.vb | 26 ++++++++++++++----- 3 files changed, 36 insertions(+), 19 deletions(-) diff --git a/MailSender/MAILSender.vb b/MailSender/MAILSender.vb index 4dffad3..02c70c5 100644 --- a/MailSender/MAILSender.vb +++ b/MailSender/MAILSender.vb @@ -52,7 +52,7 @@ Module Mail 'PARAM = "THYSSENKRUPP_AUSWERTUNG" 'PARAM = "JAHRESABRECHNUNG AG-ZS" - 'PARAM = "" + '------------------------------------------------------------------------------------ ' PARAM = "NCTSLIST_TOBB" @@ -2161,7 +2161,7 @@ Module Mail Dim KUNDENADR = New VERAG_PROG_ALLGEMEIN.cAdressen(KdNr) Dim sqlstr As String = "" - sqlstr &= "SELECT CAST([FilialenNr] as varchar) + '/' + CAST([AbfertigungsNr] as varchar) Abfertigungsnummer,cast([Abfertigungsdatum] as date)Abfertigungsdatum,Absender,Rechnungsbetrag Betrag ,BelegNr,[FilialenNr],[AbfertigungsNr],Speditionsbuch.Abfertigungsart,Abfertigungsbezeichnung" + sqlstr &= "SELECT CAST([FilialenNr] as varchar) + '/' + CAST([AbfertigungsNr] as varchar) Abfertigungsnummer,cast([Abfertigungsdatum] as date)Abfertigungsdatum,Absender,Rechnungsbetrag Betrag ,BelegNr,[FilialenNr],[AbfertigungsNr],Speditionsbuch.Abfertigungsart,Abfertigungsbezeichnung, Speditionsbuch.Zollsystem_Land" sqlstr &= " FROM Speditionsbuch INNER JOIN [Abfertigungsarten] ON Speditionsbuch.Abfertigungsart=Abfertigungsarten.Abfertigungsart" sqlstr &= " where EmpfängerKundenNr IN (" & KdNr & ") and Abfertigungsdatum BETWEEN '" & von.ToShortDateString & "' AND '" & bis.ToShortDateString & "' And Speditionsbuch.Abfertigungsart IN (1,29)" @@ -2215,7 +2215,7 @@ Module Mail VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG" Dim ZOLLANMELDUNG As New cZollsysteme_Aktenbeschriftung - If ZOLLANMELDUNG.getDataByBezugsnummer(r("FilialenNr") & "/" & r("AbfertigungsNr"), r("Abfertigungsart"), "", False) Then + If ZOLLANMELDUNG.getDataByBezugsnummer(r("FilialenNr") & "/" & r("AbfertigungsNr"), r("Abfertigungsart"), "", False, r("Zollsystem_Land")) Then Blatt.Range("F" & cnt).Value = ZOLLANMELDUNG.Rechnungspreis Blatt.Range("G" & cnt).Value = ZOLLANMELDUNG.Handelsrechnung.Replace(", ", "," & vbNewLine) Blatt.Range("I" & cnt).Value = ZOLLANMELDUNG.ABGABEN_ZOLL @@ -2667,11 +2667,10 @@ Module Mail Dim dtKunden As DataTable = loadDgvBySqlFMZOLL(sqlstrKunden) - If dtKunden.Rows.Count = 0 Then Return "" - - System.Console.WriteLine("Vorhandene Datensätze: " & dtKunden.Rows.Count) - - wb.Worksheets.Add(dtKunden, i.Text) + If dtKunden.Rows.Count > 0 Then + System.Console.WriteLine("Vorhandene Datensätze: " & dtKunden.Rows.Count) + wb.Worksheets.Add(dtKunden, i.Text) + End If Next diff --git a/initATLASAufschubkonten/frmNachrichtenVerarbeitung_MDM_divers.vb b/initATLASAufschubkonten/frmNachrichtenVerarbeitung_MDM_divers.vb index 0d2e8d9..fa221a9 100644 --- a/initATLASAufschubkonten/frmNachrichtenVerarbeitung_MDM_divers.vb +++ b/initATLASAufschubkonten/frmNachrichtenVerarbeitung_MDM_divers.vb @@ -363,7 +363,7 @@ Public Class frmNachrichtenVerarbeitung_MDM_divers End Select End If End If - End If + End If End If @@ -625,6 +625,7 @@ Public Class frmNachrichtenVerarbeitung_MDM_divers Dim invoiceNr As String = "" Dim invoiceDate As String = "" Dim Kundenummer As Integer + Dim Abrechnungsnummer As Integer Dim doc = New Spire.Pdf.PdfDocument() doc.LoadFromFile(fi.FullName) @@ -681,10 +682,13 @@ Public Class frmNachrichtenVerarbeitung_MDM_divers found = True If invoiceNr <> "" AndAlso invoiceDate <> "" AndAlso Kundenummer > 0 Then - If SQL.doSQL("Update [tblUTAImportNew] SET [daId]='" & DS.da_id & "' where [Rechnungsnummer_pro_Lieferland] = '" & invoiceNr & "' AND cast(Rechnungsdatum as Date) = '" & invoiceDate & "' AND Kundennummer =" & Kundenummer & " and daId is null ", "FMZOLL") Then - frmStartOptions.moveFile_DateBack(d, zielpfad & "Invoice_PDF\" & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\") - cntDatenEingelesen += 1 - End If + 'SQL.doSQL("Update [tblUTAImportNew] SET [daId]='" & DS.da_id & "', daIdgesetztDatum = getdate() where [Rechnungsnummer_pro_Lieferland] = '" & r.Item("Rechnungsnummer_pro_Lieferland") & "' AND cast(Rechnungsdatum as Date) = '" & utaDate & "' AND Kundennummer =" & r.Item("Kundennummer") & " and Abrechnungsnummer =" & r.Item("Abrechnungsnummer") & " and daId is null", "FMZOLL") + + + ' If SQL.doSQL("Update [tblUTAImportNew] SET [daId]='" & DS.da_id & "' where [Rechnungsnummer_pro_Lieferland] = '" & invoiceNr & "' AND cast(Rechnungsdatum as Date) = '" & invoiceDate & "' AND Kundennummer =" & Kundenummer & " and Abrechnungsnummer =" & r.Item("Abrechnungsnummer") & " and daId is null ", "FMZOLL") Then + ' frmStartOptions.moveFile_DateBack(d, zielpfad & "Invoice_PDF\" & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\") + ' cntDatenEingelesen += 1 + ' End If End If diff --git a/initATLASAufschubkonten/frmStartOptions.vb b/initATLASAufschubkonten/frmStartOptions.vb index 98c652f..5a64f14 100644 --- a/initATLASAufschubkonten/frmStartOptions.vb +++ b/initATLASAufschubkonten/frmStartOptions.vb @@ -5613,17 +5613,31 @@ weiter: Private Sub lblUTAPDFvollst_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles lblUTAPDFvollst.LinkClicked - Dim fehlendeRechnungen As Integer = 0 + Dim fehlendeRechnungen As New DataTable + Dim datumString = "" - fehlendeRechnungen = CInt((New SQL).getValueTxtBySql("select count(distinct(tblUTAImportNew.Abrechnungsnummer)) as Anzahl from tblUTAImportNew where daId is null and cast([Rechnungsdatum] as Date) = '" & txtUTADate.Text & "' and Lieferland <> 'ROM' and Steuerliches_Lieferland <> 'ROM'", "FMZOLL")) + If txtUTADate.Text = "" AndAlso txtUTAYear.Text <> "" Then + datumString = txtUTAYear.Text + fehlendeRechnungen = (New SQL).loadDgvBySql("select Adressen.AdressenNr, Adressen.[Name 1],Lieferland,[Rechnungsnummer_pro_Lieferland],[Rechnungsdatum],Kundennummer,[daId] from tblUTAImportNew inner join adressen on Kundennummer = UTAKundenNr where daId is null and Year(cast([Rechnungsdatum] as Date)) = '" & txtUTAYear.Text & "' and (Lieferland <> 'ROM' and Steuerliches_Lieferland <> 'ROM' or Kundennummer = 868070) Group by Adressen.AdressenNr, Adressen.[Name 1],[Rechnungsnummer_pro_Lieferland],[Rechnungsdatum],Kundennummer,[daId],Lieferland", "FMZOLL") + + ElseIf txtUTADate.Text <> "" AndAlso IsDate(txtUTADate.Text) Then + datumString = txtUTADate.Text + fehlendeRechnungen = (New SQL).loadDgvBySql("select Adressen.AdressenNr, Adressen.[Name 1],Lieferland,[Rechnungsnummer_pro_Lieferland],[Rechnungsdatum],Kundennummer,[daId] from tblUTAImportNew inner join adressen on Kundennummer = UTAKundenNr where daId is null and cast([Rechnungsdatum] as Date) = '" & txtUTADate.Text & "' and (Lieferland <> 'ROM' and Steuerliches_Lieferland <> 'ROM' or Kundennummer = 868070 ) Group by Adressen.AdressenNr, Adressen.[Name 1],[Rechnungsnummer_pro_Lieferland],[Rechnungsdatum],Kundennummer,[daId],Lieferland", "FMZOLL") + + End If + + If fehlendeRechnungen.Rows.Count > 0 Then + + If vbYes = MsgBox("Details der " & fehlendeRechnungen.Rows.Count & " fehlenden Rechnungszuweisungen anzeigen?", vbYesNo) Then + cProgramFunctions.genExcelFromDT_NEW(fehlendeRechnungen,,, "Fehlende PDFs zu Rechnungen: " & datumString) + End If - If fehlendeRechnungen > 0 Then Dim hint As String = "" - If fehlendeRechnungen < 10 Then + If fehlendeRechnungen.Rows.Count < 10 Then hint &= (New SQL).getValueTxtBySql("select distinct(Rechnungsnummer_pro_Lieferland) from tblUTAImportNew where daId is null and cast(Rechnungsdatum as Date) = '" & txtUTADate.Text & "' and Lieferland <> 'ROM' and Steuerliches_Lieferland <> 'ROM'", "FMZOLL") End If - MsgBox("Es fehlen " & fehlendeRechnungen & " PDF-Rechnungen in der Datenbank!" & vbNewLine & "Diese Dokumente (von Rechnung " & txtUTADate.Text & ") müssen nachgeladen werden (bitte an Administrator wenden)." & IIf(hint <> "", vbNewLine & "Bsp. Rechnungsnummer: " & hint, "")) + MsgBox("Es fehlen " & fehlendeRechnungen.Rows.Count & " PDF-Rechnungen in der Datenbank!" & vbNewLine & "Diese Dokumente (von Rechnung " & txtUTADate.Text & ") müssen nachgeladen werden (bitte an Administrator wenden)." & IIf(hint <> "", vbNewLine & "Bsp. Rechnungsnummer: " & hint, "")) Else MsgBox("Rechnungen vom " & txtUTADate.Text & " sind vollständig") @@ -5825,7 +5839,7 @@ weiter: End If - Dim fehlendePDFzuRE As String = "select Rechnungsnummer_pro_Lieferland, cast([Rechnungsdatum] as Date) as Rechnungsdatum, Kundennummer, Abrechnungsnummer from tblUTAImportNew where daId is null and cast([Rechnungsdatum] as Date) = '" & utaDate & "' and Lieferland <> 'ROM' and Steuerliches_Lieferland <> 'ROM' group by Rechnungsdatum, Kundennummer, Abrechnungsnummer, Rechnungsnummer_pro_Lieferland " + Dim fehlendePDFzuRE As String = "select Rechnungsnummer_pro_Lieferland, cast([Rechnungsdatum] as Date) as Rechnungsdatum, Kundennummer, Abrechnungsnummer from tblUTAImportNew where daId is null and cast([Rechnungsdatum] as Date) = '" & utaDate & "' and (Lieferland <> 'ROM' and Steuerliches_Lieferland <> 'ROM' or Kundennummer = 868070) group by Rechnungsdatum, Kundennummer, Abrechnungsnummer, Rechnungsnummer_pro_Lieferland " Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL Dim dtRechnnungsdaten As DataTable = SQL.loadDgvBySql(fehlendePDFzuRE, "FMZOLL")