ADMIN/initATLASAufschubkonten/cWorker_Verwahrung.vb

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