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

merge

Browse Source
This commit is contained in:
d.breimaier
2026-01-30 16:44:08 +01:00
parent f7bde33bb4 2304bf098b
commit 9cb9133c80
4 changed files with 58 additions and 30 deletions
Download Patch File Download Diff File Expand all files Collapse all files

27
initATLASAufschubkonten/frmStartOptions.vb
View File

@@ -10,6 +10,7 @@ Imports com.sun.org.apache.bcel.internal.generic
Imports com.sun.tools.javadoc
Imports DAKOSY_Worker
Imports javax
Imports DocumentFormat.OpenXml.Wordprocessing
Imports MDM_Worker
Imports Renci.SshNet
Imports VERAG_PROG_ALLGEMEIN
@@ -50,6 +51,7 @@ Public Class frmStartOptions
Private Sub frmStartOptions_Load(sender As Object, e As EventArgs) Handles Me.Load
timer.Interval = 2500
VERAG_PROG_ALLGEMEIN.cAllgemein.PROGNAME = "ROUTINE_MANAGER"
VERAG_PROG_ALLGEMEIN.cAllgemein.PROGID = 17
@@ -1123,10 +1125,10 @@ Public Class frmStartOptions
Dim list As New List(Of Integer)
sendMailZollbeleg(pfad, SND.tblSnd_EmpfaengerKdNr, art, list, BezugsNr, SND, SND.getKdAtrNr("EMPFAENGER"), "EMPFAENGER")
sendMailZollbeleg(pfad, SND.tblSnd_AbsenderKdNr, art, list, BezugsNr, SND, "", "ABSENDER")
sendMailZollbeleg(pfad, SND.tblSnd_FrachtfuehrerKdNr, art, list, BezugsNr, SND, SND.getKdAtrNr("FRAECHTER"), "FRAECHTER")
sendMailZollbeleg(pfad, SND.tblSnd_AvisiererKdNr, art, list, BezugsNr, SND, SND.getKdAtrNr("AVISIERER"), "AVISIERER")
sendMailZollbeleg(pfad, SND.tblSnd_AuftraggeberKdNr, art, list, BezugsNr, SND, SND.getKdAtrNr("AUFTRAGGEBER"), "AUFTRAGGEBER")
sendMailZollbeleg(pfad, SND.tblSnd_AbsenderKdNr, art, list, BezugsNr, SND, "", "ABSENDER")
sendMailZollbelegGESTELLUNGSADRESSE(pfad, SND.NCTS_ngaId, art, list, BezugsNr, SND)
End If
@@ -1247,6 +1249,12 @@ Public Class frmStartOptions
'Wenn ein fixer BEtreff verwendet werden sollte:
If KD_ERW.EmailFreigabeBeleg_Betreff Then
betreff = If(KD_ERW.EmailFreigabeBeleg_BetreffText, "")
betreff = betreff.Replace("%KdAuftrNr%", If(KdAtrNr, ""))
Else
betreff = betreff.Replace("%KdAuftrNr%", If(KdAtrNr IsNot Nothing AndAlso KdAtrNr.ToString.Trim <> "", "Ihre Auftragsnr: " & KdAtrNr, ""))
End If
betreff = betreff.Replace("%LKW%", AVISO.LKW_Nr)
@@ -1324,7 +1332,7 @@ Public Class frmStartOptions
''!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
'!!!!!!!!!!!!!!!!!!!!!!!!!!
'EMails = "luxbauer@gmail.com"
'EMails = "al@verag.ag"
'EMails_CC = ""
'EMails_BCC = ""
'!!!!!!!!!!!!!!!!!!!!!!!!!!
@@ -7238,9 +7246,18 @@ repeatRequest:
End Sub
Private Sub Button29_Click_1(sender As Object, e As EventArgs) Handles Button29.Click
'Dim ZA = VERAG_PROG_ALLGEMEIN.cVERAG_CustomsDeclarations.loadByMRN("26DE7458ACA000YYR2", True)
Dim ZA = VERAG_PROG_ALLGEMEIN.cVERAG_CustomsDeclarations.loadByMRN("26DE7701ACA0024DR0", True)
ZA.checkfreshCBAMWarning()
' doMailZollbeleg("", "STB", 725002)
'Dim SND As New VERAG_PROG_ALLGEMEIN.cSendungen(1956266)
'Dim list As New List(Of Integer)
'sendMailZollbeleg("", SND.tblSnd_AuftraggeberKdNr, "STB", list, "4803/26002277A", SND, SND.getKdAtrNr("AUFTRAGGEBER"), "AUFTRAGGEBER")
''Dim ZA = VERAG_PROG_ALLGEMEIN.cVERAG_CustomsDeclarations.loadByMRN("26DE7458ACA000YYR2", True)
'Dim ZA = VERAG_PROG_ALLGEMEIN.cVERAG_CustomsDeclarations.loadByMRN("26DE7701ACA0024DR0", True)
'ZA.checkfreshCBAMWarning()
End Sub