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

Merge branch 'ADMIN' of https://git.it.verag.ag/edv/ADMIN into ADMIN

Browse Source
This commit is contained in:
d.breimaier
2026-03-17 11:08:51 +01:00
parent 1d11481550 ab31397f6b
commit e52499338d
5 changed files with 165 additions and 73 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 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", "8"))
cboBrg.Items.Add(New MyListItem("Aufschub IMEX Customs Service GmbH (Österreich)", "13")) cboBrg.Items.Add(New MyListItem("Aufschub IMEX Customs Service GmbH (Österreich)", "13"))
cboBrg.Items.Add(New MyListItem("Aufschub KARACA (Deutschland)", "27"))
cboBrg.SelectedIndex = 0 cboBrg.SelectedIndex = 0
initDgv() initDgv()

74
VERAGMonitoring/frmMain.Designer.vb generated
View File

@@ -25,6 +25,11 @@ Partial Class frmMain
Me.components = New System.ComponentModel.Container() Me.components = New System.ComponentModel.Container()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmMain)) Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmMain))
Me.Panel2 = New System.Windows.Forms.Panel() 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.Button2 = New System.Windows.Forms.Button()
Me.cbxBrg_at_VERAG_CS = New System.Windows.Forms.CheckBox() Me.cbxBrg_at_VERAG_CS = New System.Windows.Forms.CheckBox()
Me.lblBrg_at_VERAG_CS = New System.Windows.Forms.Label() Me.lblBrg_at_VERAG_CS = New System.Windows.Forms.Label()
@@ -173,6 +178,11 @@ Partial Class frmMain
'Panel2 'Panel2
' '
Me.Panel2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle 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.Button2)
Me.Panel2.Controls.Add(Me.cbxBrg_at_VERAG_CS) Me.Panel2.Controls.Add(Me.cbxBrg_at_VERAG_CS)
Me.Panel2.Controls.Add(Me.lblBrg_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.Size = New System.Drawing.Size(692, 627)
Me.Panel2.TabIndex = 8 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 'Button2
' '
Me.Button2.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) 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 lblAt_tag_StatusVERAG_CS As Label
Friend WithEvents Button5 As Button Friend WithEvents Button5 As Button
Public WithEvents lblVersion As Label 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 End Class

17
VERAGMonitoring/frmMain.vb
View File

@@ -102,6 +102,7 @@ Public Class frmMain
allowCBX(cbxBrg_at_VERAG_CS, True) allowCBX(cbxBrg_at_VERAG_CS, True)
allowCBX(cbxAufschubEUST_de_UnispedDE, True) allowCBX(cbxAufschubEUST_de_UnispedDE, True)
allowCBX(cbxAufschub_de_UnispedDE, True) allowCBX(cbxAufschub_de_UnispedDE, True)
allowCBX(cbxAufschubEUST_de_KARACA, True)
End If End If
If brgusr_AdminUser Then 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("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 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 doAufschubCalc_AT("GESAMT", 13, cbxAufschub_at_IMEX, lblAufschubBrg_at_IMEX, Nothing, lblAufschub_at_IMEX, lblAufschubStatus_at_IMEX) 'IMEX AT - GESAMT
End Sub End Sub
@@ -1255,7 +1260,7 @@ Public Class frmMain
End Try End Try
Return True Return True
End Function 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) 'MsgBox(sender.name)
Me.Cursor = Cursors.WaitCursor Me.Cursor = Cursors.WaitCursor
If loaded Then If loaded Then
@@ -1747,6 +1752,16 @@ Public Class frmMain
Dim f As New frmMRNStorno Dim f As New frmMRNStorno
f.ShowDialog(Me) f.ShowDialog(Me)
End Sub 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 End Class

140
initATLASAufschubkonten/cWorker_NCTS.vb
View File

@@ -4108,95 +4108,95 @@ Public Class cWorker_NCTS
If readNCTS_Ueberlassungsmeldung009 <> "" And MRN <> "" Then 'BEZUGSNR vorhanden If readNCTS_Ueberlassungsmeldung009 <> "" And MRN <> "" Then 'BEZUGSNR vorhanden
Dim STATUS As DAKOSY_Worker.cDakosy_Statusmeldungen = FORM.getStatusCheckTransID(NCTS.Transaktion.IOReferenz, NCTS.Transaktion.IODatumZeit) Dim STATUS As DAKOSY_Worker.cDakosy_Statusmeldungen = FORM.getStatusCheckTransID(NCTS.Transaktion.IOReferenz, NCTS.Transaktion.IODatumZeit)
STATUS.dySt_BezugsNr = readNCTS_Ueberlassungsmeldung009 STATUS.dySt_BezugsNr = readNCTS_Ueberlassungsmeldung009
STATUS.dySt_artMitteilung = "UEM" STATUS.dySt_artMitteilung = "UEM"
STATUS.dySt_dyArt = "" '"NCTS" 'T1/T2 STATUS.dySt_dyArt = "" '"NCTS" 'T1/T2
STATUS.dySt_status = DAKOSY_Worker.cDY_Statusliste.S_50 STATUS.dySt_status = DAKOSY_Worker.cDY_Statusliste.S_50
STATUS.dySt_ergCode = "MRN" STATUS.dySt_ergCode = "MRN"
STATUS.dySt_ergMitteilung = MRN STATUS.dySt_ergMitteilung = MRN
STATUS.dySt_ergZeitpunkt = zp STATUS.dySt_ergZeitpunkt = zp
'EINTRAG IN tblDakosy_Zollanmeldungen 'EINTRAG IN tblDakosy_Zollanmeldungen
Dim DY_TMP As DAKOSY_Worker.cDakosy_Zollanmeldungen = FORM.saveDY_ZA(STATUS, NCTS.Transaktion.IOReferenz, If(zp, NCTS.Transaktion.IODatumZeit), "NCTS") Dim DY_TMP As DAKOSY_Worker.cDakosy_Zollanmeldungen = FORM.saveDY_ZA(STATUS, NCTS.Transaktion.IOReferenz, If(zp, NCTS.Transaktion.IODatumZeit), "NCTS")
Dim NCTS_TMP As DAKOSY_Worker.cDakosyNCTSOut004 = saveDY_NCTS004(STATUS, DY_TMP, NCTS.Transaktion.IOReferenz, If(zp, NCTS.Transaktion.IODatumZeit), , MRN, True) Dim NCTS_TMP As DAKOSY_Worker.cDakosyNCTSOut004 = saveDY_NCTS004(STATUS, DY_TMP, NCTS.Transaktion.IOReferenz, If(zp, NCTS.Transaktion.IODatumZeit), , MRN, True)
NCTS_TMP.ncts_Eroeffnung = zp NCTS_TMP.ncts_Eroeffnung = zp
NCTS_TMP.SAVE() NCTS_TMP.SAVE()
'------------------------------------------------------------------------------------------------------------------------------ '------------------------------------------------------------------------------------------------------------------------------
'GARANTIE ÜBERSCHREIBEN: 'GARANTIE ÜBERSCHREIBEN:
'If NCTS.EinzelUeberlassungsmeldung.TransitOperation IsNot Nothing AndAlso NCTS.EinzelUeberlassungsmeldung.TransitOperation.Guarantee IsNot Nothing AndAlso NCTS.EinzelUeberlassungsmeldung.TransitOperation.Guarantee.Count > 0 Then 'If NCTS.EinzelUeberlassungsmeldung.TransitOperation IsNot Nothing AndAlso NCTS.EinzelUeberlassungsmeldung.TransitOperation.Guarantee IsNot Nothing AndAlso NCTS.EinzelUeberlassungsmeldung.TransitOperation.Guarantee.Count > 0 Then
' NCTS_TMP.ncts_GUARANTEE.Clear() ' NCTS_TMP.ncts_GUARANTEE.Clear()
' For Each GRT_M In NCTS.EinzelUeberlassungsmeldung.TransitOperation.Guarantee ' For Each GRT_M In NCTS.EinzelUeberlassungsmeldung.TransitOperation.Guarantee
' For Each GRT In GRT_M.GuaranteeReference ' For Each GRT In GRT_M.GuaranteeReference
' Dim NCTS_GRT As New DAKOSY_Worker.cDakosy_NCTSOut004_Guarantee ' Dim NCTS_GRT As New DAKOSY_Worker.cDakosy_NCTSOut004_Guarantee
' NCTS_GRT.nctsGRT_Type = GRT_M.GuaranteeType ' NCTS_GRT.nctsGRT_Type = GRT_M.GuaranteeType
' NCTS_GRT.nctsGRT_OtherGuaranteeReference = GRT_M.OtherGuaranteeReference ' NCTS_GRT.nctsGRT_OtherGuaranteeReference = GRT_M.OtherGuaranteeReference
' NCTS_GRT.nctsGRT_AmountToBeCovered = GRT.AmountToBeCovered ' NCTS_GRT.nctsGRT_AmountToBeCovered = GRT.AmountToBeCovered
' 'NCTS_GRT.nctsGRT_AccessCode = GRT.accessCode ' 'NCTS_GRT.nctsGRT_AccessCode = GRT.accessCode
' NCTS_GRT.nctsGRT_GRN = GRT.GRN ' NCTS_GRT.nctsGRT_GRN = GRT.GRN
' NCTS_GRT.nctsGRT_Currency = GRT.Currency ' NCTS_GRT.nctsGRT_Currency = GRT.Currency
' NCTS_TMP.ncts_GUARANTEE.Add(NCTS_GRT) ' NCTS_TMP.ncts_GUARANTEE.Add(NCTS_GRT)
' Next ' Next
' Next ' Next
' NCTS_TMP.SAVE_Guarantee() ' NCTS_TMP.SAVE_Guarantee()
'End If 'End If
'------------------------------------------------------------------------------------------------------------------------------ '------------------------------------------------------------------------------------------------------------------------------
'For Each TE In NCTS_TMP.ncts_TRANSPORTEQUIPMENT 'For Each TE In NCTS_TMP.ncts_TRANSPORTEQUIPMENT
' If TE.nctsTE_NumberOfSeals > 0 Then ' If TE.nctsTE_NumberOfSeals > 0 Then
' End If ' End If
'Next 'Next
'If Verschluss_Anzahl > 0 Then 'If Verschluss_Anzahl > 0 Then
' NCTS_TMP.ncts_Verschluss_Anzahl = Verschluss_Anzahl ' NCTS_TMP.ncts_Verschluss_Anzahl = Verschluss_Anzahl
' NCTS_TMP.ncts_Verschluss_ArtCode = Verschluss_Art ' NCTS_TMP.ncts_Verschluss_ArtCode = Verschluss_Art
' NCTS_TMP.ncts_Verschluss_Zeichen1 = If(Verschluss_Zeichen.Count > 0, Verschluss_Zeichen(0), Nothing) ' NCTS_TMP.ncts_Verschluss_Zeichen1 = If(Verschluss_Zeichen.Count > 0, Verschluss_Zeichen(0), Nothing)
' NCTS_TMP.ncts_Verschluss_Zeichen2 = If(Verschluss_Zeichen.Count > 1, Verschluss_Zeichen(1), Nothing) ' NCTS_TMP.ncts_Verschluss_Zeichen2 = If(Verschluss_Zeichen.Count > 1, Verschluss_Zeichen(1), Nothing)
' NCTS_TMP.ncts_Verschluss_Zeichen3 = If(Verschluss_Zeichen.Count > 2, Verschluss_Zeichen(2), Nothing) ' NCTS_TMP.ncts_Verschluss_Zeichen3 = If(Verschluss_Zeichen.Count > 2, Verschluss_Zeichen(2), Nothing)
' NCTS_TMP.ncts_Verschluss_Zeichen4 = If(Verschluss_Zeichen.Count > 3, Verschluss_Zeichen(3), Nothing) ' NCTS_TMP.ncts_Verschluss_Zeichen4 = If(Verschluss_Zeichen.Count > 3, Verschluss_Zeichen(3), Nothing)
' NCTS_TMP.ncts_Verschluss_Zeichen5 = If(Verschluss_Zeichen.Count > 4, Verschluss_Zeichen(4), Nothing) ' NCTS_TMP.ncts_Verschluss_Zeichen5 = If(Verschluss_Zeichen.Count > 4, Verschluss_Zeichen(4), Nothing)
' NCTS_TMP.ncts_Verschluss_Zeichen6 = If(Verschluss_Zeichen.Count > 5, Verschluss_Zeichen(5), Nothing) ' NCTS_TMP.ncts_Verschluss_Zeichen6 = If(Verschluss_Zeichen.Count > 5, Verschluss_Zeichen(5), Nothing)
' NCTS_TMP.ncts_Verschluss_Zeichen7 = If(Verschluss_Zeichen.Count > 6, Verschluss_Zeichen(6), Nothing) ' NCTS_TMP.ncts_Verschluss_Zeichen7 = If(Verschluss_Zeichen.Count > 6, Verschluss_Zeichen(6), Nothing)
' NCTS_TMP.ncts_Verschluss_Zeichen8 = If(Verschluss_Zeichen.Count > 7, Verschluss_Zeichen(7), Nothing) ' NCTS_TMP.ncts_Verschluss_Zeichen8 = If(Verschluss_Zeichen.Count > 7, Verschluss_Zeichen(7), Nothing)
' NCTS_TMP.ncts_Verschluss_Zeichen9 = If(Verschluss_Zeichen.Count > 8, Verschluss_Zeichen(8), Nothing) ' NCTS_TMP.ncts_Verschluss_Zeichen9 = If(Verschluss_Zeichen.Count > 8, Verschluss_Zeichen(8), Nothing)
' NCTS_TMP.ncts_Verschluss_Zeichen10 = If(Verschluss_Zeichen.Count > 9, Verschluss_Zeichen(9), Nothing) ' NCTS_TMP.ncts_Verschluss_Zeichen10 = If(Verschluss_Zeichen.Count > 9, Verschluss_Zeichen(9), Nothing)
' NCTS_TMP.SAVE() ' NCTS_TMP.SAVE()
'End If 'End If
SaveNCTS004_FirmaNL(NCTS_TMP, DY_TMP, division) SaveNCTS004_FirmaNL(NCTS_TMP, DY_TMP, division)
SaveNCTS004_WGDAT(NCTS_TMP, Wiedergestellungsdatum) SaveNCTS004_WGDAT(NCTS_TMP, Wiedergestellungsdatum)
If DY_TMP IsNot Nothing Then STATUS.dySt_dyId = DY_TMP.dy_Id If DY_TMP IsNot Nothing Then STATUS.dySt_dyId = DY_TMP.dy_Id
STATUS.SAVE() STATUS.SAVE()
statusTMP = STATUS statusTMP = STATUS
cVERAG_out_ncts.copyFileFTP_VERAGncts004_DY(NCTS_TMP, DY_TMP) 'VERAG SCHNITTSTELLE cVERAG_out_ncts.copyFileFTP_VERAGncts004_DY(NCTS_TMP, DY_TMP) 'VERAG SCHNITTSTELLE
' If If(NCTS_TMP.ncts_firma, "") = "IMEX" Then ' If If(NCTS_TMP.ncts_firma, "") = "IMEX" Then
NCTS_TMP.insertIntoSpedBuch(DY_TMP) NCTS_TMP.insertIntoSpedBuch(DY_TMP)
'=====ATEZ BEREITSTELLUNG========== '=====ATEZ BEREITSTELLUNG==========
checkATEZ_Bereitstellung(DY_TMP, d) checkATEZ_Bereitstellung(DY_TMP, d)
'================================== '==================================
'=====ATEZ BEREITSTELLUNG========== '=====ATEZ BEREITSTELLUNG==========
checkATEZ_BereitstellungDHUB(DY_TMP, d) checkATEZ_BereitstellungDHUB(DY_TMP, d)
'================================== '==================================
'=====ATEZ IRU BEREITSTELLUNG========== '=====ATEZ IRU BEREITSTELLUNG==========
checkATEZIRU_Bereitstellung(DY_TMP, d) checkATEZIRU_Bereitstellung(DY_TMP, d)
'================================== '==================================
FORM.addDGVEinarbeitung("NCTS: Überlassungsmeldung", STATUS.dySt_BezugsNr) FORM.addDGVEinarbeitung("NCTS: Überlassungsmeldung", STATUS.dySt_BezugsNr)
End If End If
End If End If
Catch ex As Exception Catch ex As Exception

6
initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb
View File

@@ -10431,7 +10431,7 @@ Public Class frmDYNachrichtenVerarbeitung
If A.AbgabeArt IsNot Nothing Then If A.AbgabeArt IsNot Nothing Then
' If A.Zahlungsart = "A" Then 'Nur wenn Zahlungsart=...? ' 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) = 6128 Or
CInt(A.AufschubkontoNr) = 6136 Or CInt(A.AufschubkontoNr) = 6136 Or
CInt(A.AufschubkontoNr) = 2718 Or CInt(A.AufschubkontoNr) = 2718 Or
@@ -10440,7 +10440,8 @@ Public Class frmDYNachrichtenVerarbeitung
CInt(A.AufschubkontoNr) = 6146 Or CInt(A.AufschubkontoNr) = 6146 Or
CInt(A.AufschubkontoNr) = 6077 Or CInt(A.AufschubkontoNr) = 6077 Or
CInt(A.AufschubkontoNr) = 6078 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 Select Case A.AbgabeArt.ToString
Case "A0000", "10100" : LeistungsNr = 60 ' ZOLL Case "A0000", "10100" : LeistungsNr = 60 ' ZOLL
@@ -10487,6 +10488,7 @@ Public Class frmDYNachrichtenVerarbeitung
Case 6146 : tryToInsertProgramm(ABGABEN.Eingabedatum, ABGABEN.Betrag, 15, EDIFACTNachrichtenNr, ABGABEN.Registriernummer, 0, ABGABEN.Fälligkeitsdatum) 'UNISPED(DE) EUST 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 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 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) '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) 'Case 2718 : VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMailTEST("al@verag.ag", "AUFSCHUB IMEX: " & ABGABEN.Betrag, "AUFSCHUB IMEX: " & ABGABEN.Betrag & vbNewLine & ABGABEN.Bezugsnummer)