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

Zollamneldungen, etc.

Browse Source
This commit is contained in:
d.breimaier
2026-03-30 14:28:06 +02:00
parent d3e19b34ef
commit e76c3f01a5
3 changed files with 13 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
SDL/Fakturierung/usrCntlFaktAbrechnung.vb
View File

@@ -5425,7 +5425,7 @@ mwst:
Case 1, 3, 5, 7, 26, 28, 38, 39, 29, 66
Dim docID As Integer = IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, 13567402, 13638537)
Dim exists = dgv.Rows.Cast(Of DataGridViewRow)().Any(Function(r) Not r.IsNewRow AndAlso CInt(r.Cells("anh_docId").Value) = docID)
Dim exists = dgv.Rows.Cast(Of DataGridViewRow)().Any(Function(r) Not r.IsNewRow AndAlso CInt(r.Cells("clmnDsId").Value) = docID)
If Not exists Then
dgv.Rows.Add(1, "INFO", "CBAM-FLYER", docID, 0)

16
SDL/ZOLLSYSTEM/DAKOSY/ATLAS/Verwahrung/usrCntlATLAS_AnkunftsAnzeige.vb
View File

@@ -11,12 +11,13 @@ Public Class usrCntlATLAS_AnkunftsAnzeige
Dim GesamtsicherheitREF As cGesamtsicherheitsReferenz
Dim Standort As String = ""
Dim gsnr As Integer = -1
Dim WarenwertEUR As Double = 0
Property FIRMA_DY = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Sub New(AVISO As VERAG_PROG_ALLGEMEIN.cAviso, SENDUNG As VERAG_PROG_ALLGEMEIN.cSendungen, FIRMA_DY As String, GesamtsicherheitREF As cGesamtsicherheitsReferenz, Standort As String, gsnr As Integer)
Sub New(AVISO As VERAG_PROG_ALLGEMEIN.cAviso, SENDUNG As VERAG_PROG_ALLGEMEIN.cSendungen, FIRMA_DY As String, GesamtsicherheitREF As cGesamtsicherheitsReferenz, Standort As String, gsnr As Integer, WarenwertEUR As Double)
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
@@ -27,6 +28,7 @@ Public Class usrCntlATLAS_AnkunftsAnzeige
Me.GesamtsicherheitREF = GesamtsicherheitREF
Me.Standort = Standort
Me.gsnr = gsnr
Me.WarenwertEUR = WarenwertEUR
@@ -76,8 +78,6 @@ Public Class usrCntlATLAS_AnkunftsAnzeige
If cboStammreferenz.Items.Count = 2 Then
cboStammreferenz.SelectedIndex = 1
End If
@@ -135,7 +135,7 @@ Public Class usrCntlATLAS_AnkunftsAnzeige
If cDakosyFunftions.send_Data_To_Dakosy_FTP(saveFile, BezugsNrBez, dy_Id, FIRMA_DY) Then
If SENDUNG IsNot Nothing Then SENDUNG.SET_VGMA() ' MA Vorgeschrieben in Sendung setzen.
MsgBox("Gesendet!")
createGesamtsicherheitDummy(GesamtsicherheitREF, Standort, txtWarenort.Text, gsnr)
createGesamtsicherheitDummy(GesamtsicherheitREF, Standort, txtWarenort.Text, gsnr, WarenwertEUR)
Else
'DAKOSY_Worker.cDakosy_Statusmeldungen.InsertStatusMeldung(DY_ANM, DAKOSY_Worker.cDY_Statusliste.S_09)
MsgBox("Sendefehler!")
@@ -211,7 +211,7 @@ Public Class usrCntlATLAS_AnkunftsAnzeige
Return True
End Function
Private Function createGesamtsicherheitDummy(GesSichRef, Standort, Warenort, gsnr)
Private Function createGesamtsicherheitDummy(GesSichRef As cGesamtsicherheitsReferenz, Standort As String, Warenort As String, gsnr As Integer, WarenwertEUR As Double)
Try
@@ -244,8 +244,8 @@ Public Class usrCntlATLAS_AnkunftsAnzeige
.gs_MRNNr = ""
.gs_posSubNr = Nothing
.gs_datum = Today()
.gs_warenwert = SENDUNG.tblSnd_Warenwert
.gs_sicherheitsbetrag = Math.Round(SENDUNG.tblSnd_Warenwert * (GesSichRef.gsr_zollsatz / 100), 2)
.gs_warenwert = WarenwertEUR
.gs_sicherheitsbetrag = Math.Round(WarenwertEUR * (GesSichRef.gsr_zollsatz / 100), 2)
.gs_standort = Me.Standort
.gs_art = "OPEN"
.gs_datum = DateTime.Now
@@ -302,7 +302,7 @@ Public Class usrCntlATLAS_AnkunftsAnzeige
CLOSED_DUMMY.SAVE()
GesSichRef.calcSaldo()
GesSichRef.CalcSaldo()
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)

6
SDL/ZOLLSYSTEM/DAKOSY/frmZollanmeldung.vb
View File

@@ -23,6 +23,7 @@ Public Class frmZollanmeldung
Dim GesamtsicherheitREF As cGesamtsicherheitsReferenz = Nothing
Dim Standort As String = ""
Dim gsnr As Integer = -1
Dim WarenwertEUR As Double = 0
@@ -78,7 +79,7 @@ Public Class frmZollanmeldung
End Sub
Sub New(ART As String, DY As DAKOSY_Worker.cDakosy_Zollanmeldungen, AVISO As VERAG_PROG_ALLGEMEIN.cAviso, SENDUNG As VERAG_PROG_ALLGEMEIN.cSendungen, JAHR As Integer, GesamtsicherheitREF As cGesamtsicherheitsReferenz, Standort As String, Optional gsnr As Integer = -1, Optional ZOLL_SYSTEM As String = "DAKOSY") ', Optional ZA = Nothing)
Sub New(ART As String, DY As DAKOSY_Worker.cDakosy_Zollanmeldungen, AVISO As VERAG_PROG_ALLGEMEIN.cAviso, SENDUNG As VERAG_PROG_ALLGEMEIN.cSendungen, JAHR As Integer, GesamtsicherheitREF As cGesamtsicherheitsReferenz, Standort As String, WarenwertEUR As Double, Optional gsnr As Integer = -1, Optional ZOLL_SYSTEM As String = "DAKOSY") ', Optional ZA = Nothing)
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
@@ -94,6 +95,7 @@ Public Class frmZollanmeldung
Me.GesamtsicherheitREF = GesamtsicherheitREF
Me.Standort = Standort
Me.gsnr = gsnr
Me.WarenwertEUR = WarenwertEUR
If SENDUNG IsNot Nothing Then
Me.FilialenNr = SENDUNG.FilialenNr
@@ -250,7 +252,7 @@ Public Class frmZollanmeldung
End If
Case "AA" 'AnkunftsAnzeige
Dim usrcntl As New usrCntlATLAS_AnkunftsAnzeige(AVISO, SENDUNG, FIRMA_DY, GesamtsicherheitREF, Standort, gsnr)
Dim usrcntl As New usrCntlATLAS_AnkunftsAnzeige(AVISO, SENDUNG, FIRMA_DY, GesamtsicherheitREF, Standort, gsnr, WarenwertEUR)
usrcntl.Dock = DockStyle.Fill
Me.pnl.Controls.Add(usrcntl)
Me.Text = "AnkunftsAnzeige - Verwahrung"