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

MDM, Essensbestellungen, MIC, MSE-API

Browse Source
This commit is contained in:
d.breimaier
2024-10-08 09:23:12 +02:00
parent c77070ec50
commit 82be7a58d3
10 changed files with 59 additions and 23 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
VERAG_PROG_ALLGEMEIN/DATENSERVER/cDATENSERVER.vb
View File

@@ -1557,7 +1557,6 @@ Public Class cFormularManager
End If
End If
'If Not VERAG_PROG_ALLGEMEIN.cProgramFunctions.spireLoadLicense() Then MsgBox("Fehler beim Laden der SPIRE-Lizenz")
Using webClient As New Net.WebClient()

2
VERAG_PROG_ALLGEMEIN/Schnittstellen/MIC/cMICInterface.vb
View File

@@ -33,8 +33,6 @@ Public Class cMICInterface
Return False 'TEST!
Return True
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)

6
VERAG_PROG_ALLGEMEIN/Schnittstellen/MSE/cMSEAPI.vb
View File

@@ -1014,18 +1014,17 @@ Public Class cMSEAPI
If r("url") <> "" AndAlso r("name") <> "" AndAlso r("name").contains("VAT") Then 'only VAT-Invoices
Dim inv As New cMSEInvoices(r("name"), r("invoice_id"))
If Not inv.imported Then 'verhindert unnötige Downloads
If IsDBNull(inv.daId) Then 'verhindert unnötige Downloads
Dim filepath = VERAG_PROG_ALLGEMEIN.cFormularManager.getPDFViaSpirePDF_FromURLStream(r("url"), r("name"), PDFRECHNUNGENPFAD, False)
If filepath <> "" AndAlso uploadToDs Then
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("MDM", "MDM_DATEN", "MSE", Now.Year, Now.ToString("yyyyMMdd"), r("name"))
DS.uploadDataToDATENSERVER(filepath & "\" & r("name"),,,,,, True)
SQL.doSQL("Update [tblMSEInvoices] SET [daId]='" & DS.da_id & "', imported = 1 where [name] = '" & r("name") & "'", "FMZOLL")
SQL.doSQL("Update [tblMSEInvoices] SET [daId]='" & DS.da_id & "' where [name] = '" & r("name") & "'", "FMZOLL")
End If
End If
End If
Next
dt = dt.DefaultView.ToTable()
@@ -1038,7 +1037,6 @@ Public Class cMSEAPI
End Function
Public Sub saveTransactions(num As Integer, dt As DataTable, transactions As Chilkat.JsonArray, receiver As Integer, Optional ignorePurchaseDate As Boolean = False, Optional onlyBilledTransactions As Boolean = True)
Dim j As Integer = 0