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 Imports iTextSharp.text.pdf 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) 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 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 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" 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() '---------------------------------------------------------------- 'VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True Try '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 ' 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 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 Shared Function readEZA_SumAErledigungsinformationVorpapier_005(FORM As frmDYNachrichtenVerarbeitung, d As String) As String Try Dim EZA As DAKOSY_Worker.SumAErledigungsinformationVorpapier_005.SumAErledigungsinformationVorpapierSIVRPTyp = DAKOSY_Worker.SumAErledigungsinformationVorpapier_005.SumAErledigungsinformationVorpapierSIVRPTyp.LoadFromFile(d) Dim ART = "" ' 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 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 '---------------------------------------------------------------- FORM.addDGVEinarbeitung("VW: Erledigungsinformation-Vorpapier", 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_SumAErledigungsinformationVorpapier_005 = "" End Try End Function Shared Function readEZA_SumAErledigungsinformationCDXWare007(FORM As frmDYNachrichtenVerarbeitung, d As String) 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 '---------------------------------------------------------------- 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