edv/ADMIN
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Einarbeitung SDL, Mailsender, etc.

Browse Source
This commit is contained in:
d.breimaier
2025-07-28 08:59:52 +02:00
parent 835e3bf0ec
commit 3294d1d65c
5 changed files with 299 additions and 169 deletions
Download Patch File Download Diff File Expand all files Collapse all files

59
initATLASAufschubkonten/frmStartOptions.vb
View File

@@ -1425,7 +1425,7 @@ Public Class frmStartOptions
API.api_EMailText = body
API.api_EMailAttCnt = pfadList.Count
betreff = betreff.Replace("%Zollbeleg%", "Versandbegleitdokument " & BezugsNr)
betreff = betreff.Replace("%Zollbeleg%", "c " & BezugsNr)
If VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(EMails, betreff, body, getAbsenderEmail(FirmaTmp), False, False, EMails_CC, EMails_BCC, pfadList) Then
API.UPDTAE_OK()
insertSendungsVermerk(SND.tblSnd_SendungID, SND.tblSnd_AvisoID, "Zollbeleg '" & art & "' gesendet an: " & EMails, 46)
@@ -5623,11 +5623,11 @@ weiter:
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")
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)) = '" & datumString & "' 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")
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) = '" & datumString & "' 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
@@ -5972,6 +5972,57 @@ weiter:
Next
End Sub
Private Sub LinkLabel53_LinkClicked_1(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel53.LinkClicked
Dim fehlendePDFzuRE As String = "select * FROM tblIDSInvoicesNewSplittedByCountry where daId is null "
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Dim dtRechnnungsdaten As DataTable = SQL.loadDgvBySql(fehlendePDFzuRE, "FMZOLL")
If dtRechnnungsdaten.Rows.Count > 0 Then
For Each r As DataRow In dtRechnnungsdaten.Rows
Dim dateiname As String = r.Item("DocumentName")
Dim invoicenumber As String = r.Item("Invoicenumber")
Dim invoicenumber2 As String = ""
If invoicenumber.Contains("DE") Then
invoicenumber2 = invoicenumber.Replace("DE", "-DE")
ElseIf invoicenumber.Contains("PL") Then
invoicenumber2 = invoicenumber.Replace("PL", "-PL")
ElseIf invoicenumber.Contains("SP") Then
invoicenumber2 = invoicenumber.Replace("SP", "-SP")
ElseIf invoicenumber.Contains("RO") Then
invoicenumber2 = invoicenumber.Replace("RO", "-RO")
ElseIf invoicenumber.Contains("DA") Then
invoicenumber2 = invoicenumber.Replace("DA", "-DA")
ElseIf invoicenumber.Contains("FT") Then
invoicenumber2 = invoicenumber.Replace("FT", "FT-")
invoicenumber2 = invoicenumber2.Replace("I10", "I10-")
ElseIf invoicenumber.Contains("GE") Then
invoicenumber2 = invoicenumber.Replace("GE", "-GE")
End If
Dim daId As Integer = 0
daId = CInt(SQL.getValueTxtBySql("Select top(1) isnull(da_id,0) FROM tblDatenarchiv WHERE da_KundenNr = 0 And da_kategorie = 'MDM' AND da_ordner='MDM_DATEN' AND da_uOrdner1= 'IDS_COUNTRY' AND da_uOrdner2= '" & Now.Year & "' AND da_name like '%" & r.Item("CustomerCode") & "%'" & IIf(invoicenumber2 <> "", "AND da_name like '%" & invoicenumber2 & "%'", " AND da_name like '%" & r.Item("Invoicenumber") & "%'"), "FMZOLL",,, 0))
If daId > 0 Then
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(daId)
Dim Path As String = DS.GET_TOP1_PATH()
If Path <> "" And System.IO.File.Exists(Path) Then
SQL.doSQL("Update [tblIDSInvoicesNewSplittedByCountry] SET [daId]='" & DS.da_id & "' where [DocumentName] = '" & dateiname.ToString & "' ", "FMZOLL")
End If
End If
Next
End If
End Sub
Private Sub Button29_Click(sender As Object, e As EventArgs) Handles cboTCAPI_Files.Click
@@ -6009,4 +6060,6 @@ weiter:
Next
Next
End Sub
End Class