SDL/SDL/DAKOSY/frmZollanmeldung.vb

Public Class frmZollanmeldung

    Dim ART As String = ""
    Dim AVISO As VERAG_PROG_ALLGEMEIN.caviso
    Dim SENDUNG As VERAG_PROG_ALLGEMEIN.cSendungen
    Dim FilialenNr As Integer
    Dim AbfertigungsNr As Integer
    Dim JAHR As Integer = Now.ToString("yy")

    Public isSTAMMREF As Boolean = False
    Public STAMMREF As String = ""
    Public CopyFromZA_Id As Integer = -1
    '  Dim NCTS As DAKOSY_Worker.cDakosyNCTSOut = Nothing
    '   Dim AES As DAKOSY_Worker.cDakosyAES = Nothing

    Dim FIRMA_DY = ""

    Dim DY As DAKOSY_Worker.cDakosy_Zollanmeldungen = Nothing


    Sub New(ART As String, DY As DAKOSY_Worker.cDakosy_Zollanmeldungen) ', JAHR As Integer) ', Optional ZA = Nothing)

        ' Dieser Aufruf ist für den Designer erforderlich.
        InitializeComponent()
        ' If DY Is Nothing Then DY = New DAKOSY_Worker.cDakosy_Zollanmeldungen

        Me.DY = DY
        If DY.dy_AvisoId IsNot Nothing AndAlso DY.dy_AvisoId > 0 Then
            Dim AV As New VERAG_PROG_ALLGEMEIN.cavisoDAL
            Me.AVISO = AV.LesenAviso(DY.dy_AvisoId, "")
        End If
        Me.ART = ART
        If DY.dy_SendungsId IsNot Nothing AndAlso DY.dy_SendungsId > 0 Then
            Me.SENDUNG = New VERAG_PROG_ALLGEMEIN.cSendungen(DY.dy_SendungsId)
            Me.FilialenNr = SENDUNG.FilialenNr
            Me.AbfertigungsNr = SENDUNG.AbfertigungsNr
        End If
        Me.JAHR = JAHR

    End Sub

    Sub New(ART As String, DY As DAKOSY_Worker.cDakosy_Zollanmeldungen, AVISO As VERAG_PROG_ALLGEMEIN.caviso, SENDUNG As VERAG_PROG_ALLGEMEIN.cSendungen, JAHR As Integer) ', Optional ZA = Nothing)

        ' Dieser Aufruf ist für den Designer erforderlich.
        InitializeComponent()
        '  If DY Is Nothing Then DY = New DAKOSY_Worker.cDakosy_Zollanmeldungen

        Me.DY = DY
        Me.AVISO = AVISO
        Me.ART = ART
        Me.SENDUNG = SENDUNG
        Me.JAHR = JAHR

        If SENDUNG IsNot Nothing Then
            Me.FilialenNr = SENDUNG.FilialenNr
            Me.AbfertigungsNr = SENDUNG.AbfertigungsNr
        End If
        ' If ZA IsNot Nothing Then
        'Select Case ZA.GetType.ToString
        '     Case GetType(DAKOSY_Worker.cDakosyNCTSOut).ToString : NCTS = ZA
        '      Case GetType(DAKOSY_Worker.cDakosyAES).ToString : AES = ZA
        '  End Select
        '   End If


        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.

    End Sub


    Private Sub frmZollanmeldung_Load(sender As Object, e As EventArgs) Handles Me.Load
        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("AVISO_IMEX", "AVISO") And FilialenNr = 5501 Then
            FIRMA_DY = "IMEX"
        Else
            If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "FRONTOFFICE" Then

                If DY Is Nothing Then
                    '       '  FIRMA_DY = DY.
                    '   Else

                    Dim f As New frmDakosy_SelFirma
                    If f.ShowDialog(Me) = DialogResult.OK Then
                        FIRMA_DY = f.FIMRA_DY
                    Else
                        Me.Close()
                    End If
                End If
            End If
        End If

        Select Case ART
            Case "T1", "T2", "NCTS", "ÜT"
                '   DY.dy_ART = ART
                '  Sub New(DY_ANM As cDakosy_Zollanmeldungen, AVISO As VERAG_PROG_ALLGEMEIN.caviso, SENDUNG As VERAG_PROG_ALLGEMEIN.cSendungen, Jahr2Stellig As Integer, Optional zusatz As String = "")
                'Dim usrcntl As New usrCntlATLAS_NCTS(DY, AVISO, SENDUNG, JAHR, , isSTAMMREF, STAMMREF)

                If ART = "ÜT" Then
                    ART = "T1"
                    isSTAMMREF = False
                    STAMMREF = "" '??????????????????????????????
                End If

                If Me.DY Is Nothing Then
                    Dim usrcntl As New usrCntlATLAS_NCTS(ART, AVISO, SENDUNG, JAHR, , isSTAMMREF, STAMMREF, FIRMA_DY)
                    usrcntl.Dock = DockStyle.Fill
                    Me.pnl.Controls.Add(usrcntl)

                Else
                    Dim usrcntl As New usrCntlATLAS_NCTS(DY, AVISO, SENDUNG, JAHR, , isSTAMMREF, STAMMREF)
                    usrcntl.Dock = DockStyle.Fill
                    Me.pnl.Controls.Add(usrcntl)

                End If



            Case "AES", "EX", "EU", "CO"

                If Me.DY Is Nothing Then
                    Dim usrcntl As New usrCntlATLAS_AES(ART, AVISO, SENDUNG, JAHR, , isSTAMMREF, STAMMREF)
                    usrcntl.Dock = DockStyle.Fill
                    Me.pnl.Controls.Add(usrcntl)

                Else
                    Dim usrcntl As New usrCntlATLAS_AES(DY, AVISO, SENDUNG, JAHR, , isSTAMMREF, STAMMREF)
                    usrcntl.Dock = DockStyle.Fill
                    Me.pnl.Controls.Add(usrcntl)

                End If

            Case "EZA", "VZA"

                If Me.DY Is Nothing Then
                    Dim usrcntl As New usrCntlATLAS_EZA(ART, AVISO, SENDUNG, JAHR, , isSTAMMREF, STAMMREF, FIRMA_DY)
                    usrcntl.Dock = DockStyle.Fill
                    Me.pnl.Controls.Add(usrcntl)

                Else
                    Dim usrcntl As New usrCntlATLAS_EZA(DY, AVISO, SENDUNG, JAHR, , isSTAMMREF, STAMMREF)
                    usrcntl.Dock = DockStyle.Fill
                    Me.pnl.Controls.Add(usrcntl)

                End If

        End Select
    End Sub



    Shared Sub setZollstelle(ByRef zst As String, AVISO As VERAG_PROG_ALLGEMEIN.cAviso)
        Try
            If AVISO Is Nothing Then Exit Sub
            If AVISO.Grenzstelle.Replace("???", "") = "" Then
                zst = AVISO.Zollstelle
            Else
                Select Case AVISO.Grenzstelle
                    Case "SUB" : zst = "DE007701"'Suben Autobahngrenze
                    Case "SBG" : zst = "DE007458" 'Bad Reichenhall-Autobahn
                    Case "WAI" : zst = "DE008904" 'Weiden-Waidhaus
                    Case "NEU" : zst = "DE007703" 'Passau
                        ' Case "SFD" : zst = Asd ....DAKOS DE -.-
                End Select
            End If
        Catch ex As Exception
            MsgBox(ex.Message & ex.StackTrace)
        End Try
    End Sub

End Class