FKAT: Text bei Guthaben Vk, VG setzen bei DY API, RechnugnsPDF in KD Stamm

SDL/ZOLLSYSTEM/DAKOSY/ATLAS/AES/usrCntlATLAS_AES.vb

@@ -1,6 +1,7 @@
 Imports DAKOSY_Worker
 Imports Tamir
 Imports Tamir.SharpSsh
+Imports VERAG_PROG_ALLGEMEIN
 
 Public Class usrCntlATLAS_AES
 
@@ -438,6 +439,13 @@ Public Class usrCntlATLAS_AES
             End If
 
             DY_ANM.UPDATE_DATA()
+
+
+
+            'Beim Senden soll die Sendung überhnommen + tblSnd_VG_MA gesetzt werden --> damit gleich gesehen wird, dass der Akt in Bearbeitung ist.
+            DY_ANM.UPDATE_AVISO_SND(DY_ANM.dy_SendungsId)
+
+
             Me.FindForm.Close()
         End If
     End Sub

SDL/ZOLLSYSTEM/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA.vb

@@ -2,6 +2,7 @@
 Imports Tamir
 Imports Tamir.SharpSsh
 Imports Microsoft.Office.Interop
+Imports VERAG_PROG_ALLGEMEIN
 
 Public Class usrCntlATLAS_EZA
 
@@ -9,7 +10,8 @@ Public Class usrCntlATLAS_EZA
     Property ADRESSEN As usrCntlATLAS_EZA_Adressen
     Property POSITIONEN As usrCntlATLAS_EZA_Positionen
     Property DV1 As usrCntlATLAS_EZA_DV1
-     
+
+
 
 
     Property Jahr2Stellig As Integer
@@ -374,7 +376,7 @@ Public Class usrCntlATLAS_EZA
             '==> VORBLENDUNG:
 
             '   Dim cdy As New cDakosyEZA
-            cdy.EZA_ObjectName = BezugsNr
+            cdy.eza_ObjectName = BezugsNr
             '    cdy.EZA_AbgangsDienststellennummer = "DE004102"
             'frmZollanmeldung.setAbgangszollstelle(cdy.eza_Eingangszollstelle, AVISO)
             frmZollanmeldung.setZollstelle(cdy.eza_AdressierteZollstelle, AVISO)
@@ -383,7 +385,7 @@ Public Class usrCntlATLAS_EZA
             End If
 
             '  cdy.EZA_VersendungsLandCode = "DE"
-            cdy.EZA_dyaArt = cDy_ART
+            cdy.eza_dyaArt = cDy_ART
             If AVISO IsNot Nothing Then
                 '     cdy.EZA_Befoerderungsmittel_KennzeichenAbgang = AVISO.LKW_Nr
                 '  cdy.EZA_Befoerderungsmittel_KennzeichenGrenzueberschreitend = "X"
@@ -671,7 +673,7 @@ Public Class usrCntlATLAS_EZA
 
     Sub loadDYZollanmeldungen(Optional Status As String = "") ' + Speichern
         If DY_ANM Is Nothing Then
-            DY_ANM = New cDakosy_Zollanmeldungen(EZA.EZA_dyaAnmID)
+            DY_ANM = New cDakosy_Zollanmeldungen(EZA.eza_dyaAnmID)
         End If
         DY_ANM.dy_ART = ALLG.EZA_ART 'cDy_ART
         DY_ANM.dy_BezugsNr = BezugsNr
@@ -706,11 +708,14 @@ Public Class usrCntlATLAS_EZA
                         Else
                             If SENDUNG IsNot Nothing Then SENDUNG.SET_VGMA() ' MA Vorgeschrieben in Sendung setzen.
                         End If
-                        End If
+                    End If
                 End If
             End If
             DY_ANM.UPDATE_DATA()
 
+            'Beim Senden soll die Sendung überhnommen + tblSnd_VG_MA gesetzt werden --> damit gleich gesehen wird, dass der Akt in Bearbeitung ist.
+            DY_ANM.UPDATE_AVISO_SND(DY_ANM.dy_SendungsId)
+
 
             Me.FindForm.Close()
 
@@ -730,10 +735,10 @@ Public Class usrCntlATLAS_EZA
 
         If EZA IsNot Nothing Then
             'Dim cDY As New cDakosyEZA(cDyAnm.dy_Id, cDyAnm.dy_Erstellung_SB)
-            EZA.EZA_dyaAnmID = DY_ANM.dy_Id
-            EZA.EZA_Erstellung_SB = DY_ANM.dy_Erstellung_SB
-            EZA.EZA_LetzteBearbeitung = Now
-            EZA.EZA_LetzteBearbeitung_SB = DY_ANM.dy_LetzteBearbeitung_SB
+            EZA.eza_dyaAnmID = DY_ANM.dy_Id
+            EZA.eza_Erstellung_SB = DY_ANM.dy_Erstellung_SB
+            EZA.eza_LetzteBearbeitung = Now
+            EZA.eza_LetzteBearbeitung_SB = DY_ANM.dy_LetzteBearbeitung_SB
             DAKOSY_Interface_SEND.loadInClass_VersandanmeldungEZA(EZA, Me, DY_ANM)
 
             If Not EZA.SAVE_ALL() Then

SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS/usrCntlATLAS_NCTS.vb

@@ -580,6 +580,10 @@ Public Class usrCntlATLAS_NCTS
             End If
 
             DY_ANM.UPDATE_DATA()
+
+            'Beim Senden soll die Sendung überhnommen + tblSnd_VG_MA gesetzt werden --> damit gleich gesehen wird, dass der Akt in Bearbeitung ist.
+            DY_ANM.UPDATE_AVISO_SND(DY_ANM.dy_SendungsId)
+
             Me.FindForm.Close()
         End If
         Me.Cursor = Cursors.Default