Mailsender, Plose, StartOptions
This commit is contained in:
@@ -379,8 +379,6 @@ Public Class frmNachrichtenVerarbeitung_MDM_divers
|
||||
If Not System.IO.Directory.Exists(zielpfad & "Invoice_PDF\" & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\") Then System.IO.Directory.CreateDirectory(zielpfad & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\")
|
||||
|
||||
'File in Datenarchiv sichern:
|
||||
|
||||
|
||||
'd.breimaier: 2024-06-05 aktuell nur die RMC-Dateien! (später, wenn CSV vollständig, dann alle PDFs importieren!
|
||||
'd.breimaier: 2024-06-17 laut Christian Schuster von Comcore (EDV-BEtr. von RMC) nicht möglich CSV mit easytrip und sofico Datensätzen zu ergängen!
|
||||
|
||||
@@ -533,8 +531,44 @@ Public Class frmNachrichtenVerarbeitung_MDM_divers
|
||||
Catch ex As System.Exception
|
||||
End Try
|
||||
|
||||
ElseIf fi.Name.ToString.StartsWith("AP") AndAlso fi.Name.ToLower.Contains("epn") Then 'nur einzelpostennachweise
|
||||
|
||||
Dim customerNo As Integer
|
||||
Dim invoiceNo As String = ""
|
||||
Dim dateNo = ""
|
||||
Dim outputDate = ""
|
||||
Dim documenttype As String = ""
|
||||
|
||||
|
||||
If fi.Name.Length >= 37 Then
|
||||
customerNo = fi.Name.Substring(2, 6)
|
||||
invoiceNo = fi.Name.Substring(9, 8)
|
||||
dateNo = fi.Name.Substring(18, 10)
|
||||
documenttype = fi.Name.Substring(33, 3)
|
||||
Dim parsedDate As DateTime = DateTime.ParseExact(dateNo, "yyyy-MM-dd", System.Globalization.CultureInfo.InvariantCulture)
|
||||
outputDate = parsedDate.ToString("dd.MM.yyyy")
|
||||
|
||||
End If
|
||||
|
||||
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("MDM", "MDM_DATEN", "UTA", Now.Year, Now.ToString("yyyyMMdd"), frmStartOptions.getFileName(d))
|
||||
|
||||
DS.uploadDataToDATENSERVER(d,,,,,, True)
|
||||
|
||||
Dim document As New cUTA.UTADocuments
|
||||
document.DocumentName = fi.Name
|
||||
document.daId = DS.da_id
|
||||
document.DocumentTyp = documenttype
|
||||
document.RechnungsNr = invoiceNo
|
||||
document.KundenNr = customerNo
|
||||
document.Datum = outputDate
|
||||
document.Zeitstempel = Now()
|
||||
|
||||
If document.SAVE() Then cntDatenEingelesen += 1
|
||||
|
||||
End If
|
||||
|
||||
|
||||
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
1255
initATLASAufschubkonten/frmStartOptions.Designer.vb
generated
1255
initATLASAufschubkonten/frmStartOptions.Designer.vb
generated
File diff suppressed because it is too large
Load Diff
@@ -5339,13 +5339,14 @@ Public Class frmStartOptions
|
||||
showPic(ok, PictureBox25)
|
||||
End Sub
|
||||
|
||||
Private Sub LinkLabel64_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel64.LinkClicked, LinkLabel67.LinkClicked
|
||||
Private Sub LinkLabel64_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel64.LinkClicked, LinkLabel67.LinkClicked, LinkLabel69.LinkClicked
|
||||
|
||||
Dim iso2Laneder = ""
|
||||
|
||||
Select Case sender.Name
|
||||
Case "LinkLabel64" : iso2Laneder = "select distinct (Lieferland) FROM [VERAG].[dbo].[tblUTAImportNew] where Lieferland_ISO2 is null"
|
||||
Case "LinkLabel67" : iso2Laneder = "select distinct (LandNr) FROM [VERAG].[dbo].[tbl_IDS_Länder] where Lieferland_ISO2 is null"
|
||||
Case "LinkLabel69" : iso2Laneder = "select distinct (LandNr) FROM [VERAG].[dbo].[tblSteuernummern] where LandKZ is null"
|
||||
|
||||
End Select
|
||||
|
||||
@@ -5355,8 +5356,9 @@ Public Class frmStartOptions
|
||||
If dtiso2Laneder.Rows.Count > 0 Then
|
||||
For Each r As DataRow In dtiso2Laneder.Rows
|
||||
Select Case sender.Name
|
||||
Case "LinkLabel64" : SQL.doSQL("Update [VERAG].[dbo].[tblUTAImportNew] set Lieferland_ISO2 = '" & VERAG_PROG_ALLGEMEIN.cProgramFunctions.getISO2LandFromISO3Land(r.Item("Lieferland")) & "' where Lieferland = '" & r.Item("Lieferland") & "'", "FMZOLL")
|
||||
Case "LinkLabel64" : SQL.doSQL("Update [VERAG].[dbo].[tblUTAImportNew] set Lieferland_ISO2 = '" & VERAG_PROG_ALLGEMEIN.cProgramFunctions.getISO2LandFromISO3Land(r.Item("Lieferland")) & "' where Lieferland = '" & r.Item("Lieferland") & "'", "FMZOLL")
|
||||
Case "LinkLabel67" : SQL.doSQL("Update [VERAG].[dbo].[tbl_IDS_Länder] set Lieferland_ISO2 = '" & VERAG_PROG_ALLGEMEIN.cProgramFunctions.getISO2LandFromLandNr(r.Item("LandNr")) & "' where LandNr = '" & r.Item("LandNr") & "'", "FMZOLL")
|
||||
Case "LinkLabel69" : SQL.doSQL("Update [VERAG].[dbo].[tblSteuernummern] set LandKZ = '" & VERAG_PROG_ALLGEMEIN.cProgramFunctions.getISO2LandFromLandNr(r.Item("LandNr")) & "' where LandNr = '" & r.Item("LandNr") & "'", "FMZOLL")
|
||||
End Select
|
||||
|
||||
|
||||
@@ -5368,13 +5370,8 @@ Public Class frmStartOptions
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub Button24_Click(sender As Object, e As EventArgs) Handles Button24.Click
|
||||
|
||||
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub LinkLabel65_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel65.LinkClicked
|
||||
Me.Visible = False
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = cbxTestsystem.Checked
|
||||
@@ -5417,7 +5414,7 @@ Public Class frmStartOptions
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub LinkLabel67_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel67.LinkClicked
|
||||
Private Sub LinkLabel67_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel68.LinkClicked
|
||||
Me.Cursor = Cursors.WaitCursor
|
||||
Try
|
||||
Dim erg = VERAG_PROG_ALLGEMEIN.cTariffKN8_Interface.UPDATE_KN8()
|
||||
@@ -5432,4 +5429,57 @@ Public Class frmStartOptions
|
||||
Private Sub Button26_Click(sender As Object, e As EventArgs) Handles Button26.Click
|
||||
VERAG_PROG_ALLGEMEIN.cATEZ_ncts_api.get_ie015_xml_by_mrn("24TR34340000000145")
|
||||
End Sub
|
||||
|
||||
Private Sub LinkLabel70_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel70.LinkClicked
|
||||
|
||||
|
||||
Dim fehlendeRechungsdaten As String = "select upper(Invoicenumber) as Invoicenumber, CustomerCode, cast(YearMonthDay as Date) as YearMonthDay FROM [VERAG].[dbo].[tblIDSInvoicesNew] where TransactionVolume is null and AmminclVAT is null and TotalNetAmount is null and VATAmount is null"
|
||||
|
||||
|
||||
|
||||
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
Dim dtRechnnungsdaten As DataTable = SQL.loadDgvBySql(fehlendeRechungsdaten, "FMZOLL")
|
||||
|
||||
If dtRechnnungsdaten.Rows.Count > 0 Then
|
||||
For Each r As DataRow In dtRechnnungsdaten.Rows
|
||||
|
||||
|
||||
SQL.doSQL("
|
||||
UPDATE
|
||||
inv
|
||||
SET
|
||||
inv.TransactionVolume = t.calcTrans,
|
||||
inv.AmminclVAT = t.calcInclvat,
|
||||
inv.TotalNetAmount = t.totalNet,
|
||||
inv.VATAmount = t.net
|
||||
FROM
|
||||
[VERAG].[dbo].[tblIDSInvoicesNew] AS inv
|
||||
INNER JOIN
|
||||
(
|
||||
SELECT
|
||||
Paymentsummarynumber,CustomerCode, YearMonthDay,
|
||||
sum([TransactionVolume]) as calcTrans, sum([AmminclVAT]) as calcInclvat, sum([TotalNetAmount]) as totalNet, sum([VATAmount]) as net
|
||||
|
||||
FROM [VERAG].[dbo].[tblIDSTransactionsNew]
|
||||
|
||||
WHERE
|
||||
Paymentsummarynumber = '" & r.Item("Invoicenumber") & "' and CustomerCode = '" & r.Item("CustomerCode") & "' and YearMonthDay = '" & r.Item("YearMonthDay") & "'
|
||||
GROUP BY
|
||||
Paymentsummarynumber,CustomerCode, YearMonthDay
|
||||
) t
|
||||
ON
|
||||
t.Paymentsummarynumber = inv.Invoicenumber
|
||||
WHERE
|
||||
inv.Invoicenumber = '" & r.Item("Invoicenumber") & "' and inv.CustomerCode = '" & r.Item("CustomerCode") & "' and inv.YearMonthDay = '" & r.Item("YearMonthDay") & "' ", "FMZOLL")
|
||||
|
||||
|
||||
Next
|
||||
MsgBox("alle Rechnungsdaten gesetzt!")
|
||||
Else
|
||||
MsgBox("keine fehlenden Rechnunngsdaten vorhanden!")
|
||||
End If
|
||||
|
||||
|
||||
|
||||
End Sub
|
||||
End Class
|
||||
Reference in New Issue
Block a user