586 lines
29 KiB
VB.net
586 lines
29 KiB
VB.net
Imports com.sun.xml.internal.bind.v2.model.core
|
|
Imports VERAG_PROG_ALLGEMEIN
|
|
|
|
Public Class cWorker_Verwahrung
|
|
Public Shared Dateiname = ""
|
|
|
|
Shared SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
|
|
|
|
|
|
|
Shared Function readVW_SumAVerwahrungsinfo(FORM As frmDYNachrichtenVerarbeitung, d As String, saveVerwahrung As Boolean) As String
|
|
Try
|
|
|
|
Dim VWI As DAKOSY_Worker.SumAVerwahrungsinfo_009.SumAVerwahrungsinfoSVTyp = DAKOSY_Worker.SumAVerwahrungsinfo_009.SumAVerwahrungsinfoSVTyp.LoadFromFile(d)
|
|
Dim Vorpapiernummer = ""
|
|
Dim RegistriernummerATLAS = ""
|
|
Dim ankungsdatum As Object = Nothing
|
|
Dim gestellungsdatum As Object = Nothing
|
|
Dim posGestellung As New DataTable
|
|
readVW_SumAVerwahrungsinfo = ""
|
|
If VWI IsNot Nothing Then
|
|
If VWI.EinzelSumAVerwahrungsinfo IsNot Nothing Then
|
|
If VWI.EinzelSumAVerwahrungsinfo.ObjektIdentifizierung IsNot Nothing Then
|
|
If VWI.EinzelSumAVerwahrungsinfo.ObjektIdentifizierung.ObjektName IsNot Nothing Then
|
|
readVW_SumAVerwahrungsinfo = VWI.EinzelSumAVerwahrungsinfo.ObjektIdentifizierung.ObjektName 'Nur ObjektAntragsart VV (SumA Vorgang) /NE (NCTS-Vorgang )
|
|
End If
|
|
End If
|
|
If VWI.EinzelSumAVerwahrungsinfo.KopfDaten IsNot Nothing Then
|
|
If VWI.EinzelSumAVerwahrungsinfo.KopfDaten.Vorpapiernummer IsNot Nothing Then
|
|
Vorpapiernummer = VWI.EinzelSumAVerwahrungsinfo.KopfDaten.Vorpapiernummer
|
|
End If
|
|
|
|
If VWI.EinzelSumAVerwahrungsinfo.KopfDaten.RegistriernummerATLAS IsNot Nothing Then
|
|
RegistriernummerATLAS = VWI.EinzelSumAVerwahrungsinfo.KopfDaten.RegistriernummerATLAS
|
|
End If
|
|
If VWI.EinzelSumAVerwahrungsinfo.KopfDaten.GestellungDatum > "01.01.2000" Then
|
|
gestellungsdatum = VWI.EinzelSumAVerwahrungsinfo.KopfDaten.GestellungDatum
|
|
End If
|
|
If VWI.EinzelSumAVerwahrungsinfo.KopfDaten.Ankunftsdatum > "01.01.2000" Then
|
|
ankungsdatum = VWI.EinzelSumAVerwahrungsinfo.KopfDaten.Ankunftsdatum
|
|
End If
|
|
|
|
If VWI.EinzelSumAVerwahrungsinfo.Position IsNot Nothing Then
|
|
For Each POS In VWI.EinzelSumAVerwahrungsinfo.Position
|
|
If POS.Positionsnummer IsNot Nothing AndAlso posGestellung IsNot Nothing Then
|
|
If Not posGestellung.Columns.Contains("AnzPackst") Then
|
|
posGestellung.Columns.Add("PosNr", GetType(Integer))
|
|
posGestellung.Columns.Add("AnzPackst", GetType(Integer))
|
|
posGestellung.Columns.Add("PackstArt", GetType(String))
|
|
posGestellung.Columns.Add("Rohmasse", GetType(Double))
|
|
posGestellung.Columns.Add("Warenbeschreibung", GetType(String))
|
|
posGestellung.Columns.Add("VerwahrerFirma", GetType(String))
|
|
posGestellung.Columns.Add("VerwahrerOrt", GetType(String))
|
|
posGestellung.Columns.Add("VerwahrerEORI", GetType(String))
|
|
End If
|
|
|
|
Dim ro As DataRow = posGestellung.NewRow
|
|
ro("PosNr") = POS.Positionsnummer
|
|
ro("AnzPackst") = POS.PackstueckAnzahl
|
|
ro("PackstArt") = POS.PackstueckArt
|
|
ro("Rohmasse") = POS.Rohmasse
|
|
ro("Warenbeschreibung") = POS.Warenbeschreibung
|
|
ro("VerwahrerFirma") = POS.Verwahrer.NameFirma
|
|
ro("VerwahrerOrt") = POS.Verwahrer.Ortsteil
|
|
ro("VerwahrerEORI") = POS.Verwahrer.TeilnehmerEORI
|
|
posGestellung.Rows.Add(ro)
|
|
|
|
|
|
End If
|
|
|
|
|
|
|
|
Next
|
|
End If
|
|
End If
|
|
|
|
End If
|
|
End If
|
|
|
|
|
|
If readVW_SumAVerwahrungsinfo <> "" And Vorpapiernummer <> "" Then 'BEZUGSNR vorhanden
|
|
Dim STATUS As DAKOSY_Worker.cDakosy_Statusmeldungen = FORM.getStatusCheckTransID(VWI.Transaktion.IOReferenz, VWI.Transaktion.IODatumZeit)
|
|
STATUS.dySt_BezugsNr = readVW_SumAVerwahrungsinfo
|
|
STATUS.dySt_artMitteilung = "VW_INFO"
|
|
STATUS.dySt_dyArt = "VW"
|
|
|
|
STATUS.dySt_status = DAKOSY_Worker.cDY_Statusliste.V_50
|
|
STATUS.dySt_ergCode = "GSTDATUM"
|
|
STATUS.dySt_ergMitteilung = ""
|
|
If gestellungsdatum IsNot Nothing Then STATUS.dySt_ergZeitpunkt = gestellungsdatum
|
|
|
|
STATUS.SAVE()
|
|
|
|
|
|
'LINKE SEITE BEI GESAMTSICHERHEITEN!!!!!!!!!!!!!
|
|
|
|
If saveVerwahrung Then
|
|
|
|
'----------------------------------------------------------------
|
|
|
|
|
|
Try
|
|
|
|
Dim BezugsNr = readVW_SumAVerwahrungsinfo
|
|
|
|
If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True Then VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
|
|
|
|
Dim filiale As String = ""
|
|
Dim abfertigungsnummer = ""
|
|
Dim Standort As String = ""
|
|
Dim warenort = ""
|
|
|
|
If BezugsNr.Length > 4 AndAlso IsNumeric(BezugsNr.Substring(0, 4)) Then
|
|
filiale = IIf(BezugsNr.Length > 4, BezugsNr.Substring(0, 4), "")
|
|
abfertigungsnummer = IIf(BezugsNr.Length >= 14, BezugsNr.Substring(5, 8), "")
|
|
|
|
ElseIf Vorpapiernummer <> "" Then
|
|
If Vorpapiernummer.Length > 18 Then
|
|
Vorpapiernummer = Vorpapiernummer.ToString.Substring(0, 18)
|
|
End If
|
|
Dim dtSendungsInfo As New DataTable
|
|
dtSendungsInfo = SQL.loadDgvBySql("SELECT [FilialenNr],[AbfertigungsNr],[UnterNr] FROM [dbo].[tblSendungen] where tblSnd_ATB_T1 = '" & Vorpapiernummer & "'", "AVISO")
|
|
|
|
If dtSendungsInfo.Rows.Count > 0 Then
|
|
filiale = dtSendungsInfo.Rows(0).Item("FilialenNr")
|
|
abfertigungsnummer = dtSendungsInfo.Rows(0).Item("AbfertigungsNr")
|
|
End If
|
|
|
|
|
|
Select Case filiale
|
|
Case "4803", "4809"
|
|
Standort = "VERAG AG"
|
|
Case "4810", "5103", "5901"
|
|
Standort = "VERAG GmbH"
|
|
Case "5501"
|
|
Standort = "IMEX"
|
|
Case Else
|
|
GoTo Anzeige
|
|
End Select
|
|
|
|
|
|
Dim dy_SendungsId = VWI.Transaktion.IOReferenz
|
|
|
|
If filiale <> "" AndAlso abfertigungsnummer <> "" AndAlso IsNumeric(filiale) AndAlso IsNumeric(abfertigungsnummer) Then
|
|
|
|
Dim SND = VERAG_PROG_ALLGEMEIN.cSendungen.LOADByFilialenNrAbfertigungsNr(filiale, abfertigungsnummer)
|
|
|
|
If SND IsNot Nothing AndAlso SND.tblSnd_Abfertigungsart_ID = 44 Then
|
|
|
|
Dim existingEntry As Integer = 0
|
|
existingEntry = CInt((New SQL).getValueTxtBySql("Select gs_gsnr from [tblGesamtsicherheit] where [gs_ATBNr] = '" & Vorpapiernummer & "' order by gs_datum desc", "AVISO",,,, "0"))
|
|
If existingEntry = 0 Then
|
|
existingEntry = CInt((New SQL).getValueTxtBySql("Select gs_gsnr from [tblGesamtsicherheit] where ([gs_filialenNr] = '" & SND.FilialenNr & "' and [gs_abfertigungsNr] = " & SND.AbfertigungsNr & ") or (gs_avisoId = " & SND.tblSnd_AvisoID & ") order by gs_datum desc", "AVISO",,, "0"))
|
|
End If
|
|
|
|
If existingEntry > 0 Then
|
|
|
|
Dim urspringsSicherheit As New cSicherheiten(existingEntry)
|
|
|
|
|
|
Dim GesSichRef = New VERAG_PROG_ALLGEMEIN.cGesamtsicherheitsReferenz(urspringsSicherheit.gs_standort)
|
|
Dim saldo = GesSichRef.CalcSaldo()
|
|
|
|
If SND.FilialenNr > 0 Then filiale = SND.FilialenNr
|
|
If SND.AbfertigungsNr > 0 Then abfertigungsnummer = SND.AbfertigungsNr
|
|
|
|
'Verwahrung ANSCHREIBUNG
|
|
|
|
Dim gsId As Integer
|
|
|
|
urspringsSicherheit.gs_systemuser = "DAKOSY-AUTO"
|
|
urspringsSicherheit.gs_posNr = CInt(posGestellung.Rows(0).Item("PosNr"))
|
|
urspringsSicherheit.gs_freitext = RegistriernummerATLAS
|
|
urspringsSicherheit.gs_MRNNr = RegistriernummerATLAS
|
|
|
|
|
|
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True
|
|
gsId = urspringsSicherheit.SAVEOBJECT()
|
|
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
|
|
|
|
If posGestellung.Rows.Count > 1 Then
|
|
For i As Integer = 2 To posGestellung.Rows.Count - 1
|
|
|
|
Dim ANSCHREIBUNG_POS As New cSicherheiten()
|
|
With ANSCHREIBUNG_POS
|
|
|
|
.gs_gsNr = gsId
|
|
.gs_ATBNr = urspringsSicherheit.gs_ATBNr
|
|
.gs_freitext = RegistriernummerATLAS
|
|
.gs_posNr = i
|
|
.gs_datum = gestellungsdatum
|
|
.gs_gsNr = urspringsSicherheit.gs_gsNr
|
|
.gs_warenwert = 0
|
|
.gs_sicherheitsbetrag = 0
|
|
.gs_standort = Standort
|
|
.gs_art = "OPEN"
|
|
.gs_erstellungsdatum = DateTime.Now
|
|
.gs_MRNNr = RegistriernummerATLAS
|
|
.gs_saldo = saldo
|
|
.gs_atr = ""
|
|
.gs_systemuser = urspringsSicherheit.gs_systemuser
|
|
.gs_zollsatz = GesSichRef.gsr_zollsatz
|
|
.gs_avisoId = SND.tblSnd_AvisoID
|
|
.gs_warenort = urspringsSicherheit.gs_warenort
|
|
|
|
End With
|
|
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True
|
|
ANSCHREIBUNG_POS.SAVE()
|
|
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
|
|
Next
|
|
|
|
End If
|
|
End If
|
|
|
|
End If
|
|
End If
|
|
|
|
End If
|
|
|
|
|
|
|
|
|
|
Catch ex As Exception
|
|
|
|
|
|
End Try
|
|
|
|
|
|
End If
|
|
|
|
Anzeige:
|
|
|
|
FORM.addDGVEinarbeitung("VW: Verwahrungsinfo", STATUS.dySt_BezugsNr)
|
|
|
|
End If
|
|
|
|
|
|
Catch ex As Exception
|
|
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
|
readVW_SumAVerwahrungsinfo = ""
|
|
End Try
|
|
End Function
|
|
|
|
Public Shared Function AddNewGesamtSichNr() As Integer
|
|
Dim sqlq As String = "select MAX([gs_gsNr]) as MaxGesSich from tblGesamtsicherheit"
|
|
Dim dt As New DataTable
|
|
dt = SQL.loadDgvBySql(sqlq, "AVISO", 100, True)
|
|
Dim LetzteGesSichNum As Integer = -1
|
|
If (dt.Rows(0).Item(0) IsNot DBNull.Value) Then
|
|
|
|
LetzteGesSichNum = dt.Rows(0).Item(0)
|
|
Return LetzteGesSichNum + 1
|
|
|
|
End If
|
|
|
|
Return 0
|
|
End Function
|
|
|
|
|
|
|
|
Shared Function readEZA_SumAErledigungsinformationVorpapier_005(FORM As frmDYNachrichtenVerarbeitung, d As String, saveAbschreibung As Boolean) As String
|
|
Try
|
|
|
|
Dim EZA As DAKOSY_Worker.SumAErledigungsinformationVorpapier_005.SumAErledigungsinformationVorpapierSIVRPTyp = DAKOSY_Worker.SumAErledigungsinformationVorpapier_005.SumAErledigungsinformationVorpapierSIVRPTyp.LoadFromFile(d)
|
|
Dim ART = ""
|
|
Dim RegistriernummerATLAS = ""
|
|
Dim posErledigung As New DataTable
|
|
' Dim details = ""
|
|
|
|
Dim zp As Object = Nothing
|
|
Dim regNR = ""
|
|
Dim division = ""
|
|
|
|
readEZA_SumAErledigungsinformationVorpapier_005 = ""
|
|
If EZA IsNot Nothing Then
|
|
|
|
If EZA.Transaktion IsNot Nothing Then
|
|
If EZA.Transaktion.IODivision3 IsNot Nothing Then
|
|
division = EZA.Transaktion.IODivision3
|
|
ElseIf EZA.Transaktion.IODivision1 IsNot Nothing Then
|
|
division = EZA.Transaktion.IODivision1
|
|
End If
|
|
End If
|
|
|
|
If EZA.EinzelSumAErledigungsinformation IsNot Nothing Then
|
|
If EZA.EinzelSumAErledigungsinformation.ObjektIdentifizierung IsNot Nothing Then
|
|
If EZA.EinzelSumAErledigungsinformation.ObjektIdentifizierung.ObjektName IsNot Nothing Then
|
|
readEZA_SumAErledigungsinformationVorpapier_005 = EZA.EinzelSumAErledigungsinformation.ObjektIdentifizierung.ObjektName
|
|
End If
|
|
zp = EZA.EinzelSumAErledigungsinformation.ObjektIdentifizierung.ZeitpunktNachrichteneingang
|
|
End If
|
|
If EZA.EinzelSumAErledigungsinformation.KopfDaten IsNot Nothing Then
|
|
If EZA.EinzelSumAErledigungsinformation.KopfDaten.ArtErledigung IsNot Nothing Then
|
|
ART = EZA.EinzelSumAErledigungsinformation.KopfDaten.ArtErledigung
|
|
End If
|
|
If EZA.EinzelSumAErledigungsinformation.KopfDaten.RegNrATLASWeitereNachweise IsNot Nothing Then
|
|
regNR = EZA.EinzelSumAErledigungsinformation.KopfDaten.RegNrATLASWeitereNachweise
|
|
End If
|
|
End If
|
|
|
|
If EZA.EinzelSumAErledigungsinformation.Position IsNot Nothing Then
|
|
|
|
For Each POS In EZA.EinzelSumAErledigungsinformation.Position
|
|
If POS.LaufendeNummer IsNot Nothing AndAlso posErledigung IsNot Nothing Then
|
|
If Not posErledigung.Columns.Contains("LaufendeNummer") Then
|
|
posErledigung.Columns.Add("LaufendeNummer", GetType(String))
|
|
posErledigung.Columns.Add("IDRegNrSumA", GetType(String))
|
|
posErledigung.Columns.Add("IDRegNrSumAPos", GetType(String))
|
|
posErledigung.Columns.Add("StornierungKz", GetType(String))
|
|
posErledigung.Columns.Add("StueckzahlErledigte", GetType(String))
|
|
End If
|
|
|
|
Dim ro As DataRow = posErledigung.NewRow
|
|
ro("LaufendeNummer") = POS.LaufendeNummer
|
|
ro("IDRegNrSumA") = POS.IDRegNrSumA
|
|
ro("IDRegNrSumAPos") = POS.IDRegNrSumAPos
|
|
ro("StornierungKz") = POS.StornierungKz
|
|
ro("StueckzahlErledigte") = POS.StueckzahlErledigte
|
|
posErledigung.Rows.Add(ro)
|
|
End If
|
|
|
|
|
|
|
|
Next
|
|
|
|
|
|
End If
|
|
|
|
End If
|
|
End If
|
|
' EZA.LOADByBezugsNr(bezugsNr, False) ' Falls schon ein DS mit dieser Bezugsnummer vorhanden ist.
|
|
|
|
|
|
|
|
If readEZA_SumAErledigungsinformationVorpapier_005 <> "" Then 'BEZUGSNR vorhanden
|
|
Dim STATUS As DAKOSY_Worker.cDakosy_Statusmeldungen = FORM.getStatusCheckTransID(EZA.Transaktion.IOReferenz, EZA.Transaktion.IODatumZeit)
|
|
STATUS.dySt_BezugsNr = readEZA_SumAErledigungsinformationVorpapier_005
|
|
STATUS.dySt_artMitteilung = "VW_EVP"
|
|
STATUS.dySt_dyArt = "VW" '"EZA" 'T1/T2
|
|
|
|
STATUS.dySt_status = DAKOSY_Worker.cDY_Statusliste.V_60
|
|
STATUS.dySt_ergZeitpunkt = zp
|
|
|
|
|
|
' STATUS.dySt_ergDetails = details
|
|
'EINTRAG IN tblDakosy_Zollanmeldungen
|
|
Dim DY_TMP As DAKOSY_Worker.cDakosy_Zollanmeldungen = FORM.saveDY_ZA(STATUS, EZA.Transaktion.IOReferenz, If(zp, EZA.Transaktion.IODatumZeit), "EZA")
|
|
'Dim EZA_TMP As DAKOSY_Worker.cDakosyEZA
|
|
|
|
''???????? REGNR
|
|
'If regNR <> "" Then
|
|
' STATUS.dySt_ergCode = "REGNr"
|
|
' STATUS.dySt_ergMitteilung = regNR
|
|
' EZA_TMP = FORM.saveDY_EZA(STATUS, DY_TMP, EZA.Transaktion.IOReferenz, If(zp, EZA.Transaktion.IODatumZeit), regNR)
|
|
'Else
|
|
' STATUS.dySt_ergCode = "ART"
|
|
' If ART <> "" Then STATUS.dySt_ergMitteilung = ART
|
|
' EZA_TMP = FORM.saveDY_EZA(STATUS, DY_TMP, EZA.Transaktion.IOReferenz, If(zp, EZA.Transaktion.IODatumZeit))
|
|
'End If
|
|
|
|
'FORM.SaveEZA_FirmaNL(EZA_TMP, DY_TMP, division)
|
|
|
|
If DY_TMP IsNot Nothing Then STATUS.dySt_dyId = DY_TMP.dy_Id
|
|
STATUS.SAVE()
|
|
|
|
'----------------------------------------------------------------
|
|
|
|
'Verwahrung ABSCHREIBUNG - rechte Seite bei Gesamtsicherheiten
|
|
|
|
If saveAbschreibung Then
|
|
|
|
If posErledigung IsNot Nothing AndAlso posErledigung.Rows.Count > 0 Then
|
|
|
|
If regNR <> "" Then
|
|
|
|
Dim dtGesamtsicherheit = SQL.loadDgvBySql("Select * From [tblGesamtsicherheit] where [gs_MRNNr] = '" & regNR & "' or [gs_ATBNr]= '" & regNR & "'", "AVISO")
|
|
|
|
If dtGesamtsicherheit.Rows.Count > 0 Then
|
|
|
|
For Each POS As DataRow In posErledigung.Rows
|
|
|
|
Dim MRNNR As String = ""
|
|
Dim existingEntryID As Integer = 0
|
|
|
|
|
|
If Not IsDBNull(POS.Item("IDRegNrSumA")) AndAlso POS.Item("IDRegNrSumA") IsNot Nothing AndAlso POS.Item("IDRegNrSumA") <> "" Then
|
|
|
|
Dim POSNr As Integer = CInt(POS.Item("IDRegNrSumAPos"))
|
|
|
|
If MRNNR <> POS.Item("IDRegNrSumA") Then
|
|
MRNNR = POS.Item("IDRegNrSumA")
|
|
|
|
Dim firmaID = -1
|
|
|
|
'Select Case dtGesamtsicherheit.Rows(0).Item("gs_standort")
|
|
|
|
' Case "VERAG GmbH"
|
|
' firmaID = 23
|
|
' Case "Verag AG"
|
|
' firmaId = 1
|
|
' Case "Unisped GmbH"
|
|
' firmaId = 21
|
|
' Case "AMBAR GmbH"
|
|
' firmaId = 24
|
|
' Case "Verag CS"
|
|
' firmaId = 11
|
|
' Case "IMEX"
|
|
' firmaId = 20
|
|
|
|
|
|
'End Select
|
|
|
|
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True
|
|
|
|
Dim GesSichRef = New VERAG_PROG_ALLGEMEIN.cGesamtsicherheitsReferenz(dtGesamtsicherheit.Rows(0).Item("gs_standort"))
|
|
Dim saldo As Double = GesSichRef.CalcSaldo()
|
|
|
|
Try
|
|
|
|
'innerhalb der gs_gsnr muss mithilfe der gs_gsid die richtige PosNr ermittelt werden!
|
|
|
|
Dim Warenwert As Double = 0
|
|
|
|
Dim dtSendungen = SQL.loadDgvBySql("SELECT")
|
|
|
|
Dim SicherheitsPos As New cGesamtsicherheitsPositionen()
|
|
With SicherheitsPos
|
|
.gsp_gsId = dtGesamtsicherheit.Rows(0).Item("gs_gsId")
|
|
'.gsp_gspPosId = CInt(POSNr)
|
|
.gsp_gspPosId = dtGesamtsicherheit.Rows(0).Item("gs_posNr")
|
|
.gsp_warenwert = 0
|
|
.gsp_sicherheitsbetrag = 0
|
|
.gsp_freitext = "DASKOY-IMPORT"
|
|
.gsp_filialenNr = dtGesamtsicherheit.Rows(0).Item("gs_filialenNr")
|
|
.gsp_art = "CLOSE"
|
|
.gsp_gsNr = dtGesamtsicherheit.Rows(0).Item("gs_gsnr")
|
|
.gsp_abfertigungsNr = dtGesamtsicherheit.Rows(0).Item("gs_abfertigungsnr")
|
|
.gsp_datum = DateTime.Now
|
|
.gsp_erstellungsdatum = DateTime.Now
|
|
.gsp_ust = dtGesamtsicherheit.Rows(0).Item("gs_ust")
|
|
.gsp_ATCNr = POS.Item("IDRegNrSumA")
|
|
.gsp_avisoId = dtGesamtsicherheit.Rows(0).Item("gs_avisoID")
|
|
.gsp_systemuser = "DAKOSY-AUTO"
|
|
End With
|
|
|
|
|
|
SicherheitsPos.SAVE()
|
|
|
|
GesSichRef.CalcSaldo()
|
|
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
|
|
|
|
Catch ex As Exception
|
|
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
|
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
|
|
End Try
|
|
|
|
|
|
|
|
|
|
|
|
End If
|
|
|
|
|
|
End If
|
|
|
|
Next
|
|
|
|
|
|
End If
|
|
|
|
|
|
End If
|
|
|
|
|
|
End If
|
|
|
|
Anzeige:
|
|
|
|
FORM.addDGVEinarbeitung("VW: Erledigungsinformation-Vorpapier", STATUS.dySt_BezugsNr)
|
|
End If
|
|
|
|
End If
|
|
|
|
|
|
Catch ex As Exception
|
|
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
|
readEZA_SumAErledigungsinformationVorpapier_005 = ""
|
|
End Try
|
|
End Function
|
|
|
|
Shared Function readEZA_SumAErledigungsinformationCDXWare007(FORM As frmDYNachrichtenVerarbeitung, d As String, saveAbschreibung As Boolean) As String
|
|
Try
|
|
|
|
Dim EZA As DAKOSY_Worker.SumAErledigungsinformationCDXWare_007.SumAErledigungsinformationCDXWareSCTyp = DAKOSY_Worker.SumAErledigungsinformationCDXWare_007.SumAErledigungsinformationCDXWareSCTyp.LoadFromFile(d)
|
|
Dim ART = ""
|
|
' Dim details = ""
|
|
|
|
Dim zp As Object = Nothing
|
|
Dim regNR = ""
|
|
Dim division = ""
|
|
|
|
readEZA_SumAErledigungsinformationCDXWare007 = ""
|
|
If EZA IsNot Nothing Then
|
|
|
|
If EZA.Transaktion IsNot Nothing Then
|
|
If EZA.Transaktion.IODivision3 IsNot Nothing Then
|
|
division = EZA.Transaktion.IODivision3
|
|
ElseIf EZA.Transaktion.IODivision1 IsNot Nothing Then
|
|
division = EZA.Transaktion.IODivision1
|
|
End If
|
|
End If
|
|
|
|
If EZA.EinzelSumAErledigungsinformationCDXWare IsNot Nothing Then
|
|
If EZA.EinzelSumAErledigungsinformationCDXWare.ObjektIdentifizierung IsNot Nothing Then
|
|
If EZA.EinzelSumAErledigungsinformationCDXWare.ObjektIdentifizierung.ObjektName IsNot Nothing Then
|
|
readEZA_SumAErledigungsinformationCDXWare007 = EZA.EinzelSumAErledigungsinformationCDXWare.ObjektIdentifizierung.ObjektName
|
|
End If
|
|
zp = EZA.EinzelSumAErledigungsinformationCDXWare.ObjektIdentifizierung.ZeitpunktNachrichteneingang
|
|
End If
|
|
If EZA.EinzelSumAErledigungsinformationCDXWare.KopfDaten IsNot Nothing Then
|
|
|
|
If EZA.EinzelSumAErledigungsinformationCDXWare.KopfDaten.RegNrATLAS IsNot Nothing Then
|
|
regNR = EZA.EinzelSumAErledigungsinformationCDXWare.KopfDaten.RegNrATLAS
|
|
End If
|
|
End If
|
|
End If
|
|
End If
|
|
' EZA.LOADByBezugsNr(bezugsNr, False) ' Falls schon ein DS mit dieser Bezugsnummer vorhanden ist.
|
|
|
|
If readEZA_SumAErledigungsinformationCDXWare007 <> "" Then 'BEZUGSNR vorhanden
|
|
Dim STATUS As DAKOSY_Worker.cDakosy_Statusmeldungen = FORM.getStatusCheckTransID(EZA.Transaktion.IOReferenz, EZA.Transaktion.IODatumZeit)
|
|
STATUS.dySt_BezugsNr = readEZA_SumAErledigungsinformationCDXWare007
|
|
STATUS.dySt_artMitteilung = "VW_EVP_CDX"
|
|
STATUS.dySt_dyArt = "VW" '"EZA" 'T1/T2
|
|
|
|
STATUS.dySt_status = DAKOSY_Worker.cDY_Statusliste.V_60 '???
|
|
STATUS.dySt_ergZeitpunkt = zp
|
|
|
|
|
|
' STATUS.dySt_ergDetails = details
|
|
'EINTRAG IN tblDakosy_Zollanmeldungen
|
|
Dim DY_TMP As DAKOSY_Worker.cDakosy_Zollanmeldungen = FORM.saveDY_ZA(STATUS, EZA.Transaktion.IOReferenz, If(zp, EZA.Transaktion.IODatumZeit), "EZA")
|
|
|
|
If DY_TMP IsNot Nothing Then STATUS.dySt_dyId = DY_TMP.dy_Id
|
|
STATUS.SAVE()
|
|
|
|
|
|
|
|
'----------------------------------------------------------------
|
|
|
|
|
|
'Verwahrung ABSCHREIBUNG
|
|
|
|
If saveAbschreibung Then
|
|
|
|
Try
|
|
|
|
|
|
|
|
Catch ex As Exception
|
|
|
|
' VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
|
|
End Try
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
End If
|
|
|
|
|
|
'----------------------------------------------------------------
|
|
|
|
FORM.addDGVEinarbeitung("VW: Erledigungsinformation-Vorpapier CDX", STATUS.dySt_BezugsNr)
|
|
End If
|
|
Catch ex As Exception
|
|
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
|
readEZA_SumAErledigungsinformationCDXWare007 = ""
|
|
End Try
|
|
End Function
|
|
|
|
|
|
End Class
|