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

Karaca Aufschub

Browse Source
This commit is contained in:
Andreas Luxbauer
2026-03-16 20:05:33 +01:00
parent 04367593bb
commit 91615faa08
5 changed files with 95 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
VERAGMonitoring/frmEinzahlung.vb
View File

@@ -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()

74
VERAGMonitoring/frmMain.Designer.vb generated
View File

@@ -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

17
VERAGMonitoring/frmMain.vb
View File

@@ -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

1
initATLASAufschubkonten/cWorker_NCTS.vb
View File

@@ -4053,7 +4053,6 @@ Public Class cWorker_NCTS
End If
'End If

6
initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb
View File

@@ -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)