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

sql

Browse Source
This commit is contained in:
Andreas Luxbauer
2025-10-06 16:08:40 +02:00
parent bc9247db6b
commit c836bc5d20
1 changed files with 8 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
initATLASAufschubkonten/frmStartOptions.vb
View File

@@ -4777,7 +4777,7 @@ Public Class frmStartOptions
Dim MyData As String = "" Dim MyData As String = ""
Dim SQL = New SQL Dim SQL = New Sql
Dim erg = True Dim erg = True
Dim firstDaycurrentMonth = DateTime.Now.AddMonths(0) Dim firstDaycurrentMonth = DateTime.Now.AddMonths(0)
@@ -5711,11 +5711,11 @@ weiter:
If txtUTADate.Text = "" AndAlso txtUTAYear.Text <> "" Then If txtUTADate.Text = "" AndAlso txtUTAYear.Text <> "" Then
datumString = txtUTAYear.Text 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)) = '" & 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") 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 ElseIf txtUTADate.Text <> "" AndAlso IsDate(txtUTADate.Text) Then
datumString = txtUTADate.Text 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) = '" & 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") 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 End If
@@ -5728,7 +5728,7 @@ weiter:
Dim hint As String = "" Dim hint As String = ""
If fehlendeRechnungen.Rows.Count < 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") 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 End If
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, "")) 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, ""))
@@ -5750,7 +5750,7 @@ weiter:
End Sub End Sub
Sub updateATEZStatusByMRNTop(top As Integer) Sub updateATEZStatusByMRNTop(top As Integer)
Dim dt = (New SQL).loadDgvBySql("SELECT TOP (" & top & ") ncts_MRN FROM [tblNCTS_FREMD] where ncts_Status between 50 and 59 and ncts_Partnersystem='ATEZ'", "FMZOLL") Dim dt = (New Sql).loadDgvBySql("SELECT TOP (" & top & ") ncts_MRN FROM [tblNCTS_FREMD] where ncts_Status between 50 and 59 and ncts_Partnersystem='ATEZ'", "FMZOLL")
If dt IsNot Nothing Then If dt IsNot Nothing Then
lblcheckopatez.Text = "-" lblcheckopatez.Text = "-"
Dim cnt = 1 Dim cnt = 1
@@ -5989,7 +5989,7 @@ weiter:
Dim sql As New SQL Dim sql As New Sql
Dim fehlendeRechungsdatenDatum As String = "select distinct(cast(YearMonthDay as Date)) as YearMonthDay FROM [VERAG].[dbo].[" & table & "] where TransactionVolume is null and AmminclVAT is null and TotalNetAmount is null and VATAmount is null and Year(YearMonthDay) >= " & txtIDSYear.Text Dim fehlendeRechungsdatenDatum As String = "select distinct(cast(YearMonthDay as Date)) as YearMonthDay FROM [VERAG].[dbo].[" & table & "] where TransactionVolume is null and AmminclVAT is null and TotalNetAmount is null and VATAmount is null and Year(YearMonthDay) >= " & txtIDSYear.Text
@@ -6033,7 +6033,7 @@ weiter:
Private Sub IDSUpdateDAID_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles IDSUpdateDAID.LinkClicked Private Sub IDSUpdateDAID_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles IDSUpdateDAID.LinkClicked
Dim sql As New SQL Dim sql As New Sql
Dim IDSdaidaktualiseren As String = "select * from tblUStVPositionen where UStVPo_SchnittstellenNr = 8 and Year(UStVPo_ReDat) >= " & txtIDSYear.Text Dim IDSdaidaktualiseren As String = "select * from tblUStVPositionen where UStVPo_SchnittstellenNr = 8 and Year(UStVPo_ReDat) >= " & txtIDSYear.Text
@@ -6334,7 +6334,7 @@ weiter:
Dim countMissing As Integer = 0 Dim countMissing As Integer = 0
Dim countUploaeded As Integer = 0 Dim countUploaeded As Integer = 0
Dim sql As New SQL Dim sql As New Sql
lblCSPortfolio.Text = "im Portfolio:" lblCSPortfolio.Text = "im Portfolio:"
lblMissingCS.Text = "hochzuladende Unternehmen in CS: " lblMissingCS.Text = "hochzuladende Unternehmen in CS: "