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

Auswertung Zoll Trier fix, etc.

Browse Source
This commit is contained in:
d.breimaier
2026-06-16 14:04:48 +02:00
parent d268dd0492
commit cf9bbdc308
2 changed files with 18 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
SDL/zoll/usrCntlAuswertungenAufschub_AbgabenKontrolleTRIER.vb
View File

@@ -71,20 +71,32 @@ Public Class usrCntlAuswertungenAufschub_AbgabenKontrolleTRIER
End If End If
If line.Length = "79" And line.Contains("ATC") Then If line.Length = "79" AndAlso (line.Contains("ATC") Or line.Substring(30, 2).Trim.Contains("DE")) Then
Dim zollamt As String = line.Substring(0, 28).Trim Dim zollamt As String = line.Substring(0, 28).Trim
Dim atc As String = line.Substring(28, 25).Trim Dim atc As String = ""
Dim mrn As String = ""
Dim sqlStringWhere = ""
If line.Contains("ATC") Then
atc = line.Substring(28, 25).Trim
sqlStringWhere = "[Status]<>0 and DruckDatumZeit is not null and (left([RechnungsausgangPositionen].Belegdaten,21)='" & atc & "' or [RechnungsausgangPositionen].[Weitere_Reg_Nr] ='" & atc & "' ) AND [AufschubkontoNr]='" & AKTO & "'"
ElseIf line.Substring(30, 2).Trim.Contains("DE") Then
mrn = line.Substring(28, 25).Trim
sqlStringWhere = "[Status]<>0 and DruckDatumZeit is not null and left([RechnungsausgangPositionen].Belegdaten,21)='" & mrn & "' AND [AufschubkontoNr]='" & AKTO & "'"
End If
Dim datum As Date = CDate(line.Substring(53, 10).Trim) Dim datum As Date = CDate(line.Substring(53, 10).Trim)
Dim betrag As Double = CDbl(line.Substring(63, 16).Trim) Dim betrag As Double = CDbl(line.Substring(63, 16).Trim)
' Dim fakturiert = CDbl(SQL.DLookup("Betrag", "Zkteing", "[Status]='F' AND [Registriernummer]='" & atc & "' AND [AKTO]=" & AKTONr & "", "FMZOLL", "0"))
Dim fakturiert = CDbl(SQL.DLookup("sum(Preis)", "Rechnungsausgang inner join [RechnungsausgangPositionen] On Rechnungsausgang.RK_ID=[RechnungsausgangPositionen].RK_ID", " [Status]<>0 and DruckDatumZeit is not null and (left([RechnungsausgangPositionen].Belegdaten,21)='" & atc & "' or [RechnungsausgangPositionen].[Weitere_Reg_Nr] ='" & atc & "' )AND [AufschubkontoNr]='" & AKTO & "'", "FMZOLL", "0"))
Dim fakturiert = CDbl(SQL.DLookup("sum(Preis)", "Rechnungsausgang inner join [RechnungsausgangPositionen] On Rechnungsausgang.RK_ID=[RechnungsausgangPositionen].RK_ID", sqlStringWhere, "FMZOLL", "0"))
Dim differenz = fakturiert - betrag Dim differenz = fakturiert - betrag
If Not cbx.Checked OrElse differenz <> 0 Then If Not cbx.Checked OrElse differenz <> 0 Then
erg &= zollamt & " - " & atc & ": " & betrag & " | " & differenz & vbNewLine
dt.Rows.Add({AKTO, Faelligkeit, atc, datum, zollamt, betrag, fakturiert, differenz}) erg &= zollamt & " - " & IIf(atc <> "", atc, mrn) & ": " & betrag & " | " & differenz & vbNewLine
dt.Rows.Add({AKTO, Faelligkeit, IIf(atc <> "", atc, mrn), datum, zollamt, betrag, fakturiert, differenz})
End If End If
End If End If

7
SDL/zoll/usrCntlZOLLAuswertungen.vb
View File

@@ -1032,13 +1032,6 @@ Public Class usrCntlZOLLAuswertungen
End Select End Select
End Sub End Sub
Private Sub UsrCntlAuswertungenAufschub_AbgabenKontrolleTRIER1_Load(sender As Object, e As EventArgs) Handles UsrCntlAuswertungenAufschub_AbgabenKontrolleTRIER1.Load
End Sub
Private Sub UsrCntlAuswertungenEV_Veranlagungen1_Load(sender As Object, e As EventArgs) Handles UsrCntlAuswertungenEV_Veranlagungen1.Load
End Sub
Private Sub Button2_Click_1(sender As Object, e As EventArgs) Handles excelCbam.Click Private Sub Button2_Click_1(sender As Object, e As EventArgs) Handles excelCbam.Click