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

merge

Browse Source
This commit is contained in:
d.breimaier
2026-01-14 08:55:07 +01:00
parent ea0b58803e eb4fdfaf58
commit 0b6a5c9956
13 changed files with 388 additions and 135 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb
View File

@@ -9120,6 +9120,7 @@ Public Class frmDYNachrichtenVerarbeitung
Else
EZA_TMP = saveDY_EZA(STATUS, DY_TMP, EZA.Transaktion.IOReferenz, If(zp, EZA.Transaktion.IODatumZeit))
End If
EZA_TMP.loadAll()
'Anmlededatum setzen
EZA_TMP.eza_Anmeldedatum = zp
@@ -9135,7 +9136,7 @@ Public Class frmDYNachrichtenVerarbeitung
'=====IMPORT IN VERAG DATENMODELL==========
Dim IMP As New DAKOSY_Worker.cImporter_DakosyToVERAG
IMP.ImportDakosyEZA(EZA_TMP, False)
IMP.ImportDakosyEZA(EZA_TMP, False, True)
'==================================
'=====ATEZ BEREITSTELLUNG==========
@@ -10265,7 +10266,7 @@ Public Class frmDYNachrichtenVerarbeitung
Else
EZA_TMP = saveDY_EZA(STATUS, DY_TMP, EZA.Transaktion.IOReferenz, If(zp, EZA.Transaktion.IODatumZeit))
End If
EZA_TMP.loadAll()
Dim firma = ""
Dim nl = ""
@@ -10337,9 +10338,10 @@ Public Class frmDYNachrichtenVerarbeitung
EZA_TMP.insertIntoSpedBuch(DY_TMP)
'=====IMPORT IN VERAG DATENMODELL==========
Dim IMP As New DAKOSY_Worker.cImporter_DakosyToVERAG
IMP.ImportDakosyEZA(EZA_TMP, False)
IMP.ImportDakosyEZA(EZA_TMP, False, True)
'==================================

3
initATLASAufschubkonten/frmStartOptions.Designer.vb generated
View File

@@ -369,6 +369,7 @@ Partial Class frmStartOptions
Me.Label56 = New System.Windows.Forms.Label()
Me.Label57 = New System.Windows.Forms.Label()
Me.Label58 = New System.Windows.Forms.Label()
Me.Button29 = New System.Windows.Forms.Button()
Me.pnl.SuspendLayout()
CType(Me.PictureBox24, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox23, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -1164,6 +1165,7 @@ Partial Class frmStartOptions
'
'TabPage1
'
Me.TabPage1.Controls.Add(Me.Button29)
Me.TabPage1.Controls.Add(Me.LinkLabel68)
Me.TabPage1.Controls.Add(Me.PictureBox26)
Me.TabPage1.Controls.Add(Me.cbxGestellungspeichern)
@@ -5351,4 +5353,5 @@ Partial Class frmStartOptions
Friend WithEvents Label56 As Label
Friend WithEvents Label58 As Label
Friend WithEvents Label57 As Label
Friend WithEvents Button29 As Button
End Class

9
initATLASAufschubkonten/frmStartOptions.vb
View File

@@ -6,6 +6,7 @@ Imports System.Security.Cryptography.X509Certificates
Imports System.Text
Imports System.Threading
Imports System.Xml
Imports DAKOSY_Worker
Imports MDM_Worker
Imports Renci.SshNet
Imports VERAG_PROG_ALLGEMEIN
@@ -1001,7 +1002,7 @@ Public Class frmStartOptions
'=====IMPORT IN VERAG DATENMODELL==========
Dim IMP As New DAKOSY_Worker.cImporter_DHFToVERAG
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "UNIDPED" : IMP.ImportEZOLLByLRN(cDHF_Anhaenge.CRN, "EZOLL_UNISPED", False)
Case "UNISPED" : IMP.ImportEZOLLByLRN(cDHF_Anhaenge.CRN, "EZOLL_UNISPED", False, True)
Case Else : IMP.ImportEZOLLByLRN(cDHF_Anhaenge.CRN, "EZOLL", False)
End Select
'==========================================
@@ -7224,4 +7225,10 @@ repeatRequest:
End Sub
Private Sub Button29_Click_1(sender As Object, e As EventArgs) Handles Button29.Click
'Dim ZA = VERAG_PROG_ALLGEMEIN.cVERAG_CustomsDeclarations.loadByMRN("26DE7458ACA000YYR2", True)
Dim ZA = VERAG_PROG_ALLGEMEIN.cVERAG_CustomsDeclarations.loadByMRN("26DE7701ACA0024DR0", True)
ZA.checkfreshCBAMWarning()
End Sub
End Class

2
initATLASAufschubkonten/frmTCNachrichtenVerarbeitung.vb
View File

@@ -1058,7 +1058,7 @@ Public Class frmTCNachrichtenVerarbeitung
'=====IMPORT IN VERAG DATENMODELL==========
If TC.Hea_DecTy = "EUA" Then
Dim IMP As New DAKOSY_Worker.cImporter_TelotecToVERAG
IMP.ImportTelotec(TC, False)
IMP.ImportTelotec(TC, False, True)
End If
'==================================