DY

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
 

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 <b>nicht abschließenden Abgabenbescheid</b> bei der Bezugsnummer: <b>" & readEZA_Abgabenbescheid & "</b><br><br>Firma: " & EZA_TMP.eza_firma & "Niederlassung: " & EZA_TMP.eza_niederlassung & "<br><br>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 <b>abschließenden Abgabenbescheid</b> bei der Bezugsnummer: <b>" & readEZA_Abgabenbescheid & "</b><br><br>Firma: " & EZA_TMP.eza_firma & "Niederlassung: " & EZA_TMP.eza_niederlassung & "<br><br>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 <b>nicht abschließenden Abgabenbescheid</b> bei der Bezugsnummer: <b>" & readEZA_Abgabenbescheid008 & "</b><br><br>Firma: " & EZA_TMP.eza_firma & "Niederlassung: " & EZA_TMP.eza_niederlassung & "<br><br>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 <b>abschließenden Abgabenbescheid</b> bei der Bezugsnummer: <b>" & readEZA_Abgabenbescheid & "</b><br><br>Firma: " & EZA_TMP.eza_firma & "Niederlassung: " & EZA_TMP.eza_niederlassung & "<br><br>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 <b>nicht abschließenden Abgabenbescheid</b> bei der Bezugsnummer: <b>" & readEZA_Abgabenbescheid009 & "</b><br><br>Firma: " & EZA_TMP.eza_firma & "Niederlassung: " & EZA_TMP.eza_niederlassung & "<br><br>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 <b>abschließenden Abgabenbescheid</b> bei der Bezugsnummer: <b>" & readEZA_Abgabenbescheid & "</b><br><br>Firma: " & EZA_TMP.eza_firma & "Niederlassung: " & EZA_TMP.eza_niederlassung & "<br><br>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 <b>nicht abschließenden Abgabenbescheid</b> bei der Bezugsnummer: <b>" & readEZA_Abgabenbescheid010 & "</b><br><br>Firma: " & EZA_TMP.eza_firma & "Niederlassung: " & EZA_TMP.eza_niederlassung & "<br><br>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 <b>abschließenden Abgabenbescheid</b> bei der Bezugsnummer: <b>" & readEZA_Abgabenbescheid & "</b><br><br>Firma: " & EZA_TMP.eza_firma & "Niederlassung: " & EZA_TMP.eza_niederlassung & "<br><br>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 <b>nicht abschließenden Abgabenbescheid</b> bei der Bezugsnummer: <b>" & readEZA_Abgabenbescheid011 & "</b><br><br>Firma: " & EZA_TMP.eza_firma & "Niederlassung: " & EZA_TMP.eza_niederlassung & "<br><br>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 <b>abschließenden Abgabenbescheid</b> bei der Bezugsnummer: <b>" & readEZA_Abgabenbescheid & "</b><br><br>Firma: " & EZA_TMP.eza_firma & "Niederlassung: " & EZA_TMP.eza_niederlassung & "<br><br>Automatisch generiertes E-Mail.",
                                 '                                                     , True, True)
+                            Case "5", "6"
+
+
+                                'Anmlededatum setzen
+                                EZA_TMP.eza_Anmeldedatum = zp
+                                EZA_TMP.SAVE()
 
                         End Select
                         ' ------------------------------------------------------------------------------

initATLASAufschubkonten/frmStartOptions.vb

@@ -1342,6 +1342,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
@@ -1368,6 +1378,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:::::::
@@ -1379,11 +1390,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
@@ -1429,6 +1448,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
@@ -1482,11 +1507,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
 
@@ -1496,7 +1521,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:::::::
         ':::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
@@ -1564,7 +1589,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)
 
                 ':::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
 
@@ -3460,7 +3485,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