diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/EZA/cDakosyEZA.vb b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/cDakosyEZA.vb
index eac711a..29a8865 100644
--- a/DAKOSY_Worker/DAKOSY/ATLAS/EZA/cDakosyEZA.vb
+++ b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/cDakosyEZA.vb
@@ -104,7 +104,8 @@ Public Class cDakosyEZA
Property eza_BezugsnummerBEAnteilZL As Object = Nothing
Property eza_UstIdAnmelder As Object = Nothing
Property eza_FinanzamtAnmelder As Object = Nothing
-
+ Property eza_Anmeldedatum As Object = Nothing
+
@@ -234,7 +235,8 @@ list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_BewilligungsIDZLAVUV", eza_Be
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_BezugsnummerBEAnteilZL", eza_BezugsnummerBEAnteilZL))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_UstIdAnmelder", eza_UstIdAnmelder))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_FinanzamtAnmelder", eza_FinanzamtAnmelder))
-
+ list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_Anmeldedatum", eza_Anmeldedatum))
+
Return list
End Function
diff --git a/initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb b/initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb
index b0e6b78..537590d 100644
--- a/initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb
+++ b/initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb
@@ -6945,6 +6945,7 @@ Public Class frmDYNachrichtenVerarbeitung
EZA_TMP = saveDY_EZA(STATUS, DY_TMP, EZA.Transaktion.IOReferenz, If(zp, EZA.Transaktion.IODatumZeit))
End If
+
SaveEZA_FirmaNL(EZA_TMP, DY_TMP, division)
If DY_TMP IsNot Nothing Then STATUS.dySt_dyId = DY_TMP.dy_Id
@@ -7892,7 +7893,6 @@ Public Class frmDYNachrichtenVerarbeitung
Dim DY_TMP As DAKOSY_Worker.cDakosy_Zollanmeldungen = saveDY_ZA(STATUS, EZA.Transaktion.IOReferenz, If(zp, EZA.Transaktion.IODatumZeit), "EZA")
Dim EZA_TMP As DAKOSY_Worker.cDakosyEZA
-
'???????? REGNR
If regNR <> "" Then
STATUS.dySt_ergCode = "REGNr"
@@ -7902,6 +7902,11 @@ Public Class frmDYNachrichtenVerarbeitung
EZA_TMP = saveDY_EZA(STATUS, DY_TMP, EZA.Transaktion.IOReferenz, If(zp, EZA.Transaktion.IODatumZeit))
End If
+
+ 'Anmlededatum setzen
+ EZA_TMP.eza_Anmeldedatum = zp
+ EZA_TMP.SAVE()
+
SaveEZA_FirmaNL(EZA_TMP, DY_TMP, division)
If DY_TMP IsNot Nothing Then STATUS.dySt_dyId = DY_TMP.dy_Id
@@ -7982,6 +7987,10 @@ Public Class frmDYNachrichtenVerarbeitung
EZA_TMP = saveDY_EZA(STATUS, DY_TMP, EZA.Transaktion.IOReferenz, If(zp, EZA.Transaktion.IODatumZeit))
End If
+ 'Anmlededatum setzen
+ EZA_TMP.eza_Anmeldedatum = zp
+ EZA_TMP.SAVE()
+
SaveEZA_FirmaNL(EZA_TMP, DY_TMP, division)
If DY_TMP IsNot Nothing Then STATUS.dySt_dyId = DY_TMP.dy_Id
@@ -8062,6 +8071,11 @@ Public Class frmDYNachrichtenVerarbeitung
EZA_TMP = saveDY_EZA(STATUS, DY_TMP, EZA.Transaktion.IOReferenz, If(zp, EZA.Transaktion.IODatumZeit))
End If
+ 'Anmlededatum setzen
+ EZA_TMP.eza_Anmeldedatum = zp
+ EZA_TMP.SAVE()
+
+
SaveEZA_FirmaNL(EZA_TMP, DY_TMP, division)
If DY_TMP IsNot Nothing Then STATUS.dySt_dyId = DY_TMP.dy_Id
@@ -8190,6 +8204,10 @@ Public Class frmDYNachrichtenVerarbeitung
VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(MailTo, "MITTEILUNG ZOLL: Nicht abschließender Abgebenbescheid - " & readEZA_Abgabenbescheid,
"Meldung über nicht abschließenden Abgabenbescheid bei der Bezugsnummer: " & readEZA_Abgabenbescheid & "
Firma: " & EZA_TMP.eza_firma & "Niederlassung: " & EZA_TMP.eza_niederlassung & "
Automatisch generiertes E-Mail.",
, True, True)
+ 'Anmlededatum setzen
+ EZA_TMP.eza_Anmeldedatum = zp
+ EZA_TMP.SAVE()
+
'Case "5"
' STATUS.dySt_status = DAKOSY_Worker.cDY_Statusliste.S_55 'nicht abschleißender Bescheid
' Dim MailTo = "al@verag.ag"
@@ -8197,6 +8215,10 @@ Public Class frmDYNachrichtenVerarbeitung
' VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(MailTo, "MITTEILUNG ZOLL: Nicht abschließender Abgebenbescheid - " & readEZA_Abgabenbescheid,
' "Meldung über abschließenden Abgabenbescheid bei der Bezugsnummer: " & readEZA_Abgabenbescheid & "
Firma: " & EZA_TMP.eza_firma & "Niederlassung: " & EZA_TMP.eza_niederlassung & "
Automatisch generiertes E-Mail.",
' , True, True)
+ Case "5", "6"
+ 'Anmlededatum setzen
+ EZA_TMP.eza_Anmeldedatum = zp
+ EZA_TMP.SAVE()
End Select
' ------------------------------------------------------------------------------
@@ -8382,6 +8404,15 @@ Public Class frmDYNachrichtenVerarbeitung
VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(MailTo, "MITTEILUNG ZOLL: Nicht abschließender Abgebenbescheid - " & readEZA_Abgabenbescheid008,
"Meldung über nicht abschließenden Abgabenbescheid bei der Bezugsnummer: " & readEZA_Abgabenbescheid008 & "
Firma: " & EZA_TMP.eza_firma & "Niederlassung: " & EZA_TMP.eza_niederlassung & "
Automatisch generiertes E-Mail.",
, True, True)
+
+
+ 'Anmlededatum setzen
+ EZA_TMP.eza_Anmeldedatum = zp
+ EZA_TMP.SAVE()
+
+
+
+
'Case "5"
' STATUS.dySt_status = DAKOSY_Worker.cDY_Statusliste.S_55 'nicht abschleißender Bescheid
' Dim MailTo = "al@verag.ag"
@@ -8389,6 +8420,11 @@ Public Class frmDYNachrichtenVerarbeitung
' VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(MailTo, "MITTEILUNG ZOLL: Nicht abschließender Abgebenbescheid - " & readEZA_Abgabenbescheid,
' "Meldung über abschließenden Abgabenbescheid bei der Bezugsnummer: " & readEZA_Abgabenbescheid & "
Firma: " & EZA_TMP.eza_firma & "Niederlassung: " & EZA_TMP.eza_niederlassung & "
Automatisch generiertes E-Mail.",
' , True, True)
+ Case "5", "6"
+ 'Anmlededatum setzen
+ EZA_TMP.eza_Anmeldedatum = zp
+ EZA_TMP.SAVE()
+
End Select
' ------------------------------------------------------------------------------
@@ -8575,6 +8611,14 @@ Public Class frmDYNachrichtenVerarbeitung
VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(MailTo, "MITTEILUNG ZOLL: Nicht abschließender Abgebenbescheid - " & readEZA_Abgabenbescheid009,
"Meldung über nicht abschließenden Abgabenbescheid bei der Bezugsnummer: " & readEZA_Abgabenbescheid009 & "
Firma: " & EZA_TMP.eza_firma & "Niederlassung: " & EZA_TMP.eza_niederlassung & "
Automatisch generiertes E-Mail.",
, True, True)
+
+
+
+ 'Anmlededatum setzen
+ EZA_TMP.eza_Anmeldedatum = zp
+ EZA_TMP.SAVE()
+
+
'Case "5"
' STATUS.dySt_status = DAKOSY_Worker.cDY_Statusliste.S_55 'nicht abschleißender Bescheid
' Dim MailTo = "al@verag.ag"
@@ -8582,6 +8626,13 @@ Public Class frmDYNachrichtenVerarbeitung
' VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(MailTo, "MITTEILUNG ZOLL: Nicht abschließender Abgebenbescheid - " & readEZA_Abgabenbescheid,
' "Meldung über abschließenden Abgabenbescheid bei der Bezugsnummer: " & readEZA_Abgabenbescheid & "
Firma: " & EZA_TMP.eza_firma & "Niederlassung: " & EZA_TMP.eza_niederlassung & "
Automatisch generiertes E-Mail.",
' , True, True)
+ Case "5", "6"
+
+
+ 'Anmlededatum setzen
+ EZA_TMP.eza_Anmeldedatum = zp
+ EZA_TMP.SAVE()
+
End Select
' ------------------------------------------------------------------------------
@@ -8769,6 +8820,13 @@ Public Class frmDYNachrichtenVerarbeitung
VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(MailTo, "MITTEILUNG ZOLL: Nicht abschließender Abgebenbescheid - " & readEZA_Abgabenbescheid010,
"Meldung über nicht abschließenden Abgabenbescheid bei der Bezugsnummer: " & readEZA_Abgabenbescheid010 & "
Firma: " & EZA_TMP.eza_firma & "Niederlassung: " & EZA_TMP.eza_niederlassung & "
Automatisch generiertes E-Mail.",
, True, True)
+
+
+ 'Anmlededatum setzen
+ EZA_TMP.eza_Anmeldedatum = zp
+ EZA_TMP.SAVE()
+
+
'Case "5"
' STATUS.dySt_status = DAKOSY_Worker.cDY_Statusliste.S_55 'nicht abschleißender Bescheid
' Dim MailTo = "al@verag.ag"
@@ -8776,6 +8834,13 @@ Public Class frmDYNachrichtenVerarbeitung
' VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(MailTo, "MITTEILUNG ZOLL: Nicht abschließender Abgebenbescheid - " & readEZA_Abgabenbescheid,
' "Meldung über abschließenden Abgabenbescheid bei der Bezugsnummer: " & readEZA_Abgabenbescheid & "
Firma: " & EZA_TMP.eza_firma & "Niederlassung: " & EZA_TMP.eza_niederlassung & "
Automatisch generiertes E-Mail.",
' , True, True)
+ Case "5", "6"
+
+
+ 'Anmlededatum setzen
+ EZA_TMP.eza_Anmeldedatum = zp
+ EZA_TMP.SAVE()
+
End Select
' ------------------------------------------------------------------------------
@@ -8962,6 +9027,10 @@ Public Class frmDYNachrichtenVerarbeitung
VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(MailTo, "MITTEILUNG ZOLL: Nicht abschließender Abgebenbescheid - " & readEZA_Abgabenbescheid011,
"Meldung über nicht abschließenden Abgabenbescheid bei der Bezugsnummer: " & readEZA_Abgabenbescheid011 & "
Firma: " & EZA_TMP.eza_firma & "Niederlassung: " & EZA_TMP.eza_niederlassung & "
Automatisch generiertes E-Mail.",
, True, True)
+
+ 'Anmlededatum setzen
+ EZA_TMP.eza_Anmeldedatum = zp
+ EZA_TMP.SAVE()
'Case "5"
' STATUS.dySt_status = DAKOSY_Worker.cDY_Statusliste.S_55 'nicht abschleißender Bescheid
' Dim MailTo = "al@verag.ag"
@@ -8969,6 +9038,12 @@ Public Class frmDYNachrichtenVerarbeitung
' VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(MailTo, "MITTEILUNG ZOLL: Nicht abschließender Abgebenbescheid - " & readEZA_Abgabenbescheid,
' "Meldung über abschließenden Abgabenbescheid bei der Bezugsnummer: " & readEZA_Abgabenbescheid & "
Firma: " & EZA_TMP.eza_firma & "Niederlassung: " & EZA_TMP.eza_niederlassung & "
Automatisch generiertes E-Mail.",
' , True, True)
+ Case "5", "6"
+
+
+ 'Anmlededatum setzen
+ EZA_TMP.eza_Anmeldedatum = zp
+ EZA_TMP.SAVE()
End Select
' ------------------------------------------------------------------------------
diff --git a/initATLASAufschubkonten/frmStartOptions.vb b/initATLASAufschubkonten/frmStartOptions.vb
index f3efb38..47c0485 100644
--- a/initATLASAufschubkonten/frmStartOptions.vb
+++ b/initATLASAufschubkonten/frmStartOptions.vb
@@ -1349,6 +1349,16 @@ Public Class frmStartOptions
If outletGroug.Contains("4486") Then Return 0.042
Return 0.048
End Function
+
+ Function getPlattsAufschlag_SONDER_Lukenda(outletGroug As String) As Double
+ If outletGroug.Contains("4473") Then Return 0.032 - 0.015
+ If outletGroug.Contains("4474") Then Return 0.032 - 0.015
+ If outletGroug.Contains("4493") Then Return 0.032 - 0.015
+ If outletGroug.Contains("4485") Then Return 0.032 - 0.015
+ If outletGroug.Contains("4486") Then Return 0.032 - 0.015
+ Return 0.048 '-0.015
+
+ End Function
Sub doIDSPlatts()
Try
@@ -1375,6 +1385,7 @@ Public Class frmStartOptions
DT_PLATTS.Columns.Add("NetpriceNEW")
Dim DT_PLATTS_SONDER = DT_PLATTS.Clone
+ Dim DT_PLATTS_SONDER_Lukenda = DT_PLATTS.Clone
':::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
' EXCEL AUSLESEN:::::::
@@ -1386,11 +1397,19 @@ Public Class frmStartOptions
Dim FILE_NEW = IDS_FILE.Replace("\NEW\", "\" & Now.Year & "\").Replace(".xls", "_ORIG.xls")
+
While IO.File.Exists(FILE_NEW)
FILE_NEW = IDS_FILE.Replace("\NEW\", "\" & Now.Year & "\").Replace(".xls", Now.ToString("_ddMMyy.HHmmss") & "_ORIG.xls")
End While
+
+
IO.File.Move(IDS_FILE, FILE_NEW)
+
+
+ Dim FILE_NEW_Lukenda = FILE_NEW.Replace("_ORIG.xls", "_special_Lukenda_ORIG.xls")
+ IO.File.Copy(FILE_NEW, FILE_NEW_Lukenda)
+
'IDS_FILE = ZIEL_PFAD.Replace("\NEW\", "\" & Now.Year & "\").Replace(".xls", "_ORIG.xls")
Dim Excel1 As Object 'New Microsoft.Office.Interop.Excel.Application
@@ -1436,6 +1455,12 @@ Public Class frmStartOptions
NetpriceNEW_SOND += CDbl(Blatt.Range("I" & zeile).Value) ' Aufschalg + NETTO
DT_PLATTS_SONDER.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, NetpriceNEW_SOND})
End If
+ 'SONDERKONDITION Lukenda
+ NetpriceNEW_SOND = getPlattsAufschlag_SONDER_Lukenda(Blatt.Range("B" & zeile).Value)
+ If NetpriceNEW_SOND > 0 Then
+ NetpriceNEW_SOND += CDbl(Blatt.Range("I" & zeile).Value) ' Aufschalg + NETTO
+ DT_PLATTS_SONDER_Lukenda.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, NetpriceNEW_SOND})
+ End If
End If
zeile += 1
@@ -1489,11 +1514,11 @@ Public Class frmStartOptions
End Try
'ALLGEMEIN
- genXLS_NewPrice(DT_PLATTS, FILE_NEW) '--> Send XLS Mail
+ genXLS_NewPrice(DT_PLATTS, FILE_NEW, "IDSPRD: Platts Price Report", "z.batinic@verag.ag;n.ljubas@verag.ag;s.vidovic@verag.ag;ma@verag.ag;alex@verag.ag;ft@verag.ag", "sales@verag.ag;al@verag.ag;sb@verag.ag", "") '--> Send XLS Mail
'SONDERKONDITION
' genXLS_NewPrice(DT_PLATTS_SONDER, FILE_NEW.Replace("_ORIG.xls", "_special_ORIG.xls")) '--> Send XLS Mail
-
+ genXLS_NewPrice(DT_PLATTS_SONDER_Lukenda, FILE_NEW_Lukenda, "IDSPRD: Platts Price Report - Lukenda", "sales@verag.ag", "al@verag.ag", "") '--> Send XLS Mail
Next
End If
@@ -1503,7 +1528,7 @@ Public Class frmStartOptions
End Sub
- Sub genXLS_NewPrice(DT_PLATTS As DataTable, FILE_NEW As String)
+ Sub genXLS_NewPrice(DT_PLATTS As DataTable, FILE_NEW As String, MAIL_SUBJ As String, MAIL_TO As String, MAIL_CC As String, MAIL_BCC As String)
':::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
'NEUES EXCEL ERSTELLEN:::::::
':::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
@@ -1571,7 +1596,7 @@ Public Class frmStartOptions
Dim MAIL_attach As New List(Of String)
MAIL_attach.Add(FIN_FILE)
- VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("z.batinic@verag.ag;n.ljubas@verag.ag;s.vidovic@verag.ag;ma@verag.ag;alex@verag.ag;ft@verag.ag", "IDSPRD: Platts Price Report", "*AUTO*",,,, "sales@verag.ag;al@verag.ag;sb@verag.ag",, MAIL_attach)
+ VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(MAIL_TO, MAIL_SUBJ, "*AUTO*",,,, MAIL_CC, MAIL_BCC, MAIL_attach)
':::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
@@ -3467,7 +3492,7 @@ Public Class frmStartOptions
End Sub
Private Sub LinkLabel33_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel33.LinkClicked
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
- Dim bool = getUID_Pruefung(MyTextBox1.Text, "AMBAR", "UID Prüfung AMBAR", "as@verag.ag", "al@verag.ag",, MyTextBox2._value, cbxVermerk.Checked)
+ Dim bool = getUID_Pruefung(MyTextBox1.Text, "AMBAR", "UID Prüfung AMBAR", "io@ambarlog.de", , "al@verag.ag;as@verag.ag", MyTextBox2._value, cbxVermerk.Checked)
showPic(bool, PictureBox12)
End Sub