neu
This commit is contained in:
@@ -39,6 +39,9 @@ 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
|
||||
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
|
||||
|
||||
MyComboBox1.Items.Clear()
|
||||
@@ -69,9 +72,9 @@ Public Class frmStartOptions
|
||||
|
||||
txtEZOLLAnhDat._value = Now.ToShortDateString
|
||||
|
||||
Dim PARAM = ""
|
||||
Dim PARAM = "INSERT_BENACHRICHTIGUNG_VERMERKE_TEAMS"
|
||||
Dim parameter() As String = Environment.GetCommandLineArgs().ToArray
|
||||
If (parameter.Count - 1) >= 1 Then 'Höher als 1 weil der index 0 de r Pfad zum programm ist
|
||||
If (parameter.Count - 1) >= 1 Then 'Höher als 1 weil der index 0 der Pfad zum programm ist
|
||||
PARAM = parameter(1)
|
||||
'For i = 1 To parameter.Count - 1
|
||||
' 'If parameter(i) = "HISTORY" Then PARAM = True
|
||||
@@ -81,61 +84,67 @@ Public Class frmStartOptions
|
||||
|
||||
'Standart-Errorverhalten ist MAIL
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.ERR_OP_GLOBAL = VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL
|
||||
If PARAM <> "" Then
|
||||
'LOG
|
||||
End If
|
||||
Select Case PARAM
|
||||
Case "BRG_AUFSCHUB"
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
|
||||
Dim f As New frmRoutineManager("ALL", True)
|
||||
Me.Visible = False
|
||||
' Me.Visible = False
|
||||
f.Show()
|
||||
AddHandler f.FormClosed, AddressOf closeMe
|
||||
Case "BRG_AUFSCHUB_HISTORY"
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
|
||||
Dim f As New frmRoutineManager("ALL", True, True)
|
||||
Me.Visible = False
|
||||
' Me.Visible = False
|
||||
f.Show()
|
||||
AddHandler f.FormClosed, AddressOf closeMe
|
||||
|
||||
Case "DY_EINARBEITUNG"
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True
|
||||
Dim f As New frmDYNachrichtenVerarbeitung(True)
|
||||
Me.Visible = False
|
||||
'Me.Visible = False ' irgend ein Grund
|
||||
f.Show()
|
||||
AddHandler f.FormClosed, AddressOf closeMe
|
||||
Case "DY_EINARBEITUNG_PROD"
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
|
||||
Dim f As New frmDYNachrichtenVerarbeitung(True)
|
||||
Me.Visible = False
|
||||
' Me.Visible = False ' irgend ein Grund
|
||||
f.Show()
|
||||
AddHandler f.EV_FINISHED, AddressOf closeMe
|
||||
AddHandler f.FormClosed, AddressOf closeMe
|
||||
|
||||
Case "NCTSTR_EINARBEITUNG_TEST"
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True
|
||||
Dim f As New frmTRNCTS_NachrichtenVerarbeitung(True)
|
||||
Me.Visible = False
|
||||
' Me.Visible = False
|
||||
f.Show()
|
||||
AddHandler f.FormClosed, AddressOf closeMe
|
||||
Case "NCTSTR_EINARBEITUNG_PROD"
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
|
||||
Dim f As New frmTRNCTS_NachrichtenVerarbeitung(True)
|
||||
Me.Visible = False
|
||||
' Me.Visible = False
|
||||
f.Show()
|
||||
AddHandler f.FormClosed, AddressOf closeMe
|
||||
|
||||
Case "NCTSTR_EINARBEITUNG_OREGON_TEST"
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True
|
||||
Dim f As New frmTRNCTS_NachrichtenVerarbeitung_OREGON(True)
|
||||
Me.Visible = False
|
||||
' Me.Visible = False
|
||||
f.Show()
|
||||
AddHandler f.FormClosed, AddressOf closeMe
|
||||
Case "NCTSTR_EINARBEITUNG_OREGON_PROD"
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
|
||||
Dim f As New frmTRNCTS_NachrichtenVerarbeitung_OREGON(True)
|
||||
Me.Visible = False
|
||||
' Me.Visible = False
|
||||
f.Show()
|
||||
AddHandler f.FormClosed, AddressOf closeMe
|
||||
|
||||
|
||||
Case "UPDATE_SMS"
|
||||
Dim f As New frmInfo(PARAM)
|
||||
f.Show()
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG"
|
||||
UPDATE_SMS()
|
||||
@@ -144,30 +153,33 @@ Public Class frmStartOptions
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "UNISPED"
|
||||
Dim f As New frmDYNachrichtenVerarbeitung(True)
|
||||
Me.Visible = False
|
||||
' Me.Visible = False
|
||||
f.Show()
|
||||
AddHandler f.EV_FINISHED, AddressOf closeMe
|
||||
AddHandler f.FormClosed, AddressOf closeMe
|
||||
|
||||
Case "MDM_EINARBEITUNG"
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
|
||||
Dim f As New frmMDMNachrichtenVerarbeitung(True)
|
||||
Me.Visible = False
|
||||
' Me.Visible = False
|
||||
f.Show()
|
||||
AddHandler f.FormClosed, AddressOf closeMe
|
||||
Case "TC_EINARBEITUNG"
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True
|
||||
Dim f As New frmTCNachrichtenVerarbeitung(True)
|
||||
Me.Visible = False
|
||||
' Me.Visible = False
|
||||
f.Show()
|
||||
AddHandler f.FormClosed, AddressOf closeMe
|
||||
Case "TC_EINARBEITUNG_PROD"
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
|
||||
Dim f As New frmTCNachrichtenVerarbeitung(True)
|
||||
Me.Visible = False
|
||||
' Me.Visible = False
|
||||
f.Show()
|
||||
AddHandler f.FormClosed, AddressOf closeMe
|
||||
|
||||
Case "DY_CODELISTEN" ' TEST & PROD
|
||||
Dim f As New frmInfo(PARAM)
|
||||
f.Show()
|
||||
AddHandler Me.Shown, Sub()
|
||||
Me.Refresh()
|
||||
DAKOSY_Worker.cIMPORT_Codelisten.IMPORT("C0008", True)
|
||||
@@ -182,28 +194,42 @@ Public Class frmStartOptions
|
||||
closeMe()
|
||||
End Sub
|
||||
Case "KD_DATA_DAKOSY"
|
||||
Dim f As New frmInfo(PARAM)
|
||||
f.Show()
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
|
||||
DAKOSY_Worker.cDakosyFunftions.sendData()
|
||||
closeMe()
|
||||
Case "EZT_Bundesanzeiger_Importcodenummern"
|
||||
Dim f As New frmInfo(PARAM)
|
||||
f.Show()
|
||||
getETZBundesanzeiger_ImportCodenummern()
|
||||
closeMe()
|
||||
Case "EZB_Waehrungskurse"
|
||||
Dim f As New frmInfo(PARAM)
|
||||
f.Show()
|
||||
getEZB_Waehrungskurse()
|
||||
closeMe()
|
||||
Case "EZB_Waehrungskurse90D"
|
||||
Dim f As New frmInfo(PARAM)
|
||||
f.Show()
|
||||
getEZB_Waehrungskurse90D()
|
||||
closeMe()
|
||||
Case "UID_Pruefung"
|
||||
Dim f As New frmInfo(PARAM)
|
||||
f.Show()
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
|
||||
getUID_Pruefung(MyTextBox1.Text)
|
||||
closeMe()
|
||||
Case "SDL_GUELTISBIS"
|
||||
Dim f As New frmInfo(PARAM)
|
||||
f.Show()
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
|
||||
VERAG_PROG_ALLGEMEIN.SDL_Functions.SDL_GueltigBis_UTA_IDS()
|
||||
closeMe()
|
||||
|
||||
Case "zoll_mail_attach"
|
||||
Dim f As New frmInfo(PARAM)
|
||||
f.Show()
|
||||
Dim pfad = ""
|
||||
Dim betreff = ""
|
||||
Dim von = ""
|
||||
@@ -215,7 +241,10 @@ Public Class frmStartOptions
|
||||
If (parameter.Count - 1) >= 5 Then von = parameter(5)
|
||||
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
|
||||
If von.Contains("@miccustoms.com") Or betreff.Contains("FORWARDING EMAIL | BEZUGSNUMMER") Or betreff = "Report nctsTransDeclGuarantees generated successfully" Then
|
||||
|
||||
If von.Contains("@q8.com") Or betreff.Contains("IDSPRD: Platts Price Report") Then
|
||||
importFileFromIDSMailAnhang(pfad, betreff)
|
||||
ElseIf von.Contains("@miccustoms.com") Or betreff.Contains("FORWARDING EMAIL | BEZUGSNUMMER") Or betreff = "Report nctsTransDeclGuarantees generated successfully" Then
|
||||
importFileFromMICMailAnhang(pfad, betreff)
|
||||
Else
|
||||
importFileFromDyMailAnhang(pfad, betreff)
|
||||
@@ -224,17 +253,37 @@ Public Class frmStartOptions
|
||||
closeMe()
|
||||
|
||||
Case "ezoll_anhaenge"
|
||||
Dim f As New frmInfo(PARAM)
|
||||
f.Show()
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
|
||||
|
||||
importFileFromEZOLL(Now)
|
||||
closeMe()
|
||||
'-----------IMEX---------------
|
||||
|
||||
|
||||
Case "INSERT_BENACHRICHTIGUNG_VERMERKE_TEAMS"
|
||||
Dim f As New frmInfo(PARAM)
|
||||
f.Show()
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
|
||||
|
||||
INSERT_BENACHRICHTIGUNG_VERMERKE_TEAMS()
|
||||
|
||||
closeMe()
|
||||
|
||||
|
||||
'-----------IMEX---------------
|
||||
Case "IMEX_DVO_KUNDEN_BU"
|
||||
Dim f As New frmInfo(PARAM)
|
||||
f.Show()
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
|
||||
VERAG_PROG_ALLGEMEIN.cDVO_Interface.genStammdatenANSI(False, True, True)
|
||||
closeMe()
|
||||
|
||||
Case "SYSKA_DATEN_BU"
|
||||
Dim f As New frmInfo(PARAM)
|
||||
f.Show()
|
||||
|
||||
'FIBI Daten bereitstellen:
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
|
||||
VERAG_PROG_ALLGEMEIN.cSyska_Interface.genDatensatz_Stammdaten(1, False)
|
||||
VERAG_PROG_ALLGEMEIN.cSyska_Interface.genDatensatz_Buchungen(1, False)
|
||||
@@ -251,23 +300,32 @@ Public Class frmStartOptions
|
||||
VERAG_PROG_ALLGEMEIN.cSyska_Interface.genDatensatz_Stammdaten(19, False)
|
||||
VERAG_PROG_ALLGEMEIN.cSyska_Interface.genDatensatz_Buchungen(19, False)
|
||||
|
||||
'VERAG_PROG_ALLGEMEIN.cSyska_Interface.OP_Einlesen_ALL()
|
||||
'VERAG_PROG_ALLGEMEIN.cSyska_Interface.UPDATE_FIBU_RISIKO()
|
||||
'Offene Posten übernehmen:
|
||||
VERAG_PROG_ALLGEMEIN.cSyska_Interface.OP_Einlesen_ALL()
|
||||
|
||||
'Risiko in FiBu eintragen:
|
||||
VERAG_PROG_ALLGEMEIN.cSyska_Interface.UPDATE_FIBU_RISIKO()
|
||||
|
||||
closeMe()
|
||||
Case "SYSKA_RISIKO"
|
||||
Dim f As New frmInfo(PARAM)
|
||||
f.Show()
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
|
||||
VERAG_PROG_ALLGEMEIN.cSyska_Interface.UPDATE_FIBU_RISIKO()
|
||||
|
||||
closeMe()
|
||||
|
||||
Case "SYSKA_OP_EINLESEN"
|
||||
Dim f As New frmInfo(PARAM)
|
||||
f.Show()
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
|
||||
VERAG_PROG_ALLGEMEIN.cSyska_Interface.OP_Einlesen_ALL()
|
||||
|
||||
closeMe()
|
||||
|
||||
Case "UNISPED_BMD"
|
||||
Dim f As New frmInfo(PARAM)
|
||||
f.Show()
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
|
||||
VERAG_PROG_ALLGEMEIN.cBMD_Interface.genDatensatzCSV_ALL(False, False) 'Kunden noch nicht
|
||||
closeMe()
|
||||
@@ -279,6 +337,34 @@ Public Class frmStartOptions
|
||||
End Select
|
||||
End Sub
|
||||
|
||||
Function INSERT_BENACHRICHTIGUNG_VERMERKE_TEAMS() As Boolean
|
||||
Try
|
||||
|
||||
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
|
||||
Dim DT = SQL.loadDgvBySql("
|
||||
SELECT * FROM (
|
||||
SELECT Vermerke.*, CASE WHEN tblSnd_TeamId IS NULL THEN (SELECT TeamId from ADMIN.dbo.tblMitarbeiter WHERE mit_id=MitarbeiterId) ELSE tblSnd_TeamId END as tblSnd_TeamId,Firma
|
||||
FROM [Aviso] inner join tblSendungen on [Aviso].AvisoID=tblSnd_AvisoID inner join Vermerke on Vermerke.SendungID=tblSnd_SendungID
|
||||
where Status NOT IN (1,2) and Vermerke.VermerkeCode=13
|
||||
and VermerkIDAufgehoben is null
|
||||
and DATEDIFF(HOUR,Vermerke.Datum,getdate())>24
|
||||
) as T1 where tblSnd_TeamId is not null
|
||||
and tblSnd_TeamId=1
|
||||
", "AVISO")
|
||||
If DT IsNot Nothing Then
|
||||
For Each r In DT.Rows
|
||||
VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungen.INSERT_BENACHRICHTIGUNG(r("AvisoId"), r("SendungId"), 5, "T", r("tblSnd_TeamId"), "Reminder: " & r("hinweis_vermerk"), 0,, , r("VermerkID"), r("VermerkeCode"), r("Firma"))
|
||||
Next
|
||||
End If
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodBase.GetCurrentMethod.Name, VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL)
|
||||
|
||||
Return False
|
||||
|
||||
End Try
|
||||
End Function
|
||||
Function importFileFromEZOLL(datum As Date) As Boolean
|
||||
Try
|
||||
|
||||
@@ -366,6 +452,7 @@ Public Class frmStartOptions
|
||||
|
||||
Dim DY As New DAKOSY_Worker.cDakosy_Zollanmeldungen(dy_id)
|
||||
If DY.dy_SendungsId IsNot Nothing AndAlso CInt(DY.dy_SendungsId) > 0 Then
|
||||
|
||||
doMailZollbeleg(pfad, art, DY.dy_SendungsId, DY.dy_BezugsNr)
|
||||
|
||||
End If
|
||||
@@ -381,6 +468,7 @@ Public Class frmStartOptions
|
||||
If dy_SendungsId IsNot Nothing AndAlso CInt(dy_SendungsId) > 0 Then
|
||||
Dim SND As New VERAG_PROG_ALLGEMEIN.cSendungen(dy_SendungsId)
|
||||
Dim list As New List(Of Integer)
|
||||
|
||||
sendMailZollbeleg(pfad, SND.tblSnd_EmpfaengerKdNr, art, list, BezugsNr, SND, SND.getKdAtrNr("EMPFAENGER"))
|
||||
sendMailZollbeleg(pfad, SND.tblSnd_AbsenderKdNr, art, list, BezugsNr, SND, "")
|
||||
sendMailZollbeleg(pfad, SND.tblSnd_FrachtfuehrerKdNr, art, list, BezugsNr, SND, SND.getKdAtrNr("FRAECHTER"))
|
||||
@@ -427,8 +515,9 @@ Public Class frmStartOptions
|
||||
pfadList.Add(pfad)
|
||||
Dim KD As New VERAG_PROG_ALLGEMEIN.cKunde(KundenNr)
|
||||
Dim KD_ERW As New VERAG_PROG_ALLGEMEIN.cKundenErweitert(KundenNr)
|
||||
If KD_ERW IsNot Nothing AndAlso KD IsNot Nothing AndAlso KD.EmailFreigabe Then
|
||||
If KD_ERW.EmailFreigabe_Art = "BLG" Or art = "AVM" Or art = "ZNV" Then ' Bei AVM ist es immer nach Freigabe, auch ZNV
|
||||
|
||||
If KD_ERW IsNot Nothing AndAlso KD IsNot Nothing Then ' AndAlso KD.EmailFreigabe Then
|
||||
If KD_ERW.EmailFreigabe_Art = "BLG" Or KD_ERW.EmailFreigabe_Export_Art = "BLG" Or (art = "AVM" And KD_ERW.Email_AVM) Or (art = "ABD" And (KD_ERW.EmailFreigabe_ABDPDF Or KD_ERW.EmailFreigabe_Export_Art = "BLG")) Or art = "ZNV" Then ' Bei AVM ist es immer nach Freigabe, auch ZNV
|
||||
Dim Standort = "SUB"
|
||||
Select Case SND.FilialenNr
|
||||
Case "5501" : Standort = "IMX"
|
||||
@@ -473,7 +562,27 @@ Public Class frmStartOptions
|
||||
Dim EMails_BCC As String = ""
|
||||
|
||||
Dim Emails_list_sent As New VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigungList
|
||||
VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigung.eMails_einlesen(KundenNr, 2, EMails, EMails_CC, EMails_BCC, Emails_list_sent)
|
||||
|
||||
Dim Mail_Art = -1
|
||||
Select Case art
|
||||
Case "AVM", "ABD" 'Export
|
||||
Mail_Art = 4 ' Freigabe Export
|
||||
|
||||
If EMails_BCC = "" Then
|
||||
EMails_BCC = "al@verag.ag"
|
||||
Else
|
||||
EMails_BCC &= ";al@verag.ag"
|
||||
End If
|
||||
Case Else
|
||||
Mail_Art = 2
|
||||
End Select
|
||||
Select Case SND.tblSnd_Abfertigungsart_ID
|
||||
Case 6, 7, 33, 34, 37, 40, 43
|
||||
Mail_Art = 4 ' Freigabe Export
|
||||
End Select
|
||||
|
||||
|
||||
VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigung.eMails_einlesen(KundenNr, Mail_Art, EMails, EMails_CC, EMails_BCC, Emails_list_sent)
|
||||
' body = body.Replace("%Platzhalter%", "E-Mails: " & EMails & " CC: " & EMails_CC & " BCC:" & EMails_BCC)
|
||||
body = body.Replace("%Platzhalter%", "")
|
||||
|
||||
@@ -489,38 +598,73 @@ Public Class frmStartOptions
|
||||
'EMails_BCC = ""
|
||||
'!!!!!!!!!!!!!!!!!!!!!!!!!!
|
||||
|
||||
If EMails_BCC = "" Then
|
||||
EMails_BCC = "al@verag.ag"
|
||||
Else
|
||||
EMails_BCC &= ";al@verag.ag"
|
||||
End If
|
||||
'If EMails_BCC = "" Then
|
||||
' EMails_BCC = "al@verag.ag"
|
||||
'Else
|
||||
' EMails_BCC &= ";al@verag.ag"
|
||||
'End If
|
||||
|
||||
|
||||
Dim API = VERAG_PROG_ALLGEMEIN.cAPI.INSERT_API(VERAG_PROG_ALLGEMEIN.cAPI_INOUT.OUT, VERAG_PROG_ALLGEMEIN.cAPI_Type.MAIL, VERAG_PROG_ALLGEMEIN.cAPI_ART.AVISO_OUT_BELEGMAIL, art,,, KundenNr, SND.tblSnd_AvisoID, SND.tblSnd_SendungID, SND.FilialenNr, SND.AbfertigungsNr)
|
||||
|
||||
API.api_EMail = EMails
|
||||
API.api_EMailCC = EMails_CC
|
||||
API.api_EMailBCC = EMails_BCC
|
||||
API.api_EMailSubject = betreff
|
||||
API.api_EMailText = body
|
||||
API.api_EMailAttCnt = pfadList.Count
|
||||
|
||||
|
||||
Select Case art
|
||||
Case "STB"
|
||||
If KD_ERW.EmailFreigabe_SteuerbescheidPDF Then
|
||||
betreff = betreff.Replace("%Zollbeleg%", "Abgabenbescheid " & BezugsNr)
|
||||
VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(EMails, betreff, body, getAbsenderEmail(FirmaTmp), False, False, EMails_CC, EMails_BCC, pfadList)
|
||||
If VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(EMails, betreff, body, getAbsenderEmail(FirmaTmp), False, False, EMails_CC, EMails_BCC, pfadList) Then
|
||||
API.UPDTAE_OK()
|
||||
insertSendungsVermerk(SND.tblSnd_SendungID, SND.tblSnd_AvisoID, "Zollbeleg '" & art & "' gesendet an: " & EMails, 46)
|
||||
Else
|
||||
API.UPDTAE_ERR()
|
||||
End If
|
||||
End If
|
||||
Case "VBD"
|
||||
If KD_ERW.EmailFreigabe_VBDPDF Then
|
||||
If (KD_ERW.EmailFreigabe_Export And KD_ERW.EmailFreigabe_Export_Art = "BLG") Or KD_ERW.EmailFreigabe_VBDPDF Then
|
||||
betreff = betreff.Replace("%Zollbeleg%", "Versandbegleitdokument " & BezugsNr)
|
||||
VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(EMails, betreff, body, getAbsenderEmail(FirmaTmp), False, False, EMails_CC, EMails_BCC, pfadList)
|
||||
End If
|
||||
Case "ABD"
|
||||
If KD_ERW.EmailFreigabe_SteuerbescheidPDF Then
|
||||
betreff = betreff.Replace("%Zollbeleg%", "Ausfuhrbegleitdokument " & BezugsNr)
|
||||
VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(EMails, betreff, body, getAbsenderEmail(FirmaTmp), False, False, EMails_CC, EMails_BCC, pfadList)
|
||||
End If
|
||||
Case "AVM"
|
||||
If KD_ERW.EmailFreigabe_SteuerbescheidPDF Then
|
||||
betreff = betreff.Replace("%Zollbeleg%", "Ausgangsvermerk " & BezugsNr)
|
||||
VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(EMails, betreff, body, getAbsenderEmail(FirmaTmp), False, False, EMails_CC, EMails_BCC, pfadList)
|
||||
If VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(EMails, betreff, body, getAbsenderEmail(FirmaTmp), False, False, EMails_CC, EMails_BCC, pfadList) Then
|
||||
API.UPDTAE_OK()
|
||||
insertSendungsVermerk(SND.tblSnd_SendungID, SND.tblSnd_AvisoID, "Zollbeleg '" & art & "' gesendet an: " & EMails, 46)
|
||||
Else
|
||||
API.UPDTAE_ERR()
|
||||
End If
|
||||
End If
|
||||
Case "ZNV"
|
||||
If KD_ERW.EmailFreigabe_SteuerbescheidPDF Then
|
||||
betreff = betreff.Replace("%Zollbeleg%", "Abgabenbescheid ZNV " & BezugsNr)
|
||||
VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(EMails, betreff, body, getAbsenderEmail(FirmaTmp), False, False, EMails_CC, EMails_BCC, pfadList)
|
||||
If VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(EMails, betreff, body, getAbsenderEmail(FirmaTmp), False, False, EMails_CC, EMails_BCC, pfadList) Then
|
||||
API.UPDTAE_OK()
|
||||
insertSendungsVermerk(SND.tblSnd_SendungID, SND.tblSnd_AvisoID, "Zollbeleg '" & art & "' gesendet an: " & EMails, 46)
|
||||
Else
|
||||
API.UPDTAE_ERR()
|
||||
End If
|
||||
End If
|
||||
Case "ABD"
|
||||
If KD_ERW.EmailFreigabe_Export Or KD_ERW.EmailFreigabe_ABDPDF Then
|
||||
betreff = betreff.Replace("%Zollbeleg%", "Ausfuhrbegleitdokument " & BezugsNr)
|
||||
If VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(EMails, betreff, body, getAbsenderEmail(FirmaTmp), False, False, EMails_CC, EMails_BCC, pfadList) Then
|
||||
API.UPDTAE_OK()
|
||||
insertSendungsVermerk(SND.tblSnd_SendungID, SND.tblSnd_AvisoID, "Zollbeleg '" & art & "' gesendet an: " & EMails, 46)
|
||||
Else
|
||||
API.UPDTAE_ERR()
|
||||
End If
|
||||
End If
|
||||
Case "AVM"
|
||||
If KD_ERW.EmailFreigabe_Export Or KD_ERW.Email_AVM Then
|
||||
betreff = betreff.Replace("%Zollbeleg%", "Ausgangsvermerk " & BezugsNr)
|
||||
If VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(EMails, betreff, body, getAbsenderEmail(FirmaTmp), False, False, EMails_CC, EMails_BCC, pfadList) Then
|
||||
API.UPDTAE_OK()
|
||||
insertSendungsVermerk(SND.tblSnd_SendungID, SND.tblSnd_AvisoID, "Zollbeleg '" & art & "' gesendet an: " & EMails, 46)
|
||||
Else
|
||||
API.UPDTAE_ERR()
|
||||
End If
|
||||
End If
|
||||
End Select
|
||||
|
||||
@@ -534,6 +678,30 @@ Public Class frmStartOptions
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
|
||||
Shared Sub insertSendungsVermerk(SendungID As Integer, AvisoID As Integer, Text As String, VermerkCodeId As Integer, Optional Beschreibung As String = "", Optional VorauskasseId As Object = Nothing, Optional addAuto As Boolean = False)
|
||||
'Daten zuweisen und speichern
|
||||
Dim myVermerk As New VERAG_PROG_ALLGEMEIN.cVermerk
|
||||
myVermerk.VermerkID = 0
|
||||
myVermerk.AvisoID = AvisoID
|
||||
myVermerk.Datum = Now
|
||||
myVermerk.Mitarbeiter = "(AUTO)"
|
||||
myVermerk.MitarbeiterId = -1
|
||||
myVermerk.Hinweis_Vermerk = Text
|
||||
myVermerk.VermerkCodeId = VermerkCodeId
|
||||
myVermerk.SendungID = SendungID
|
||||
If VorauskasseId IsNot Nothing AndAlso VorauskasseId IsNot DBNull.Value Then myVermerk.VorauskasseId = VorauskasseId
|
||||
myVermerk.VermerkArt = "S"
|
||||
Dim VermerkeDAL As New VERAG_PROG_ALLGEMEIN.cVermerkeDAL
|
||||
|
||||
VermerkeDAL.SpeichernVermerk(myVermerk)
|
||||
|
||||
If myVermerk.VermerkCodeId = 18 Then
|
||||
VermerkeDAL.UpdateLKW(myVermerk.AvisoID, False)
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Public Shared Function getAbsenderEmail(Optional FirmaTmp = "") As String
|
||||
Select Case If(FirmaTmp = "", VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA, FirmaTmp)
|
||||
Case "IMEX" : Return "noreply@imex-group.at"
|
||||
@@ -724,6 +892,128 @@ Public Class frmStartOptions
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodBase.GetCurrentMethod.Name, VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL)
|
||||
End Try
|
||||
|
||||
End Sub
|
||||
Sub importFileFromIDSMailAnhang(pfad, betreff)
|
||||
|
||||
Try
|
||||
Dim sql As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
Dim DS As VERAG_PROG_ALLGEMEIN.cDATENSERVER = Nothing
|
||||
|
||||
If betreff.contains("IDSPRD: Platts Price Report") Then
|
||||
|
||||
Dim ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "IDS\IDS_XLS\Platts_Price_Report\" & Now.Year & "\"
|
||||
If Not IO.Directory.Exists(ZIEL_PFAD) Then IO.Directory.CreateDirectory(ZIEL_PFAD)
|
||||
|
||||
Dim destFull = ""
|
||||
moveFile(pfad, ZIEL_PFAD, destFull)
|
||||
|
||||
Dim Excel1 As Object 'New Microsoft.Office.Interop.Excel.Application
|
||||
Dim Blatt As Object 'Microsoft.Office.Interop.Excel.Worksheet 'As Object 'as Worksheet
|
||||
Excel1 = CreateObject("Excel.Application")
|
||||
Dim txt As String
|
||||
Dim Datei As Object 'as WorkBook
|
||||
' VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(destFull, "00", System.Reflection.MethodBase.GetCurrentMethod.Name, VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL)
|
||||
|
||||
Dim DT_PLATTS As New DataTable()
|
||||
|
||||
DT_PLATTS.Columns.Add("IsoCode")
|
||||
DT_PLATTS.Columns.Add("Outlet")
|
||||
DT_PLATTS.Columns.Add("Group Description")
|
||||
DT_PLATTS.Columns.Add("Product")
|
||||
DT_PLATTS.Columns.Add("Price Period Start")
|
||||
DT_PLATTS.Columns.Add("Price Period End")
|
||||
DT_PLATTS.Columns.Add("Excise")
|
||||
DT_PLATTS.Columns.Add("Netprice")
|
||||
DT_PLATTS.Columns.Add("Currency")
|
||||
Try
|
||||
VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("al@verag.ag", "TEST 1 " & destFull, "*AUTO*",,,,,, )
|
||||
|
||||
With Excel1
|
||||
VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("al@verag.ag", "TEST 1.1", "*AUTO*",,,,,, )
|
||||
|
||||
Datei = .Workbooks.Open(destFull,, True) 'Anpassen
|
||||
VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("al@verag.ag", "TEST 1.2", "*AUTO*",,,,,, )
|
||||
'Try
|
||||
' Datei = .Workbooks.Open(destFull,, True) 'Anpassen
|
||||
'Catch ex As Exception
|
||||
' System.Threading.Thread.Sleep(5000) ' 5 Sek. warten --> noch Zugriff vom Erstellen?
|
||||
' Datei = .Workbooks.Open(destFull,, True)
|
||||
'End Try
|
||||
|
||||
Blatt = Datei.Worksheets(1) 'Anpassen
|
||||
|
||||
VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("al@verag.ag", "TEST 1.3", "*AUTO*",,,,,, )
|
||||
'Excel1.Workbooks.Open(destFull)
|
||||
'Excel1.Visible = True ....wers braucht ?
|
||||
|
||||
Dim zeile = 12
|
||||
'txt =""
|
||||
|
||||
VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("al@verag.ag", "TEST 2: " & Blatt.Range("A" & zeile), "*AUTO*",,,,,, )
|
||||
|
||||
While zeile <= 10000 AndAlso Blatt.Range("A" & zeile) IsNot Nothing AndAlso Blatt.Range("A" & zeile) <> ""
|
||||
|
||||
If Blatt.Range("A" & zeile).Value.ToString.Contains("Austria") Then
|
||||
|
||||
DT_PLATTS.Rows.Add({Blatt.Range("A" & zeile).Value, Blatt.Range("B" & zeile).Value, Blatt.Range("C" & zeile).Value, Blatt.Range("D" & zeile).Value, Blatt.Range("E" & zeile).Value, Blatt.Range("F" & zeile).Value, Blatt.Range("H" & zeile).Value, Blatt.Range("I" & zeile).Value, Blatt.Range("J" & zeile).Value})
|
||||
|
||||
|
||||
End If
|
||||
|
||||
|
||||
|
||||
zeile += 1
|
||||
|
||||
End While
|
||||
VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("al@verag.ag", "zeile: " & zeile, "*AUTO*",,,,,, )
|
||||
|
||||
|
||||
End With
|
||||
|
||||
|
||||
'NEUE EXCEL GENEREITER, PREISE ANPASSEN, MAIL SENDEN
|
||||
If DT_PLATTS.Rows.Count > 0 Then
|
||||
Dim XLS_PAth = destFull.Replace(".xls", "_NEW.xls")
|
||||
Dim XLS_Tmp = ""
|
||||
VERAG_PROG_ALLGEMEIN.cProgramFunctions.genExcelFromDT_NEW(DT_PLATTS,,,,, False, XLS_Tmp)
|
||||
If XLS_Tmp <> "" Then
|
||||
IO.File.Move(XLS_Tmp, XLS_PAth) ' Verschiebt die Datei
|
||||
|
||||
VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("al@verag.ag", "IDSPRD: Platts Price Report", "*AUTO*",,,,,, {XLS_PAth})
|
||||
|
||||
End If
|
||||
End If
|
||||
|
||||
Excel1.Workbooks.Close
|
||||
System.Runtime.InteropServices.Marshal.FinalReleaseComObject(Excel1)
|
||||
System.Runtime.InteropServices.Marshal.FinalReleaseComObject(Blatt)
|
||||
Excel1 = Nothing
|
||||
Blatt = Nothing
|
||||
GC.Collect()
|
||||
|
||||
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodBase.GetCurrentMethod.Name, VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL)
|
||||
|
||||
Try
|
||||
Excel1.Workbooks.Close
|
||||
System.Runtime.InteropServices.Marshal.FinalReleaseComObject(Excel1)
|
||||
System.Runtime.InteropServices.Marshal.FinalReleaseComObject(Blatt)
|
||||
Excel1 = Nothing
|
||||
Blatt = Nothing
|
||||
GC.Collect()
|
||||
|
||||
Catch ex2 As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex2.Message, ex2.StackTrace, System.Reflection.MethodBase.GetCurrentMethod.Name, VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL)
|
||||
End Try
|
||||
End Try
|
||||
|
||||
End If
|
||||
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodBase.GetCurrentMethod.Name, VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL)
|
||||
End Try
|
||||
|
||||
End Sub
|
||||
Public Function FileInUse(ByVal sFile As String) As Boolean
|
||||
If System.IO.File.Exists(sFile) Then
|
||||
@@ -936,6 +1226,7 @@ Public Class frmStartOptions
|
||||
Dim destFull = ""
|
||||
moveFile(pfad, ZIEL_PFAD, destFull)
|
||||
|
||||
|
||||
If DS.insertDataToDATENSERVER(destFull) Then
|
||||
If IsNumeric(dy_id) AndAlso dy_id > 0 Then
|
||||
sql.doSQL("UPDATE tblDakosy_Zollanmeldungen SET dy_VBD_dsId='" & DS.da_id & "' where dy_id='" & dy_id & "'", "FMZOLL")
|
||||
@@ -1265,17 +1556,49 @@ Public Class frmStartOptions
|
||||
End Sub
|
||||
|
||||
|
||||
Public Function moveFile(file, toDirectory, Optional ByRef dest = "")
|
||||
If Not IO.File.Exists(file) Then Return False
|
||||
If Not IO.Directory.Exists(toDirectory) Then IO.Directory.CreateDirectory(toDirectory)
|
||||
dest = toDirectory & cut_file(file)
|
||||
If IO.File.Exists(dest) Then
|
||||
dest = toDirectory & Now.ToString("yyMMdd_HHmmss.fff_") & cut_file(file)
|
||||
End If
|
||||
IO.File.Move(file, dest) ' Verschiebt die Datei
|
||||
Return True
|
||||
Public Function moveFile(file, toDirectory, Optional ByRef dest = "") ', Optional unlockFile = True)
|
||||
Try
|
||||
If Not IO.File.Exists(file) Then Return False
|
||||
If Not IO.Directory.Exists(toDirectory) Then IO.Directory.CreateDirectory(toDirectory)
|
||||
dest = toDirectory & cut_file(file).Replace("lock_", "")
|
||||
If IO.File.Exists(dest) Then
|
||||
dest = toDirectory & Now.ToString("yyMMdd_HHmmss.fff_") & cut_file(file).Replace("lock_", "")
|
||||
End If
|
||||
IO.File.Move(file, dest) ' Verschiebt die Datei
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & file, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
End Try
|
||||
Return False
|
||||
End Function
|
||||
Public Function lockFile(file) As String
|
||||
Try
|
||||
If Not IO.File.Exists(file) Then Return file
|
||||
If file.ToString.Contains("lock_") Then Return file
|
||||
Dim FIO As New FileInfo(file)
|
||||
Dim dest = FIO.Directory.FullName & "\lock_" & FIO.Name
|
||||
If IO.File.Exists(dest) Then Return file
|
||||
IO.File.Move(file, dest) ' Verschiebt die Datei
|
||||
Return dest
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & file, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
End Try
|
||||
Return file
|
||||
End Function
|
||||
|
||||
Public Function unlockFile(file) As String
|
||||
Try
|
||||
Dim dest = file.ToString.Replace("\lock_", "")
|
||||
If Not IO.File.Exists(file) Then Return False
|
||||
If Not IO.File.Exists(dest) Then Return False
|
||||
|
||||
IO.File.Move(file, dest) ' Verschiebt die Datei
|
||||
Return dest
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & file, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
End Try
|
||||
Return file
|
||||
End Function
|
||||
Public Function moveFile_DateBack(file, toDirectory, Optional ByRef dest = "")
|
||||
If Not IO.File.Exists(file) Then Return False
|
||||
If Not IO.Directory.Exists(toDirectory) Then IO.Directory.CreateDirectory(toDirectory)
|
||||
@@ -1411,11 +1734,12 @@ Public Class frmStartOptions
|
||||
|
||||
End Function
|
||||
|
||||
Function getUID_Pruefung(maxAnz As Integer, Mail_FIMRA As String, Mail_betreff As String, Mail_To As String, Optional Mail_CC As String = "", Optional Mail_BCC As String = "") As Boolean
|
||||
Function getUID_Pruefung(maxAnz As Integer, Mail_FIMRA As String, Mail_betreff As String, Mail_To As String, Optional Mail_CC As String = "", Optional Mail_BCC As String = "", Optional TageZurueck As String = "") As Boolean
|
||||
Dim firmatmp = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
|
||||
Try
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = Mail_FIMRA
|
||||
Dim dt = VERAG_PROG_ALLGEMEIN.cUIDPruefung.doUIDPruefungALL(CDate(Now.ToString("01.MM.yyyy")).AddMonths(-1), True, False, maxAnz, False)
|
||||
Dim dateBack = If(TageZurueck <> "", CDate(Now.ToString("01.MM.yyyy")).AddDays(TageZurueck * -1), CDate(Now.ToString("01.MM.yyyy")).AddMonths(-1))
|
||||
Dim dt = VERAG_PROG_ALLGEMEIN.cUIDPruefung.doUIDPruefungALL(dateBack, True, False, maxAnz, False)
|
||||
If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
|
||||
Dim PDF = VERAG_PROG_ALLGEMEIN.cProgramFunctions.genExcelFromDT_NEW(dt,,,,, False)
|
||||
If PDF <> "" Then
|
||||
@@ -1439,89 +1763,89 @@ Public Class frmStartOptions
|
||||
End Try
|
||||
|
||||
End Function
|
||||
Function getUID_PruefungVERAG(maxAnz As Integer) As Boolean
|
||||
Dim firmatmp = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
|
||||
Try
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG"
|
||||
Dim dt = VERAG_PROG_ALLGEMEIN.cUIDPruefung.doUIDPruefungALL(CDate(Now.ToString("01.MM.yyyy")).AddMonths(-1), True, False, maxAnz, False)
|
||||
If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
|
||||
Dim PDF = VERAG_PROG_ALLGEMEIN.cProgramFunctions.genExcelFromDT_NEW(dt,,,,, False)
|
||||
If PDF <> "" Then
|
||||
Dim list As New List(Of String)
|
||||
list.Add(PDF)
|
||||
Dim Body = "Anbei befinden sich die Auflistung der geprüfen UID-Nummern.<br>Bei UID-Nummer mit dem Prüfungserbnis 'OK' wurde das Prüfdatum in den Kundenstamm eingetragen. "
|
||||
Body &= "<br><b>Ungültige UID-Nummern bitte manuell bearbeiten!</b>"
|
||||
Body &= "<br><br>Erstellt am: " & Now.ToShortDateString & ", um " & Now.ToShortTimeString
|
||||
Body &= "<br><br>Automatisch generiertes E-Mail."
|
||||
'Function getUID_PruefungVERAG(maxAnz As Integer) As Boolean
|
||||
' Dim firmatmp = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
|
||||
' Try
|
||||
' VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG"
|
||||
' Dim dt = VERAG_PROG_ALLGEMEIN.cUIDPruefung.doUIDPruefungALL(CDate(Now.ToString("01.MM.yyyy")).AddMonths(-1), True, False, maxAnz, False)
|
||||
' If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
|
||||
' Dim PDF = VERAG_PROG_ALLGEMEIN.cProgramFunctions.genExcelFromDT_NEW(dt,,,,, False)
|
||||
' If PDF <> "" Then
|
||||
' Dim list As New List(Of String)
|
||||
' list.Add(PDF)
|
||||
' Dim Body = "Anbei befinden sich die Auflistung der geprüfen UID-Nummern.<br>Bei UID-Nummer mit dem Prüfungserbnis 'OK' wurde das Prüfdatum in den Kundenstamm eingetragen. "
|
||||
' Body &= "<br><b>Ungültige UID-Nummern bitte manuell bearbeiten!</b>"
|
||||
' Body &= "<br><br>Erstellt am: " & Now.ToShortDateString & ", um " & Now.ToShortTimeString
|
||||
' Body &= "<br><br>Automatisch generiertes E-Mail."
|
||||
|
||||
VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("kb@verag.ag", "UID Prüfung VERAG", Body,,, False, "al@verag.ag",, list)
|
||||
' VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("al@verag.ag", "UID Prüfung", Body,,, False, ,, list)
|
||||
End If
|
||||
End If
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = firmatmp
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = firmatmp
|
||||
MsgBox(ex.Message & ex.StackTrace)
|
||||
Return False
|
||||
End Try
|
||||
End Function
|
||||
Function getUID_PruefungIMEX(maxAnz As Integer) As Boolean
|
||||
Dim firmatmp = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
|
||||
Try
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "IMEX"
|
||||
' VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("kb@verag.ag", "UID Prüfung VERAG", Body,,, False, "al@verag.ag",, list)
|
||||
' ' VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("al@verag.ag", "UID Prüfung", Body,,, False, ,, list)
|
||||
' End If
|
||||
' End If
|
||||
' VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = firmatmp
|
||||
' Return True
|
||||
' Catch ex As Exception
|
||||
' VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = firmatmp
|
||||
' MsgBox(ex.Message & ex.StackTrace)
|
||||
' Return False
|
||||
' End Try
|
||||
'End Function
|
||||
'Function getUID_PruefungIMEX(maxAnz As Integer) As Boolean
|
||||
' Dim firmatmp = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
|
||||
' Try
|
||||
' VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "IMEX"
|
||||
|
||||
Dim dt = VERAG_PROG_ALLGEMEIN.cUIDPruefung.doUIDPruefungALL(CDate(Now.ToString("01.MM.yyyy")).AddMonths(-1), True, False, maxAnz, False)
|
||||
If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
|
||||
Dim PDF = VERAG_PROG_ALLGEMEIN.cProgramFunctions.genExcelFromDT_NEW(dt,,,,, False)
|
||||
If PDF <> "" Then
|
||||
Dim list As New List(Of String)
|
||||
list.Add(PDF)
|
||||
Dim Body = "Anbei befinden sich die Auflistung der geprüfen UID-Nummern.<br>Bei UID-Nummer mit dem Prüfungserbnis 'OK' wurde das Prüfdatum in den Kundenstamm eingetragen. "
|
||||
Body &= "<br><b>Ungültige UID-Nummern bitte manuell bearbeiten!</b>"
|
||||
Body &= "<br><br>Erstellt am: " & Now.ToShortDateString & ", um " & Now.ToShortTimeString
|
||||
Body &= "<br><br>Automatisch generiertes E-Mail."
|
||||
' Dim dt = VERAG_PROG_ALLGEMEIN.cUIDPruefung.doUIDPruefungALL(CDate(Now.ToString("01.MM.yyyy")).AddMonths(-1), True, False, maxAnz, False)
|
||||
' If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
|
||||
' Dim PDF = VERAG_PROG_ALLGEMEIN.cProgramFunctions.genExcelFromDT_NEW(dt,,,,, False)
|
||||
' If PDF <> "" Then
|
||||
' Dim list As New List(Of String)
|
||||
' list.Add(PDF)
|
||||
' Dim Body = "Anbei befinden sich die Auflistung der geprüfen UID-Nummern.<br>Bei UID-Nummer mit dem Prüfungserbnis 'OK' wurde das Prüfdatum in den Kundenstamm eingetragen. "
|
||||
' Body &= "<br><b>Ungültige UID-Nummern bitte manuell bearbeiten!</b>"
|
||||
' Body &= "<br><br>Erstellt am: " & Now.ToShortDateString & ", um " & Now.ToShortTimeString
|
||||
' Body &= "<br><br>Automatisch generiertes E-Mail."
|
||||
|
||||
VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("Viktoria.Leirich@imex-group.at;kb@verag.ag", "UID Prüfung IMEX", Body,,, False, "al@verag.ag",, list)
|
||||
' VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("al@verag.ag", "UID Prüfung", Body,,, False, ,, list)
|
||||
End If
|
||||
End If
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = firmatmp
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = firmatmp
|
||||
MsgBox(ex.Message & ex.StackTrace)
|
||||
Return False
|
||||
End Try
|
||||
End Function
|
||||
Function getUID_PruefungAMBAR(maxAnz As Integer) As Boolean
|
||||
Dim firmatmp = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
|
||||
Try
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "AMBAR"
|
||||
' VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("Viktoria.Leirich@imex-group.at;kb@verag.ag", "UID Prüfung IMEX", Body,,, False, "al@verag.ag",, list)
|
||||
' ' VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("al@verag.ag", "UID Prüfung", Body,,, False, ,, list)
|
||||
' End If
|
||||
' End If
|
||||
' VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = firmatmp
|
||||
' Return True
|
||||
' Catch ex As Exception
|
||||
' VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = firmatmp
|
||||
' MsgBox(ex.Message & ex.StackTrace)
|
||||
' Return False
|
||||
' End Try
|
||||
'End Function
|
||||
'Function getUID_PruefungAMBAR(maxAnz As Integer) As Boolean
|
||||
' Dim firmatmp = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
|
||||
' Try
|
||||
' VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "AMBAR"
|
||||
|
||||
Dim dt = VERAG_PROG_ALLGEMEIN.cUIDPruefung.doUIDPruefungALL(CDate(Now.ToString("01.MM.yyyy")).AddMonths(-1), True, False, maxAnz, False)
|
||||
If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
|
||||
Dim PDF = VERAG_PROG_ALLGEMEIN.cProgramFunctions.genExcelFromDT_NEW(dt,,,,, False)
|
||||
If PDF <> "" Then
|
||||
Dim list As New List(Of String)
|
||||
list.Add(PDF)
|
||||
Dim Body = "Anbei befinden sich die Auflistung der geprüfen UID-Nummern.<br>Bei UID-Nummer mit dem Prüfungserbnis 'OK' wurde das Prüfdatum in den Kundenstamm eingetragen. "
|
||||
Body &= "<br><b>Ungültige UID-Nummern bitte manuell bearbeiten!</b>"
|
||||
Body &= "<br><br>Erstellt am: " & Now.ToShortDateString & ", um " & Now.ToShortTimeString
|
||||
Body &= "<br><br>Automatisch generiertes E-Mail."
|
||||
' Dim dt = VERAG_PROG_ALLGEMEIN.cUIDPruefung.doUIDPruefungALL(CDate(Now.ToString("01.MM.yyyy")).AddMonths(-1), True, False, maxAnz, False)
|
||||
' If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
|
||||
' Dim PDF = VERAG_PROG_ALLGEMEIN.cProgramFunctions.genExcelFromDT_NEW(dt,,,,, False)
|
||||
' If PDF <> "" Then
|
||||
' Dim list As New List(Of String)
|
||||
' list.Add(PDF)
|
||||
' Dim Body = "Anbei befinden sich die Auflistung der geprüfen UID-Nummern.<br>Bei UID-Nummer mit dem Prüfungserbnis 'OK' wurde das Prüfdatum in den Kundenstamm eingetragen. "
|
||||
' Body &= "<br><b>Ungültige UID-Nummern bitte manuell bearbeiten!</b>"
|
||||
' Body &= "<br><br>Erstellt am: " & Now.ToShortDateString & ", um " & Now.ToShortTimeString
|
||||
' Body &= "<br><br>Automatisch generiertes E-Mail."
|
||||
|
||||
VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("kb@verag.ag", "UID Prüfung AMBAR", Body,,, False, "al@verag.ag",, list)
|
||||
' VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("al@verag.ag", "UID Prüfung", Body,,, False, ,, list)
|
||||
End If
|
||||
End If
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = firmatmp
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = firmatmp
|
||||
MsgBox(ex.Message & ex.StackTrace)
|
||||
Return False
|
||||
End Try
|
||||
End Function
|
||||
' VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("kb@verag.ag", "UID Prüfung AMBAR", Body,,, False, "al@verag.ag",, list)
|
||||
' ' VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("al@verag.ag", "UID Prüfung", Body,,, False, ,, list)
|
||||
' End If
|
||||
' End If
|
||||
' VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = firmatmp
|
||||
' Return True
|
||||
' Catch ex As Exception
|
||||
' VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = firmatmp
|
||||
' MsgBox(ex.Message & ex.StackTrace)
|
||||
' Return False
|
||||
' End Try
|
||||
'End Function
|
||||
|
||||
Function getEZB_Waehrungskurse90D() As Boolean
|
||||
Dim MyData As String = ""
|
||||
@@ -1791,7 +2115,8 @@ Public Class frmStartOptions
|
||||
|
||||
Private Sub LinkLabel20_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel20.LinkClicked
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
|
||||
Dim bool = getUID_PruefungVERAG(MyTextBox1.Text)
|
||||
Dim bool = getUID_Pruefung(MyTextBox1.Text, "VERAG", "UID Prüfung VERAG", "as@verag.ag;ih@verag.ag;kb@verag.ag", "al@verag.ag",, MyTextBox2._value)
|
||||
'Dim bool = getUID_PruefungVERAG(MyTextBox1.Text)
|
||||
showPic(bool, PictureBox12)
|
||||
End Sub
|
||||
|
||||
@@ -2195,12 +2520,13 @@ Public Class frmStartOptions
|
||||
|
||||
Private Sub LinkLabel32_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel32.LinkClicked
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
|
||||
Dim bool = getUID_PruefungIMEX(MyTextBox1.Text)
|
||||
' Dim bool = getUID_PruefungIMEX(MyTextBox1.Text)
|
||||
Dim bool = getUID_Pruefung(MyTextBox1.Text, "IMEX", "UID Prüfung IMEX", "Viktoria.Leirich@imex-group.at;as@verag.ag;kb@verag.ag", "al@verag.ag",, MyTextBox2._value)
|
||||
showPic(bool, PictureBox12)
|
||||
End Sub
|
||||
Private Sub LinkLabel33_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel33.LinkClicked
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
|
||||
Dim bool = getUID_PruefungAMBAR(MyTextBox1.Text)
|
||||
Dim bool = getUID_Pruefung(MyTextBox1.Text, "AMBAR", "UID Prüfung AMBAR", "as@verag.ag", "al@verag.ag",, MyTextBox2._value)
|
||||
showPic(bool, PictureBox12)
|
||||
End Sub
|
||||
|
||||
@@ -2211,11 +2537,15 @@ Public Class frmStartOptions
|
||||
Function UPDATE_SMS() As Boolean
|
||||
Try
|
||||
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
Dim dt As DataTable = SQL.loadDgvBySql("SELECT * FROM tblSMS where sms_Status not IN(3,4) and sms_MessageIds is not null and sms_MessageIds not like 'https://api.esendex.com/%' AND sms_Datum>DATEADD(DAY,-2, GETDATE())", "FMZOLL")
|
||||
Dim dt As DataTable = SQL.loadDgvBySql("SELECT * FROM tblSMS where sms_Status not IN(3,4) and (CASE sms_art WHEN 'WHATSAPP' THEN whatsApp_gatewayId ELSE sms_MessageIds END) is not null and isnull(sms_MessageIds,'') not like 'https://api.esendex.com/%' AND sms_Datum>DATEADD(DAY,-2, GETDATE())", "FMZOLL")
|
||||
If dt IsNot Nothing Then
|
||||
For Each r In dt.Rows
|
||||
Dim cSMS As New VERAG_PROG_ALLGEMEIN.cSMS(r("sms_id"))
|
||||
cSMS.checkSMSStatus(True)
|
||||
|
||||
Select Case cSMS.sms_art
|
||||
Case "WHATSAPP" : cSMS.checkWhatsAppStatus(True)
|
||||
Case "SMS" : cSMS.checkSMSStatus(True)
|
||||
End Select
|
||||
Next
|
||||
End If
|
||||
Return True
|
||||
@@ -2248,7 +2578,29 @@ Public Class frmStartOptions
|
||||
End Sub
|
||||
|
||||
Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click
|
||||
doExcelImportNCTS_FREMD(InputBox("Eing:",, "F:\mic2.xlsx"))
|
||||
Dim FO As New VERAG_PROG_ALLGEMEIN.cFinanzOnlineWebService
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG"
|
||||
FO.initValues()
|
||||
|
||||
If FO.Call_Web_Service_MethodUID_Login_NEU2020() = 0 Then
|
||||
Dim UID_ERG = FO.Call_Web_Service_MethodUID_Abfrage_NEU2020(759181)
|
||||
|
||||
If UID_ERG IsNot Nothing Then
|
||||
|
||||
Select Case UID_ERG.uid_valid
|
||||
Case 1 : MsgBox("UID-Nr. GÜLTIG - OK")
|
||||
Case 0 : MsgBox("UID-Nr. UNGÜLTIG")
|
||||
End Select
|
||||
End If
|
||||
End If
|
||||
|
||||
FO.Call_Web_Service_MethodUID_Logout_NEU2020()
|
||||
|
||||
|
||||
' VERAG_PROG_ALLGEMEIN.cFinanzOnlineWebService.Call_Web_Service_MethodUID_Abfrage_NEU2020("DE115311033")
|
||||
|
||||
|
||||
'doExcelImportNCTS_FREMD(InputBox("Eing:",, "F:\mic2.xlsx"))
|
||||
'Dim list As New List(Of Integer)
|
||||
'Dim DY As New DAKOSY_Worker.cDakosy_Zollanmeldungen(572237)
|
||||
'Dim SND As New VERAG_PROG_ALLGEMEIN.cSendungen(DY.dy_SendungsId)
|
||||
@@ -2287,12 +2639,33 @@ Public Class frmStartOptions
|
||||
End Sub
|
||||
|
||||
Private Sub Button12_Click(sender As Object, e As EventArgs) Handles Button12.Click
|
||||
VERAG_PROG_ALLGEMEIN.cSyska_Interface.UPDATE_FIBU_RISIKO(123456)
|
||||
VERAG_PROG_ALLGEMEIN.cSyska_Interface.UPDATE_FIBU_RISIKO(123456)
|
||||
'VERAG_PROG_ALLGEMEIN.cSyska_Interface.UPDATE_FIBU_RISIKO(401026)
|
||||
'VERAG_PROG_ALLGEMEIN.cSyska_Interface.UPDATE_FIBU_RISIKO(401516)
|
||||
'VERAG_PROG_ALLGEMEIN.cSyska_Interface.UPDATE_FIBU_RISIKO(203203)
|
||||
'VERAG_PROG_ALLGEMEIN.cSyska_Interface.UPDATE_FIBU_RISIKO(202888)
|
||||
'VERAG_PROG_ALLGEMEIN.cSyska_Interface.UPDATE_FIBU_RISIKO(101001)
|
||||
'VERAG_PROG_ALLGEMEIN.cSyska_Interface.UPDATE_FIBU_RISIKO(402155)
|
||||
'VERAG_PROG_ALLGEMEIN.cSyska_Interface.UPDATE_FIBU_RISIKO(402055)
|
||||
'VERAG_PROG_ALLGEMEIN.cSyska_Interface.UPDATE_FIBU_RISIKO(300405)
|
||||
'VERAG_PROG_ALLGEMEIN.cSyska_Interface.UPDATE_FIBU_RISIKO(202766)
|
||||
'VERAG_PROG_ALLGEMEIN.cSyska_Interface.UPDATE_FIBU_RISIKO(203252)
|
||||
'VERAG_PROG_ALLGEMEIN.cSyska_Interface.UPDATE_FIBU_RISIKO(401454)
|
||||
'VERAG_PROG_ALLGEMEIN.cSyska_Interface.UPDATE_FIBU_RISIKO(202479)
|
||||
'VERAG_PROG_ALLGEMEIN.cSyska_Interface.UPDATE_FIBU_RISIKO(402162)
|
||||
'VERAG_PROG_ALLGEMEIN.cSyska_Interface.UPDATE_FIBU_RISIKO(401729)
|
||||
'VERAG_PROG_ALLGEMEIN.cSyska_Interface.UPDATE_FIBU_RISIKO(202811)
|
||||
|
||||
VERAG_PROG_ALLGEMEIN.cSyska_Interface.UPDATE_FIBU_RISIKO()
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub Button13_Click(sender As Object, e As EventArgs) Handles Button13.Click
|
||||
VERAG_PROG_ALLGEMEIN.cSyska_Interface.OP_Einlesen_ALL()
|
||||
End Sub
|
||||
|
||||
Private Sub LinkLabel36_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel36.LinkClicked
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
|
||||
Dim bool = getUID_Pruefung(MyTextBox1.Text, "UNISPED", "UID Prüfung UNISPED", "al@verag.ag", "al@verag.ag",, MyTextBox2._value)
|
||||
showPic(bool, PictureBox12)
|
||||
End Sub
|
||||
End Class
|
||||
Reference in New Issue
Block a user