Merge branch 'ADMIN' of https://dev.azure.com/VeragAG/_git/ADMIN into ADMIN
This commit is contained in:
@@ -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
|
||||
|
||||
|
||||
@@ -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
|
||||
|
||||
|
||||
|
||||
@@ -5618,17 +5618,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")
|
||||
@@ -5830,7 +5844,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")
|
||||
|
||||
Reference in New Issue
Block a user