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

IDS RechnungenNachLand, PloseImport, etc.

Browse Source
This commit is contained in:
d.breimaier
2025-03-26 08:07:29 +01:00
parent f538f7fe70
commit 3798fda0b8
4 changed files with 554 additions and 195 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
MDM_Worker/cPLOSE_Inv_Data.vb
View File

@@ -204,13 +204,13 @@ Public Class cPLOSE_Inv_Data
Public Shared Function setDatenarchivID(jahr As Integer, Optional message As Boolean = False) As Boolean
Public Shared Function setDatenarchivID(jahr As Integer, Optional message As Boolean = False, Optional kdNr As Integer = -1) As Boolean
If jahr > Now.Year Then Return False
If jahr < 2020 Then Return False
Dim REohneDAID As String = "Select plInv_Id, plInv_PdfFileName, plInv_daId FROM [tblPLOSE_Inv_Data] where plInv_daId Is null And plInv_PdfFileName Is Not null And Year(plInv_SupplierRechnungsDatum) = " & jahr
Dim REohneDAID As String = "Select plInv_Id, plInv_PdfFileName, plInv_daId, plInv_PLOSEKundennummer FROM [tblPLOSE_Inv_Data] where plInv_daId Is null And plInv_PdfFileName Is Not null And Year(plInv_SupplierRechnungsDatum) = " & jahr & IIf(kdNr > 0, " and plInv_PLOSEKundennummer = " & kdNr, "")
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Dim dtREohneDAID As DataTable = SQL.loadDgvBySql(REohneDAID, "FMZOLL")
@@ -229,6 +229,8 @@ Public Class cPLOSE_Inv_Data
If filename <> "" Then
filename2 = filename.Replace("-", "_")
If Regex.IsMatch(filename, "^[A-Za-z]") Then