new
This commit is contained in:
@@ -1353,10 +1353,12 @@ Public Class frmDYNachrichtenVerarbeitung
|
||||
End If
|
||||
|
||||
End If
|
||||
AES.aes_Status = DAKOSY_Worker.cDY_Statusliste.S_05
|
||||
AES.aes_Status_KEWILL_Equivalent = DAKOSY_Worker.cDY_Statusliste.S_05
|
||||
|
||||
|
||||
If If(AES.aes_Status, 0) <= 5 Then AES.aes_Status = DAKOSY_Worker.cDY_Statusliste.S_05
|
||||
If If(AES.aes_Status_KEWILL_Equivalent, 0) <= 5 Then AES.aes_Status_KEWILL_Equivalent = DAKOSY_Worker.cDY_Statusliste.S_05
|
||||
If AES.SAVE_ALL() Then
|
||||
DAKOSY_Worker.cDakosy_Statusmeldungen.InsertStatusMeldung(DY_TMP, DAKOSY_Worker.cDY_Statusliste.S_05)
|
||||
If If(AES.aes_Status, 0) <= 5 Then DAKOSY_Worker.cDakosy_Statusmeldungen.InsertStatusMeldung(DY_TMP, DAKOSY_Worker.cDY_Statusliste.S_05)
|
||||
End If
|
||||
|
||||
End If
|
||||
@@ -5465,7 +5467,6 @@ Public Class frmDYNachrichtenVerarbeitung
|
||||
|
||||
|
||||
|
||||
|
||||
Dim DY_TMP As DAKOSY_Worker.cDakosy_Zollanmeldungen = saveDY_ZA(STATUS, EZA.Transaktion.IOReferenz, If(zp, EZA.Transaktion.IODatumZeit), "EZA")
|
||||
|
||||
If regNr <> "" Then
|
||||
@@ -5553,14 +5554,22 @@ Public Class frmDYNachrichtenVerarbeitung
|
||||
|
||||
Function InsertAbgaben(EZA, division, STATUS, DY_TMP, regNr, Bezugsnummer, regDat, firma, nl, EDIFACTNachrichtenNr)
|
||||
Dim EZA_TMP As DAKOSY_Worker.cDakosyEZA = saveDY_EZA(STATUS, DY_TMP, EZA.Transaktion.IOReferenz, EZA.Transaktion.IODatumZeit, regNr)
|
||||
|
||||
If EZA.EinzelAbgabenbescheid.KopfDaten.AbgabenNachArt IsNot Nothing Then
|
||||
For Each A In EZA.EinzelAbgabenbescheid.KopfDaten.AbgabenNachArt
|
||||
Dim LeistungsNr = 0
|
||||
|
||||
If A.AbgabeArt IsNot Nothing Then
|
||||
' If A.Zahlungsart = "A" Then 'Nur wenn Zahlungsart=...?
|
||||
If If(A.KennBuchstabenAufschub, "").Trim = "M" And (CInt(A.AufschubkontoNr) = 6128 Or CInt(A.AufschubkontoNr) = 6136 Or CInt(A.AufschubkontoNr) = 2718 Or CInt(A.AufschubkontoNr) = 2719 Or
|
||||
CInt(A.AufschubkontoNr) = 6145 Or CInt(A.AufschubkontoNr) = 6146 Or CInt(A.AufschubkontoNr) = 6077) Then '_>TEST Or CInt(A.AufschubkontoNr) = 678010
|
||||
If If(A.KennBuchstabenAufschub, "").Trim = "M" And
|
||||
(CInt(A.AufschubkontoNr) = 6128 Or
|
||||
CInt(A.AufschubkontoNr) = 6136 Or
|
||||
CInt(A.AufschubkontoNr) = 2718 Or
|
||||
CInt(A.AufschubkontoNr) = 2719 Or
|
||||
CInt(A.AufschubkontoNr) = 6145 Or
|
||||
CInt(A.AufschubkontoNr) = 6146 Or
|
||||
CInt(A.AufschubkontoNr) = 6077 Or
|
||||
CInt(A.AufschubkontoNr) = 6078 Or
|
||||
CInt(A.AufschubkontoNr) = 1994) Then '_>TEST Or CInt(A.AufschubkontoNr) = 678010
|
||||
|
||||
Select Case A.AbgabeArt.ToString
|
||||
Case "A0000", "10100" : LeistungsNr = 60 ' ZOLL
|
||||
@@ -5595,21 +5604,29 @@ Public Class frmDYNachrichtenVerarbeitung
|
||||
|
||||
Dim errHInweis = "ATC: " & ABGABEN.Registriernummer & " - BezugsNr: " & ABGABEN.Bezugsnummer
|
||||
ABGABEN.SAVE(errHInweis)
|
||||
|
||||
'Aufschub - Überwachung:
|
||||
Select Case CInt(A.AufschubkontoNr)
|
||||
Case 6128 : tryToInsertProgramm(ABGABEN.Eingabedatum, ABGABEN.Betrag, 1, EDIFACTNachrichtenNr, ABGABEN.Registriernummer, 0)
|
||||
Case 2718 : tryToInsertProgramm(ABGABEN.Eingabedatum, ABGABEN.Betrag, 8, EDIFACTNachrichtenNr, ABGABEN.Registriernummer, 0)
|
||||
|
||||
'Case 2718 : VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMailTEST("al@verag.ag", "AUFSCHUB IMEX: " & ABGABEN.Betrag, "AUFSCHUB IMEX: " & ABGABEN.Betrag & vbNewLine & ABGABEN.Bezugsnummer)
|
||||
End Select
|
||||
|
||||
|
||||
If CInt(A.AufschubkontoNr) = 6128 Then 'Nur bei ZOLL ' --> TEST: Or CInt(A.AufschubkontoNr) = 678010
|
||||
AtlasAufschubDatenEinlesen.tryToInsertProgramm(regDat, A.Abgabenbetrag, "1", "DY", regNr, "")
|
||||
End If
|
||||
|
||||
End If
|
||||
'Aufschub - Überwachung:
|
||||
Select Case CInt(A.AufschubkontoNr)
|
||||
Case 6128 : tryToInsertProgramm(ABGABEN.Eingabedatum, ABGABEN.Betrag, 1, EDIFACTNachrichtenNr, ABGABEN.Registriernummer, 0, ABGABEN.Fälligkeitsdatum)
|
||||
Case 2718 : tryToInsertProgramm(ABGABEN.Eingabedatum, ABGABEN.Betrag, 8, EDIFACTNachrichtenNr, ABGABEN.Registriernummer, 0, ABGABEN.Fälligkeitsdatum)
|
||||
Case 1994 : tryToInsertProgramm(ABGABEN.Eingabedatum, ABGABEN.Betrag, 10, EDIFACTNachrichtenNr, ABGABEN.Registriernummer, 0, ABGABEN.Fälligkeitsdatum) 'Global
|
||||
Case 6136 : tryToInsertProgramm(ABGABEN.Eingabedatum, ABGABEN.Betrag, 11, EDIFACTNachrichtenNr, ABGABEN.Registriernummer, 0, ABGABEN.Fälligkeitsdatum) 'VERAG EUST
|
||||
Case 2719 : tryToInsertProgramm(ABGABEN.Eingabedatum, ABGABEN.Betrag, 12, EDIFACTNachrichtenNr, ABGABEN.Registriernummer, 0, ABGABEN.Fälligkeitsdatum) 'IMEX EUST
|
||||
Case 6145 : tryToInsertProgramm(ABGABEN.Eingabedatum, ABGABEN.Betrag, 14, EDIFACTNachrichtenNr, ABGABEN.Registriernummer, 0, ABGABEN.Fälligkeitsdatum) 'UNISPED ZOLL
|
||||
Case 6146 : tryToInsertProgramm(ABGABEN.Eingabedatum, ABGABEN.Betrag, 15, EDIFACTNachrichtenNr, ABGABEN.Registriernummer, 0, ABGABEN.Fälligkeitsdatum) 'UNISPED EUST
|
||||
Case 6078 : tryToInsertProgramm(ABGABEN.Eingabedatum, ABGABEN.Betrag, 16, EDIFACTNachrichtenNr, ABGABEN.Registriernummer, 0, ABGABEN.Fälligkeitsdatum) 'UNISPED(DE) ZOLL
|
||||
Case 6077 : tryToInsertProgramm(ABGABEN.Eingabedatum, ABGABEN.Betrag, 17, EDIFACTNachrichtenNr, ABGABEN.Registriernummer, 0, ABGABEN.Fälligkeitsdatum) 'UNISPED(DE) EUST
|
||||
'UNISPED Case XXX: tryToInsertProgramm(ABGABEN.Eingabedatum, ABGABEN.Betrag,XXX, EDIFACTNachrichtenNr, ABGABEN.Registriernummer, 0, ABGABEN.Fälligkeitsdatum)
|
||||
|
||||
'Case 2718 : VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMailTEST("al@verag.ag", "AUFSCHUB IMEX: " & ABGABEN.Betrag, "AUFSCHUB IMEX: " & ABGABEN.Betrag & vbNewLine & ABGABEN.Bezugsnummer)
|
||||
End Select
|
||||
|
||||
|
||||
'If CInt(A.AufschubkontoNr) = 6128 Then 'Nur bei ZOLL ' --> TEST: Or CInt(A.AufschubkontoNr) = 678010
|
||||
' AtlasAufschubDatenEinlesen.tryToInsertProgramm(regDat, A.Abgabenbetrag, "1", "DY", regNr, "")
|
||||
'End If
|
||||
|
||||
|
||||
|
||||
End If
|
||||
' End If
|
||||
@@ -5619,14 +5636,14 @@ Public Class frmDYNachrichtenVerarbeitung
|
||||
End Function
|
||||
|
||||
|
||||
Public Function tryToInsertProgramm(brgak_datum, brgak_betrag, brgak_brgaktoId, brgak_filename, brgak_atc, brgak_fileline) As Boolean
|
||||
Shared Function tryToInsertProgramm(brgak_datum, brgak_betrag, brgak_brgaktoId, brgak_filename, brgak_atc, brgak_fileline, brgak_faelligkeitsdatum) As Boolean
|
||||
|
||||
Dim sql As String = " begin tran" &
|
||||
" if Not exists (select * from tblBrgAufschub with (updlock,serializable) where brgak_filename = @brgak_filename AND brgak_fileline=@brgak_fileline) " &
|
||||
" if Not exists (select * from tblBrgAufschub with (updlock,serializable) where brgak_filename = @brgak_filename AND brgak_fileline=@brgak_fileline ) " &
|
||||
" begin " &
|
||||
" INSERT INTO tblBrgAufschub " &
|
||||
" (brgak_datum, brgak_betrag, brgak_brgaktoId, brgak_filename, brgak_atc,brgak_fileline) VALUES " &
|
||||
" (@brgak_datum, @brgak_betrag, @brgak_brgaktoId, @brgak_filename, @brgak_atc,@brgak_fileline) " &
|
||||
" (brgak_datum, brgak_betrag, brgak_brgaktoId, brgak_filename, brgak_atc,brgak_fileline,brgak_faelligkeitsdatum) VALUES " &
|
||||
" (@brgak_datum, @brgak_betrag, @brgak_brgaktoId, @brgak_filename, @brgak_atc,@brgak_fileline,@brgak_faelligkeitsdatum) " &
|
||||
" End " &
|
||||
" commit tran "
|
||||
'(brgak_fileline='' OR ... )
|
||||
@@ -5643,7 +5660,7 @@ Public Class frmDYNachrichtenVerarbeitung
|
||||
Dim cn As System.Data.SqlClient.SqlConnection = VERAG_PROG_ALLGEMEIN.SQL.GetNewOpenConnectionADMIN
|
||||
|
||||
'Dim cn As New System.Data.SqlClient.SqlConnection()
|
||||
'cn.ConnectionString = "Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=ADMIN;Integrated Security=false;User ID=sa;Password=BmWr501956;"
|
||||
'cn.ConnectionString = "Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=ADMIN;Integrated Security=false;User ID=AppUser;Password=yp/THDd?xM+pZ$;"
|
||||
'cn.Open()
|
||||
Using cn
|
||||
Using cmd As New System.Data.SqlClient.SqlCommand(sql, cn)
|
||||
@@ -5653,6 +5670,7 @@ Public Class frmDYNachrichtenVerarbeitung
|
||||
cmd.Parameters.AddWithValue("@brgak_filename", brgak_filename)
|
||||
cmd.Parameters.AddWithValue("@brgak_atc", brgak_atc)
|
||||
cmd.Parameters.AddWithValue("@brgak_fileline", brgak_fileline)
|
||||
cmd.Parameters.AddWithValue("@brgak_faelligkeitsdatum", brgak_faelligkeitsdatum)
|
||||
Try
|
||||
cmd.ExecuteNonQuery()
|
||||
|
||||
@@ -6143,10 +6161,10 @@ Public Class frmDYNachrichtenVerarbeitung
|
||||
|
||||
|
||||
|
||||
NCTS.nctsAt_Status = DAKOSY_Worker.cDY_Statusliste.S_05
|
||||
NCTS.nctsAt_Status_KEWILL_Equivalent = DAKOSY_Worker.cDY_Statusliste.S_05
|
||||
If If(NCTS.nctsAt_Status, 0) <= 5 Then NCTS.nctsAt_Status = DAKOSY_Worker.cDY_Statusliste.S_05
|
||||
If If(NCTS.nctsAt_Status_KEWILL_Equivalent, 0) <= 5 Then NCTS.nctsAt_Status_KEWILL_Equivalent = DAKOSY_Worker.cDY_Statusliste.S_05
|
||||
If NCTS.SAVE_ALL() Then
|
||||
DAKOSY_Worker.cDakosy_Statusmeldungen.InsertStatusMeldung(DY_TMP, DAKOSY_Worker.cDY_Statusliste.S_05)
|
||||
If If(NCTS.nctsAt_Status, 0) <= 5 Then DAKOSY_Worker.cDakosy_Statusmeldungen.InsertStatusMeldung(DY_TMP, DAKOSY_Worker.cDY_Statusliste.S_05)
|
||||
End If
|
||||
|
||||
|
||||
|
||||
Reference in New Issue
Block a user