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

StartOptions

Browse Source
This commit is contained in:
d.breimaier
2024-11-19 08:58:15 +01:00
parent 084245fc9e
commit b3d2d60c53
4 changed files with 696 additions and 671 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
initATLASAufschubkonten/frmStartOptions.vb
View File

@@ -80,6 +80,7 @@ Public Class frmStartOptions
cbxRMC.fillWithSQL("SELECT api_program FROM tblAPIEinstellungen WHERE api_program like 'RMC%'", False, "ADMIN", True)
cbxRMC.changeItem("")
txtUTAYear.Text = Now.Year
txtGJ_UNISPED.Text = Now.Year
@@ -347,7 +348,7 @@ Public Class frmStartOptions
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
If von.Contains("ebilling@uta.com") Then
If von.Contains("ebilling@uta.com") Or von.Contains("d.breimaier@verag.ag") Or von.Contains("s.kriegner@verag.ag") Then
'---------------------UTA----------------------
importFileFromUTAMailAnhang(pfad, betreff)
@@ -766,7 +767,7 @@ Public Class frmStartOptions
Case "USTVA_SUMMEN_BERECHNEN"
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
Dim ok As Boolean = False
Dim sendMail As Boolean = True
Dim sendMail As Boolean = False
Dim dt As New DataTable
If cMDMFunctionsAllgemein.Update_UStVASummenNeuBerechnen() Then
ok = cMDMFunctionsAllgemein.UStVAKunden_SummenNeuBerechnen(,, dt, sendMail)
@@ -1695,17 +1696,13 @@ Public Class frmStartOptions
If Not idsInvoice.hasEntry Then idsInvoice.SAVE()
'Dim outlookApp As Object
'Dim mailItem As Outlook.MailItem
Try
Dim htmlText = File.ReadAllText(pfad)
If htmlText IsNot Nothing Then
If idsInvoice.isMail_IDS(htmlText) Then
If idsInvoice.getPDF_IDS(htmlText, filename, Zielpfad & idsInvoice.Invoicenumber & "_" & idsInvoice.CustomerCode & ".pdf") Then
If idsInvoice.getPDF_IDS(htmlText, filename, Zielpfad & invoiceNo & "_" & customerNo & ".pdf") Then
idsInvoice.DocumentName = filename
End If
@@ -4850,6 +4847,7 @@ Public Class frmStartOptions
Me.Visible = False
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = cbxTestsystem.Checked
Dim f As New frmNachrichtenVerarbeitung_MDM_divers("UTA", False, False, cbxDateienlöschenUTA.Checked)
f.year = txtUTAYear.Text
f.ShowDialog()
Me.Visible = True
End Sub
@@ -5436,7 +5434,7 @@ Public Class frmStartOptions
End If
Next
MsgBox(i & " Rechnungspositionen wurden aktualisiert." & IIf((i < dtRE.Rows.Count), vbNewLine & " Zu den anderen Rechnungen konnte keine Verknüpfung gefunden werden!", ""))
MsgBox(i & " Rechnungspositionen wurden aktualisiert." & IIf((i < dtRE.Rows.Count), vbNewLine & " Zu den anderen " & dtRE.Rows.Count - i & " Rechnungen konnte keine Verknüpfung gefunden werden!", ""))
End If
Else
MsgBox("Keine Rechnungen mit MRN-Präfix" & txtMRNPrefix.Text)