IDS, Fix zzAktivitaet, etc.
This commit is contained in:
@@ -1,6 +1,8 @@
|
||||
Imports System.Globalization
|
||||
Imports System.IO
|
||||
Imports System.Xml
|
||||
Imports com.sun.org.apache.xpath.internal.operations
|
||||
Imports com.sun.tools.doclets.internal.toolkit.util
|
||||
Imports DAKOSY_Worker
|
||||
Imports DocumentFormat.OpenXml
|
||||
Imports DocumentFormat.OpenXml.Spreadsheet
|
||||
@@ -17,56 +19,137 @@ Public Class cWorker_Verwahrung
|
||||
Shared Function readVW_SumAVerwahrungsinfo(FORM As frmDYNachrichtenVerarbeitung, d As String) As String
|
||||
Try
|
||||
|
||||
Dim NCTS As DAKOSY_Worker.ErledigungsmeldungNCTSDE.ErledigungsmeldungMOTyp = DAKOSY_Worker.ErledigungsmeldungNCTSDE.ErledigungsmeldungMOTyp.LoadFromFile(d)
|
||||
Dim MRN = ""
|
||||
Dim tstmp As Object = Nothing
|
||||
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
|
||||
readVW_SumAVerwahrungsinfo = ""
|
||||
If NCTS IsNot Nothing Then
|
||||
If NCTS.EinzelErledigungsmeldung IsNot Nothing Then
|
||||
If NCTS.EinzelErledigungsmeldung.ObjektIdentifizierung IsNot Nothing Then
|
||||
If NCTS.EinzelErledigungsmeldung.ObjektIdentifizierung.ObjektName IsNot Nothing Then
|
||||
readVW_SumAVerwahrungsinfo = NCTS.EinzelErledigungsmeldung.ObjektIdentifizierung.ObjektName
|
||||
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 NCTS.EinzelErledigungsmeldung.KopfDaten IsNot Nothing Then
|
||||
If NCTS.EinzelErledigungsmeldung.KopfDaten.MRN IsNot Nothing Then
|
||||
MRN = NCTS.EinzelErledigungsmeldung.KopfDaten.MRN
|
||||
If VWI.EinzelSumAVerwahrungsinfo.KopfDaten IsNot Nothing Then
|
||||
If VWI.EinzelSumAVerwahrungsinfo.KopfDaten.Vorpapiernummer IsNot Nothing Then
|
||||
Vorpapiernummer = VWI.EinzelSumAVerwahrungsinfo.KopfDaten.Vorpapiernummer
|
||||
End If
|
||||
If NCTS.EinzelErledigungsmeldung.KopfDaten.ZeitpunktErledigung > "01.01.2000" Then
|
||||
tstmp = NCTS.EinzelErledigungsmeldung.KopfDaten.ZeitpunktErledigung
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
|
||||
If readVW_SumAVerwahrungsinfo <> "" And MRN <> "" Then 'BEZUGSNR vorhanden
|
||||
Dim STATUS As DAKOSY_Worker.cDakosy_Statusmeldungen = FORM.getStatusCheckTransID(NCTS.Transaktion.IOReferenz, NCTS.Transaktion.IODatumZeit)
|
||||
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 Then
|
||||
|
||||
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" '"NCTS" 'T1/T2
|
||||
STATUS.dySt_dyArt = "VW"
|
||||
|
||||
STATUS.dySt_status = DAKOSY_Worker.cDY_Statusliste.V_50
|
||||
STATUS.dySt_ergCode = "TSTMP"
|
||||
STATUS.dySt_ergCode = "GSTDATUM"
|
||||
STATUS.dySt_ergMitteilung = ""
|
||||
If tstmp IsNot Nothing Then STATUS.dySt_ergZeitpunkt = tstmp
|
||||
If gestellungsdatum IsNot Nothing Then STATUS.dySt_ergZeitpunkt = gestellungsdatum
|
||||
|
||||
STATUS.SAVE()
|
||||
|
||||
|
||||
'----------------------------------------------------------------
|
||||
'VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True
|
||||
|
||||
Try
|
||||
|
||||
|
||||
'Verwahrung ANSCHREIBUNG
|
||||
'Dim ANSCHREIBUNG As New cSicherheiten()
|
||||
|
||||
'With ANSCHREIBUNG
|
||||
'Dim Standort As String = ""
|
||||
'If MRN.Length > 4 Then
|
||||
' Select Case MRN.Substring(0, 4)
|
||||
' Case 4803, 4809
|
||||
' Standort = "VERAG AG"
|
||||
' Case 5601
|
||||
' Standort = "Unisped GmbH"
|
||||
' Case 5701
|
||||
' Standort = "AMBAR"
|
||||
' Case 4810,
|
||||
' Standort = "VERAG GmbH"
|
||||
' Case 5103
|
||||
' Standort = "VERAG CS"
|
||||
' Case 5501
|
||||
' Standort = "IMEX"
|
||||
|
||||
' End Select
|
||||
|
||||
'End With
|
||||
' Dim GesSichRef = New VERAG_PROG_ALLGEMEIN.cGesamtsicherheitsReferenz(Standort)
|
||||
|
||||
' 'For Each pos In NCTS.EinzelErledigungsmeldung.Position
|
||||
|
||||
'----------------------------------------------------------------
|
||||
' Dim saldo = GesSichRef.CalcSaldo()
|
||||
' Dim filiale
|
||||
' Dim abfertigungsnummer
|
||||
' Dim dy_SendungsId = VWI.Transaktion.IOReferenz
|
||||
' If dy_SendungsId IsNot Nothing AndAlso IsNumeric(dy_SendungsId) Then
|
||||
' Dim SND As New VERAG_PROG_ALLGEMEIN.cSendungen(dy_SendungsId)
|
||||
' If SND IsNot Nothing Then
|
||||
' If SND.FilialenNr > 0 Then filiale = SND.FilialenNr
|
||||
' If SND.AbfertigungsNr > 0 Then abfertigungsnummer = SND.AbfertigungsNr
|
||||
|
||||
' 'Verwahrung ANSCHREIBUNG
|
||||
' Dim ANSCHREIBUNG As New cSicherheiten()
|
||||
|
||||
' With ANSCHREIBUNG
|
||||
' .gs_ATBNr = Vorpapiernummer
|
||||
' .gs_posNr = 1
|
||||
' .gs_datum = gestellungsdatum
|
||||
' .gs_warenwert = SND.tblSnd_Warenwert
|
||||
' .gs_sicherheitsbetrag = (SND.tblSnd_Warenwert * (GesSichRef.gsr_zollsatz / 100))
|
||||
' .gs_standort = Standort
|
||||
' .gs_art = "OPEN"
|
||||
' '.gs_gsNr = ANSCHREIBUNG.gessicherheitID
|
||||
' .gs_erstellungsdatum = Now()
|
||||
' .gs_freitext = ""
|
||||
' .gs_saldo = GesSichRef.gsr_Saldo
|
||||
' .gs_atr = ""
|
||||
' .gs_filialenNr = filiale
|
||||
' .gs_abfertigungsnr = abfertigungsnummer
|
||||
' '.gs_LKWKZ = SND.tblSnd_id
|
||||
' '.gs_warenort = gessich.warenortID
|
||||
|
||||
' End With
|
||||
|
||||
' End If
|
||||
' End If
|
||||
'End If
|
||||
|
||||
'----------------------------------------------------------------
|
||||
|
||||
Catch ex As Exception
|
||||
|
||||
'VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
|
||||
End Try
|
||||
|
||||
'VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
|
||||
|
||||
FORM.addDGVEinarbeitung("VW: Verwahrungsinfo", STATUS.dySt_BezugsNr)
|
||||
End If
|
||||
|
||||
Reference in New Issue
Block a user