edv/ADMIN
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

neu

Browse Source
This commit is contained in:
Andreas Luxbauer
2019-09-10 13:46:18 +02:00
parent ea594e66e5
commit e2c05a5ea3
10 changed files with 169 additions and 162 deletions
Download Patch File Download Diff File Expand all files Collapse all files

59
initATLASAufschubkonten/frmTCNachrichtenVerarbeitung.vb
View File

@@ -810,65 +810,6 @@ Public Class frmTCNachrichtenVerarbeitung
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) Then '_>TEST Or CInt(A.AufschubkontoNr) = 678010
Select Case A.AbgabeArt.ToString
Case "A0000", "10100" : LeistungsNr = 60 ' ZOLL
Case "B0000", "20000" : LeistungsNr = 20 ' EUST
Case Else : LeistungsNr = 10 'Diverse Zollvorschreibungen
End Select
' MsgBox("- " & A.Abgabenbetrag)
Dim ABGABEN As New VERAG_PROG_ALLGEMEIN.cAbgaben
ABGABEN.Belegart = A.AbgabeArt
ABGABEN.Betrag = A.Abgabenbetrag
ABGABEN.Status = Nothing
ABGABEN.LeistungsNr = LeistungsNr
ABGABEN.Bezugsnummer = Bezugsnummer
ABGABEN.Registriernummer = regNr
ABGABEN.AOFD = A.KennBuchstabenAufschub
ABGABEN.AKTO = A.AufschubkontoNr
ABGABEN.Fälligkeitsdatum = A.Faelligkeit
ABGABEN.Mandant = If(firma.ToString.Length > 4, firma.ToString.Substring(0, 4), firma)
ABGABEN.Niederlassung = If(nl.ToString.Length > 3, nl.ToString.Substring(0, 3), nl)
ABGABEN.Abfertigungsdatum = regDat
ABGABEN.Übernahmedatum = Now
ABGABEN.Eingabedatum = regDat
If If(ABGABEN.Bezugsnummer, "").ToString.Length > 35 Then ABGABEN.Bezugsnummer = ABGABEN.Bezugsnummer.ToString.Substring(0, 35)
If If(ABGABEN.Registriernummer, "").ToString.Length > 21 Then ABGABEN.Registriernummer = ABGABEN.Registriernummer.ToString.Substring(0, 21)
Dim errHInweis = "ATC: " & ABGABEN.Registriernummer & " - BezugsNr: " & ABGABEN.Bezugsnummer
ABGABEN.SAVE(errHInweis)
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
' End If
End If
Next
End If
End Function
Public Function tryToInsertProgramm(brgak_datum, brgak_betrag, brgak_brgaktoId, brgak_filename, brgak_atc, brgak_fileline) As Boolean