DY
This commit is contained in:
@@ -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
|
||||
' ------------------------------------------------------------------------------
|
||||
|
||||
Reference in New Issue
Block a user