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

Mailsender, Plose, StartOptions

Browse Source
This commit is contained in:
d.breimaier
2025-01-09 09:05:26 +01:00
parent 5449e27abe
commit 0046d354a5
6 changed files with 741 additions and 639 deletions
Download Patch File Download Diff File Expand all files Collapse all files

66
initATLASAufschubkonten/frmStartOptions.vb
View File

@@ -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