From 91615faa08948e0ef7bf4153ae9841a183470c53 Mon Sep 17 00:00:00 2001 From: Andreas Luxbauer Date: Mon, 16 Mar 2026 20:05:33 +0100 Subject: [PATCH] Karaca Aufschub --- VERAGMonitoring/frmEinzahlung.vb | 1 + VERAGMonitoring/frmMain.Designer.vb | 74 +++++++++++++++++++ VERAGMonitoring/frmMain.vb | 17 ++++- initATLASAufschubkonten/cWorker_NCTS.vb | 1 - .../frmDYNachrichtenVerarbeitung.vb | 6 +- 5 files changed, 95 insertions(+), 4 deletions(-) diff --git a/VERAGMonitoring/frmEinzahlung.vb b/VERAGMonitoring/frmEinzahlung.vb index fbed009..0741c27 100644 --- a/VERAGMonitoring/frmEinzahlung.vb +++ b/VERAGMonitoring/frmEinzahlung.vb @@ -8,6 +8,7 @@ cboBrg.Items.Add(New MyListItem("Aufschub VERAG Zollservice GmbH (Österreich)", "4")) cboBrg.Items.Add(New MyListItem("Aufschub IMEX Customs Service GmbH", "8")) cboBrg.Items.Add(New MyListItem("Aufschub IMEX Customs Service GmbH (Österreich)", "13")) + cboBrg.Items.Add(New MyListItem("Aufschub KARACA (Deutschland)", "27")) cboBrg.SelectedIndex = 0 initDgv() diff --git a/VERAGMonitoring/frmMain.Designer.vb b/VERAGMonitoring/frmMain.Designer.vb index 39fbf80..7b7d886 100644 --- a/VERAGMonitoring/frmMain.Designer.vb +++ b/VERAGMonitoring/frmMain.Designer.vb @@ -25,6 +25,11 @@ Partial Class frmMain Me.components = New System.ComponentModel.Container() Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmMain)) Me.Panel2 = New System.Windows.Forms.Panel() + Me.lblAufschubBrgEUST_de_KARACA = New System.Windows.Forms.Label() + Me.cbxAufschubEUST_de_KARACA = New System.Windows.Forms.CheckBox() + Me.lblAufschubEUST_de_KARACA = New System.Windows.Forms.Label() + Me.lblAufschubBrgEUST_de_KARACA_oE = New System.Windows.Forms.Label() + Me.lblAufschubStatusEUST_de_KARACA = New System.Windows.Forms.Label() Me.Button2 = New System.Windows.Forms.Button() Me.cbxBrg_at_VERAG_CS = New System.Windows.Forms.CheckBox() Me.lblBrg_at_VERAG_CS = New System.Windows.Forms.Label() @@ -173,6 +178,11 @@ Partial Class frmMain 'Panel2 ' Me.Panel2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.Panel2.Controls.Add(Me.lblAufschubBrgEUST_de_KARACA) + Me.Panel2.Controls.Add(Me.cbxAufschubEUST_de_KARACA) + Me.Panel2.Controls.Add(Me.lblAufschubEUST_de_KARACA) + Me.Panel2.Controls.Add(Me.lblAufschubBrgEUST_de_KARACA_oE) + Me.Panel2.Controls.Add(Me.lblAufschubStatusEUST_de_KARACA) Me.Panel2.Controls.Add(Me.Button2) Me.Panel2.Controls.Add(Me.cbxBrg_at_VERAG_CS) Me.Panel2.Controls.Add(Me.lblBrg_at_VERAG_CS) @@ -303,6 +313,65 @@ Partial Class frmMain Me.Panel2.Size = New System.Drawing.Size(692, 627) Me.Panel2.TabIndex = 8 ' + 'lblAufschubBrgEUST_de_KARACA + ' + Me.lblAufschubBrgEUST_de_KARACA.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.lblAufschubBrgEUST_de_KARACA.Cursor = System.Windows.Forms.Cursors.Default + Me.lblAufschubBrgEUST_de_KARACA.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblAufschubBrgEUST_de_KARACA.Location = New System.Drawing.Point(434, 476) + Me.lblAufschubBrgEUST_de_KARACA.Name = "lblAufschubBrgEUST_de_KARACA" + Me.lblAufschubBrgEUST_de_KARACA.RightToLeft = System.Windows.Forms.RightToLeft.Yes + Me.lblAufschubBrgEUST_de_KARACA.Size = New System.Drawing.Size(90, 13) + Me.lblAufschubBrgEUST_de_KARACA.TabIndex = 98 + Me.lblAufschubBrgEUST_de_KARACA.Text = " 0 €" + ' + 'cbxAufschubEUST_de_KARACA + ' + Me.cbxAufschubEUST_de_KARACA.AutoSize = True + Me.cbxAufschubEUST_de_KARACA.Enabled = False + Me.cbxAufschubEUST_de_KARACA.Location = New System.Drawing.Point(9, 477) + Me.cbxAufschubEUST_de_KARACA.Name = "cbxAufschubEUST_de_KARACA" + Me.cbxAufschubEUST_de_KARACA.Size = New System.Drawing.Size(15, 14) + Me.cbxAufschubEUST_de_KARACA.TabIndex = 97 + Me.cbxAufschubEUST_de_KARACA.UseVisualStyleBackColor = True + ' + 'lblAufschubEUST_de_KARACA + ' + Me.lblAufschubEUST_de_KARACA.AutoSize = True + Me.lblAufschubEUST_de_KARACA.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblAufschubEUST_de_KARACA.Location = New System.Drawing.Point(26, 477) + Me.lblAufschubEUST_de_KARACA.Name = "lblAufschubEUST_de_KARACA" + Me.lblAufschubEUST_de_KARACA.Size = New System.Drawing.Size(81, 13) + Me.lblAufschubEUST_de_KARACA.TabIndex = 94 + Me.lblAufschubEUST_de_KARACA.Text = "* DE - KARACA" + ' + 'lblAufschubBrgEUST_de_KARACA_oE + ' + Me.lblAufschubBrgEUST_de_KARACA_oE.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.lblAufschubBrgEUST_de_KARACA_oE.Cursor = System.Windows.Forms.Cursors.Hand + Me.lblAufschubBrgEUST_de_KARACA_oE.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblAufschubBrgEUST_de_KARACA_oE.Location = New System.Drawing.Point(555, 476) + Me.lblAufschubBrgEUST_de_KARACA_oE.Name = "lblAufschubBrgEUST_de_KARACA_oE" + Me.lblAufschubBrgEUST_de_KARACA_oE.RightToLeft = System.Windows.Forms.RightToLeft.Yes + Me.lblAufschubBrgEUST_de_KARACA_oE.Size = New System.Drawing.Size(90, 13) + Me.lblAufschubBrgEUST_de_KARACA_oE.TabIndex = 95 + Me.lblAufschubBrgEUST_de_KARACA_oE.Text = " 0 €" + ' + 'lblAufschubStatusEUST_de_KARACA + ' + Me.lblAufschubStatusEUST_de_KARACA.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.lblAufschubStatusEUST_de_KARACA.AutoSize = True + Me.lblAufschubStatusEUST_de_KARACA.BackColor = System.Drawing.Color.Green + Me.lblAufschubStatusEUST_de_KARACA.Cursor = System.Windows.Forms.Cursors.Help + Me.lblAufschubStatusEUST_de_KARACA.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblAufschubStatusEUST_de_KARACA.ForeColor = System.Drawing.Color.White + Me.lblAufschubStatusEUST_de_KARACA.Location = New System.Drawing.Point(651, 476) + Me.lblAufschubStatusEUST_de_KARACA.Name = "lblAufschubStatusEUST_de_KARACA" + Me.lblAufschubStatusEUST_de_KARACA.RightToLeft = System.Windows.Forms.RightToLeft.Yes + Me.lblAufschubStatusEUST_de_KARACA.Size = New System.Drawing.Size(22, 13) + Me.lblAufschubStatusEUST_de_KARACA.TabIndex = 96 + Me.lblAufschubStatusEUST_de_KARACA.Text = "OK" + ' 'Button2 ' Me.Button2.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) @@ -2080,4 +2149,9 @@ Partial Class frmMain Friend WithEvents lblAt_tag_StatusVERAG_CS As Label Friend WithEvents Button5 As Button Public WithEvents lblVersion As Label + Friend WithEvents lblAufschubBrgEUST_de_KARACA As Label + Friend WithEvents cbxAufschubEUST_de_KARACA As CheckBox + Friend WithEvents lblAufschubEUST_de_KARACA As Label + Friend WithEvents lblAufschubBrgEUST_de_KARACA_oE As Label + Friend WithEvents lblAufschubStatusEUST_de_KARACA As Label End Class diff --git a/VERAGMonitoring/frmMain.vb b/VERAGMonitoring/frmMain.vb index 16dd356..c8f99dd 100644 --- a/VERAGMonitoring/frmMain.vb +++ b/VERAGMonitoring/frmMain.vb @@ -102,6 +102,7 @@ Public Class frmMain allowCBX(cbxBrg_at_VERAG_CS, True) allowCBX(cbxAufschubEUST_de_UnispedDE, True) allowCBX(cbxAufschub_de_UnispedDE, True) + allowCBX(cbxAufschubEUST_de_KARACA, True) End If If brgusr_AdminUser Then @@ -829,6 +830,10 @@ Public Class frmMain doAufschubCalc("ZOLL", 14, cbxAufschub_de_UnispedDE, lblAufschubBrg_de_UNISPEDDE, lblAufschubBrg_de_UNISPEDDE_oE, lblAufschub_de_UNISPEDDE, lblAufschubStatus_de_UNISPEDDE) 'UNISPED(DE) DE - ZOLL doAufschubCalc("EUST", 15, cbxAufschubEUST_de_UnispedDE, lblAufschubBrgEUST_de_UNISPEDDE, lblAufschubBrgEUST_de_UNISPEDDE_oE, lblAufschubEUST_de_UNISPEDDE, lblAufschubStatusEUST_de_UNISPEDDE) 'UNISPED(DE) DE - EUST + 'KARACA + doAufschubCalc("ZOLL", 27, cbxAufschubEUST_de_KARACA, lblAufschubBrgEUST_de_KARACA, lblAufschubBrgEUST_de_KARACA_oE, lblAufschubBrgEUST_de_KARACA, lblAufschubStatusEUST_de_KARACA) 'UNISPED(DE) DE - ZOLL + + doAufschubCalc_AT("GESAMT", 13, cbxAufschub_at_IMEX, lblAufschubBrg_at_IMEX, Nothing, lblAufschub_at_IMEX, lblAufschubStatus_at_IMEX) 'IMEX AT - GESAMT End Sub @@ -1255,7 +1260,7 @@ Public Class frmMain End Try Return True End Function - Private Sub cbxBrg_de_VeragAG_CheckedChanged(sender As Object, e As EventArgs) Handles cbxBrg_de2_VeragAG.CheckedChanged, cbxBrg_at_VeragAG.CheckedChanged, cbxAufschub_de_VeragAG.CheckedChanged, cbxAufschub_at_VeragAG.CheckedChanged, cbxAufschub_at_VeragCS.CheckedChanged, cbxAufschub_at_VeragZS.CheckedChanged, cbxAufschubEUST_de_VeragAG.CheckedChanged, cbxAufschubEUST_de_Imex.CheckedChanged, cbxAufschubEUST_de_Global.CheckedChanged, cbxAufschub_de_Unisped.CheckedChanged, cbxAufschubEUST_de_Unisped.CheckedChanged, cbxAufschub_de_UnispedDE.CheckedChanged, cbxAufschubEUST_de_UnispedDE.CheckedChanged, cbxAufschub_at_IMEX.CheckedChanged, cbxBrg_at_UNISPED.CheckedChanged, cbxBrg_at_VERAG_CS.CheckedChanged, cbxBrg_at_Atilla.CheckedChanged, cbxBrg_at_Imex.CheckedChanged + Private Sub cbxBrg_de_VeragAG_CheckedChanged(sender As Object, e As EventArgs) Handles cbxBrg_de2_VeragAG.CheckedChanged, cbxBrg_at_VeragAG.CheckedChanged, cbxAufschub_de_VeragAG.CheckedChanged, cbxAufschub_at_VeragAG.CheckedChanged, cbxAufschub_at_VeragCS.CheckedChanged, cbxAufschub_at_VeragZS.CheckedChanged, cbxAufschubEUST_de_VeragAG.CheckedChanged, cbxAufschubEUST_de_Imex.CheckedChanged, cbxAufschubEUST_de_Global.CheckedChanged, cbxAufschub_de_Unisped.CheckedChanged, cbxAufschubEUST_de_Unisped.CheckedChanged, cbxAufschub_de_UnispedDE.CheckedChanged, cbxAufschubEUST_de_UnispedDE.CheckedChanged, cbxAufschub_at_IMEX.CheckedChanged, cbxBrg_at_UNISPED.CheckedChanged, cbxBrg_at_VERAG_CS.CheckedChanged, cbxBrg_at_Atilla.CheckedChanged, cbxBrg_at_Imex.CheckedChanged, cbxAufschubEUST_de_KARACA.CheckedChanged 'MsgBox(sender.name) Me.Cursor = Cursors.WaitCursor If loaded Then @@ -1747,6 +1752,16 @@ Public Class frmMain Dim f As New frmMRNStorno f.ShowDialog(Me) End Sub + + Private Sub lblAufschubBrgEUST_de_KARACA_oE_Click(sender As Object, e As EventArgs) Handles lblAufschubBrgEUST_de_KARACA_oE.Click + If cbxAufschubEUST_de_UnispedDE.Checked Then + Dim frmShowData As New frmShowData + frmShowData.dgv.DataSource = getAufschubDT("EUST", 27) + + frmShowData.Label2.Text = "Anzahl: " & frmShowData.dgv.RowCount + frmShowData.Show() + End If + End Sub End Class diff --git a/initATLASAufschubkonten/cWorker_NCTS.vb b/initATLASAufschubkonten/cWorker_NCTS.vb index 45d0e91..a8ec128 100644 --- a/initATLASAufschubkonten/cWorker_NCTS.vb +++ b/initATLASAufschubkonten/cWorker_NCTS.vb @@ -4053,7 +4053,6 @@ Public Class cWorker_NCTS - End If 'End If diff --git a/initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb b/initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb index 2d57f80..5634e8a 100644 --- a/initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb +++ b/initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb @@ -10430,7 +10430,7 @@ Public Class frmDYNachrichtenVerarbeitung If A.AbgabeArt IsNot Nothing Then ' If A.Zahlungsart = "A" Then 'Nur wenn Zahlungsart=...? - If If(A.KennBuchstabenAufschub, "").Trim = "M" And + If (If(A.KennBuchstabenAufschub, "").Trim = "M" And (CInt(A.AufschubkontoNr) = 6128 Or CInt(A.AufschubkontoNr) = 6136 Or CInt(A.AufschubkontoNr) = 2718 Or @@ -10439,7 +10439,8 @@ Public Class frmDYNachrichtenVerarbeitung 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 + CInt(A.AufschubkontoNr) = 1994)) Or + (If(A.KennBuchstabenAufschub, "").Trim = "MS" And CInt(A.AufschubkontoNr) = 1566) Then '_>TEST Or CInt(A.AufschubkontoNr) = 678010 Select Case A.AbgabeArt.ToString Case "A0000", "10100" : LeistungsNr = 60 ' ZOLL @@ -10486,6 +10487,7 @@ Public Class frmDYNachrichtenVerarbeitung Case 6146 : tryToInsertProgramm(ABGABEN.Eingabedatum, ABGABEN.Betrag, 15, EDIFACTNachrichtenNr, ABGABEN.Registriernummer, 0, ABGABEN.Fälligkeitsdatum) 'UNISPED(DE) EUST Case 6078 : tryToInsertProgramm(ABGABEN.Eingabedatum, ABGABEN.Betrag, 16, EDIFACTNachrichtenNr, ABGABEN.Registriernummer, 0, ABGABEN.Fälligkeitsdatum) 'UNISPED ZOLL Case 6077 : tryToInsertProgramm(ABGABEN.Eingabedatum, ABGABEN.Betrag, 17, EDIFACTNachrichtenNr, ABGABEN.Registriernummer, 0, ABGABEN.Fälligkeitsdatum) 'UNISPED EUST + Case 1566 : tryToInsertProgramm(ABGABEN.Eingabedatum, ABGABEN.Betrag, 27, EDIFACTNachrichtenNr, ABGABEN.Registriernummer, 0, ABGABEN.Fälligkeitsdatum) 'KARACA '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)