
Imports System.Drawing

Public Class cDY_Statusliste

    Shared Property S_00 As Integer = 0 'Status ungültig
    Shared Property S_01 As Integer = 1 'Anlage
    Shared Property S_02 As Integer = 2 ' Sendebereit
    Shared Property S_03 As Integer = 3 ' An Dakosy gesendet
    Shared Property S_04 As Integer = 4 ' Dakosy OK
    Shared Property S_05 As Integer = 5 ' Dakosy an Zoll gesendet
    ' Shared Property S_06 As Integer = 6
    Shared Property S_07 As Integer = 7 ' Zoll OK


    Shared Property S_08 As Integer = 8 ' Validierungsfehler   Dakosy 
    Shared Property S_09 As Integer = 9 ' Sendefehler an Dakosy 

    Shared Property S_10 As Integer = 10 ' Vorankündigung entgegengenommen
    Shared Property S_11 As Integer = 11 ' Anmeldung entgegengenommen, Antrag nach §12(4) AWV abgelehnt
    Shared Property S_12 As Integer = 12 ' Anmeldung entgegengenommen

    Shared Property S_13 As Integer = 13 ' Anm. nicht angenommen
    Shared Property S_14 As Integer = 14 ' Anm.  angenommen
    Shared Property S_15 As Integer = 15 ' Ungültigkeit Sicherheit
    Shared Property S_16 As Integer = 16 ' Anm.  angenommen + in Überprüfung bei zust. Zollstelle
    Shared Property S_17 As Integer = 17 ' Anm. angenommen, ergänzende oder vollständige Anmeldung liegt vor
    Shared Property S_18 As Integer = 18 ' Vorankündigung abgewiesen
    Shared Property S_31 As Integer = 31 ' Vorgang überlassen

    Shared Property S_32 As Integer = 32 ' Ausgang ganz oder teilweise bestätigt, ergänzende Anmeldung wird erwartet
    Shared Property S_33 As Integer = 33 ' Ausgang ganz oder teilweise bestätigt, ergänzende oder vollständige Anmeldung liegt vor
    Shared Property S_35 As Integer = 35 ' Vorgang erledigt
    Shared Property S_36 As Integer = 36 ' Ausgang untersagt

    Shared Property S_37 As Integer = 37 ' Vorgang in Weiterverarb. außerhalb ATLAS
    Shared Property S_38 As Integer = 38 ' Vorgang storniert
    Shared Property S_39 As Integer = 39 ' Vorgang unter Klärung

    Shared Property S_20 As Integer = 20 ' Sendebestätigung
    Shared Property S_30 As Integer = 30 ' Zustellquittung Zoll

    Shared Property S_40 As Integer = 40 ' XX_GENERELLE Rückmeldung
    Shared Property S_41 As Integer = 41 ' ARN vergeben
    Shared Property S_42 As Integer = 42 ' ERledigung Vorpapier??
    Shared Property S_50 As Integer = 50 ' Überlassungsmeldung
    Shared Property S_51 As Integer = 51 ' Überlassungsmeldung 2 ?

    Shared Property S_53 As Integer = 53 'Antrag an Bestimmungszollstelle registriert / Sicherheit wird freigegeben
    Shared Property S_55 As Integer = 55 'nicht abschleißender Bescheid
    Shared Property S_56 As Integer = 56 'Nicht abschliessende Festsetzung
    Shared Property S_57 As Integer = 57 'Storno Abgaben

    Shared Property S_60 As Integer = 60 'Erledigungsmeldung
    Shared Property S_61 As Integer = 61 'Erledigung außerhalb d. SB
    Shared Property S_68 As Integer = 68 'Abgabe HZS
    Shared Property S_69 As Integer = 69 'ungültig
    Shared Property S_65 As Integer = 65 'Antrag abgelehnt
    Shared Property S_80 As Integer = 80 'Antrag storniert / ungültig
    Shared Property S_90 As Integer = 90 'Zollfehler
    Shared Property S_98 As Integer = 98 ' Dakosy Fehlermeldung
    Shared Property S_99 As Integer = 99 ' ERR

    Shared Property V_50 As Integer = 150 ' Verwahrung
    Shared Property V_60 As Integer = 160 ' Verwahrung Erldigung


    Shared Function getTxtByCode2(statusCode As String, art As String, Optional ByRef statusText As String = "", Optional ByRef bgColor As Object = Nothing, Optional withCode As Boolean = True, Optional ByRef bgForeColor As Object = Nothing)
        bgForeColor = Color.Black
        Select Case art
            Case "NCTS", "T1", "T2"
                Select Case statusCode
                    Case 0 : statusText = If(withCode, statusCode & " - ", "") & "ungültig" : If bgColor IsNot Nothing Then bgColor = Color.Yellow
                    Case 1 : statusText = If(withCode, statusCode & " - ", "") & "Anlage" : If bgColor IsNot Nothing Then bgColor = Color.Yellow
                    Case 2 : statusText = If(withCode, statusCode & " - ", "") & "Sendebereit" : If bgColor IsNot Nothing Then bgColor = Color.Yellow
                    Case 3 : statusText = If(withCode, statusCode & " - ", "") & "An Dakosy gesendet" : If bgColor IsNot Nothing Then bgColor = Color.LightBlue
                    Case 4 : statusText = If(withCode, statusCode & " - ", "") & "Dakosy OK" : If bgColor IsNot Nothing Then bgColor = Color.LightGreen
                    Case 5 : statusText = If(withCode, statusCode & " - ", "") & "Dakosy an Zoll gesendet" : If bgColor IsNot Nothing Then bgColor = Color.LightGreen
                    Case 7 : statusText = If(withCode, statusCode & " - ", "") & "Zoll OK" : If bgColor IsNot Nothing Then bgColor = Color.LightGreen
                    Case 9 : statusText = If(withCode, statusCode & " - ", "") & "Sendefehler an Dakosy" : If bgColor IsNot Nothing Then bgColor = Color.LightGreen

                    Case 13 : statusText = If(withCode, statusCode & " - ", "") & "Anm. nicht angenommen" : If bgColor IsNot Nothing Then bgColor = Color.Red
                    Case 14 : statusText = If(withCode, statusCode & " - ", "") & "Anm.  angenommen" : If bgColor IsNot Nothing Then bgColor = Color.LightGreen
                    Case 15 : statusText = If(withCode, statusCode & " - ", "") & "Ungültigkeit Sicherheit" : If bgColor IsNot Nothing Then bgColor = Color.Red
                    Case 16 : statusText = If(withCode, statusCode & " - ", "") & "Angenommen, Überprüfung bei zust. Zollstelle" : If bgColor IsNot Nothing Then bgColor = Color.Yellow
                    Case 17 : statusText = If(withCode, statusCode & " - ", "") & "Anm. angenommen, ergänzende oder vollständige Anmeldung liegt vor" : If bgColor IsNot Nothing Then bgColor = Color.Red
                    Case 18 : statusText = If(withCode, statusCode & " - ", "") & "Vorankündigung abgewiesen" : If bgColor IsNot Nothing Then bgColor = Color.Red
                    Case 31 : statusText = If(withCode, statusCode & " - ", "") & "Vorgang überlassen" : If bgColor IsNot Nothing Then bgColor = Color.LightGreen
                    Case 37 : statusText = If(withCode, statusCode & " - ", "") & "Vorgang in Weiterverarb. außerhalb ATLAS" : If bgColor IsNot Nothing Then bgColor = Color.Yellow
                    Case 38 : statusText = If(withCode, statusCode & " - ", "") & "Vorgang storniert" : If bgColor IsNot Nothing Then bgColor = Color.Red
                    Case 39 : statusText = If(withCode, statusCode & " - ", "") & "Vorgang unter Klärung" : If bgColor IsNot Nothing Then bgColor = Color.IndianRed
                    Case 20 : statusText = If(withCode, statusCode & " - ", "") & "Sendebestätigung" : If bgColor IsNot Nothing Then bgColor = Color.LightGreen
                    Case 30 : statusText = If(withCode, statusCode & " - ", "") & "Zustellquittung Zoll" : If bgColor IsNot Nothing Then bgColor = Color.LightGreen

                    Case 41 : statusText = If(withCode, statusCode & " - ", "") & "ARN vergeben" : If bgColor IsNot Nothing Then bgColor = Color.LightGreen

                    Case 50 : statusText = If(withCode, statusCode & " - ", "") & "Überlassungsmeldung" : If bgColor IsNot Nothing Then bgColor = Color.LightGreen
                    Case 51 : statusText = If(withCode, statusCode & " - ", "") & "Überlassungsmeldung" : If bgColor IsNot Nothing Then bgColor = Color.LightGreen
                    Case 53 : statusText = If(withCode, statusCode & " - ", "") & "Freigabe Sicherheit" : If bgColor IsNot Nothing Then bgColor = Color.LightGreen
                    Case 60 : statusText = If(withCode, statusCode & " - ", "") & "Erledigungsmeldung" : If bgColor IsNot Nothing Then bgColor = Color.Green : bgForeColor = Color.White
                    Case 65 : statusText = If(withCode, statusCode & " - ", "") & "Antrag abgelehnt" : If bgColor IsNot Nothing Then bgColor = Color.Red
                    Case 80 : statusText = If(withCode, statusCode & " - ", "") & "Antrag storniert / ungültig" : If bgColor IsNot Nothing Then bgColor = Color.Red
                    Case 90 : statusText = If(withCode, statusCode & " - ", "") & "Zollfehler" : If bgColor IsNot Nothing Then bgColor = Color.Red
                    Case 98 : statusText = If(withCode, statusCode & " - ", "") & "Dakosy Fehlermeldung" : If bgColor IsNot Nothing Then bgColor = Color.IndianRed
                    Case 99 : statusText = If(withCode, statusCode & " - ", "") & "Interner Fehler" : If bgColor IsNot Nothing Then bgColor = Color.Red
                    Case Else : statusText = "" : If bgColor IsNot Nothing Then bgColor = Color.White
                End Select

            Case "AES"

                ' 10:       Vorankündigung entgegengenommen
                ' 11    	Anmeldung entgegengenommen, Antrag nach §12(4) AWV abgelehnt
                ' 12:       Anmeldung entgegengenommen
                ' 13    	Anmeldung nicht angenommen
                ' 15    	Anmeldung nicht überlassen
                ' 16    	Anmeldung angenommen, ergänzende Anmeldung wird erwartet
                ' 17    	Anmeldung angenommen, ergänzende oder vollständige Anmeldung liegt vor
                ' 18:       Vorankündigung abgewiesen
                ' 30    	Vorgang überlassen, ergänzende Anmeldung wird erwartet
                ' 31    	Vorgang überlassen, ergänzende oder vollständige Anmeldung liegt vor
                ' 32    	Ausgang ganz oder teilweise bestätigt, ergänzende Anmeldung wird erwartet
                ' 33    	Ausgang ganz oder teilweise bestätigt, ergänzende oder vollständige Anmeldung liegt vor
                ' 35:       Vorgang erledigt
                ' 36:       Ausgang untersagt
                ' 37    	Vorgang geschlossen - keine weitere Bearbeitung vorgesehen
                ' 38:       Vorgang ungültig / storniert
                ' 39    	Vorgang unter Klärung

                Select Case statusCode
                    Case 0 : statusText = If(withCode, statusCode & " - ", "") & "ungültig" : If bgColor IsNot Nothing Then bgColor = Color.Yellow
                    Case 1 : statusText = If(withCode, statusCode & " - ", "") & "Anlage" : If bgColor IsNot Nothing Then bgColor = Color.Yellow
                    Case 2 : statusText = If(withCode, statusCode & " - ", "") & "Sendebereit" : If bgColor IsNot Nothing Then bgColor = Color.Yellow
                    Case 3 : statusText = If(withCode, statusCode & " - ", "") & "An Dakosy gesendet" : If bgColor IsNot Nothing Then bgColor = Color.LightBlue
                    Case 4 : statusText = If(withCode, statusCode & " - ", "") & "Dakosy OK" : If bgColor IsNot Nothing Then bgColor = Color.LightGreen
                    Case 5 : statusText = If(withCode, statusCode & " - ", "") & "Dakosy an Zoll gesendet" : If bgColor IsNot Nothing Then bgColor = Color.LightGreen
                    Case 7 : statusText = If(withCode, statusCode & " - ", "") & "Zoll OK" : If bgColor IsNot Nothing Then bgColor = Color.LightGreen
                    Case 9 : statusText = If(withCode, statusCode & " - ", "") & "Sendefehler an Dakosy" : If bgColor IsNot Nothing Then bgColor = Color.LightGreen

                    Case 10 : statusText = If(withCode, statusCode & " - ", "") & "Vorankündigung entgegengenommen" : If bgColor IsNot Nothing Then bgColor = Color.LightGreen
                    Case 11 : statusText = If(withCode, statusCode & " - ", "") & "Anmeldung entgegengenommen, Antrag nach §12(4) AWV abgelehnt" : If bgColor IsNot Nothing Then bgColor = Color.Red
                    Case 12 : statusText = If(withCode, statusCode & " - ", "") & "Anmeldung entgegengenommen" : If bgColor IsNot Nothing Then bgColor = Color.LightGreen

                    Case 13 : statusText = If(withCode, statusCode & " - ", "") & "Anm. nicht angenommen" : If bgColor IsNot Nothing Then bgColor = Color.Red
                    Case 14 : statusText = If(withCode, statusCode & " - ", "") & "Anm.  angenommen" : If bgColor IsNot Nothing Then bgColor = Color.LightGreen
                    Case 15 : statusText = If(withCode, statusCode & " - ", "") & "Anmeldung nicht überlassen" : If bgColor IsNot Nothing Then bgColor = Color.Red
                    Case 16 : statusText = If(withCode, statusCode & " - ", "") & "Anmeldung angenommen, ergänzende Anmeldung wird erwartet" : If bgColor IsNot Nothing Then bgColor = Color.Yellow
                    Case 17 : statusText = If(withCode, statusCode & " - ", "") & "Anm. angenommen, ergänzende oder vollständige Anmeldung liegt vor" : If bgColor IsNot Nothing Then bgColor = Color.Yellow
                    Case 18 : statusText = If(withCode, statusCode & " - ", "") & "Vorankündigung abgewiesen" : If bgColor IsNot Nothing Then bgColor = Color.Red
                    Case 30 : statusText = If(withCode, statusCode & " - ", "") & "Vorgang überlassen, ergänzende Anmeldung wird erwartet" : If bgColor IsNot Nothing Then bgColor = Color.LightGreen
                    Case 31 : statusText = If(withCode, statusCode & " - ", "") & "Vorgang überlassen, ergänzende oder vollständige Anmeldung liegt vor" : If bgColor IsNot Nothing Then bgColor = Color.LightGreen

                    Case 32 : statusText = If(withCode, statusCode & " - ", "") & "Ausgang ganz oder teilweise bestätigt, ergänzende Anmeldung wird erwartet" : If bgColor IsNot Nothing Then bgColor = Color.LightGreen
                    Case 33 : statusText = If(withCode, statusCode & " - ", "") & "Ausgang ganz oder teilweise bestätigt, ergänzende oder vollständige Anmeldung liegt vor" : If bgColor IsNot Nothing Then bgColor = Color.LightGreen
                    Case 35 : statusText = If(withCode, statusCode & " - ", "") & "Vorgang erledigt" : If bgColor IsNot Nothing Then bgColor = Color.LightGreen
                    Case 36 : statusText = If(withCode, statusCode & " - ", "") & "Ausgang untersagt" : If bgColor IsNot Nothing Then bgColor = Color.Red
                    Case 37 : statusText = If(withCode, statusCode & " - ", "") & "Vorgang geschlossen - keine weitere Bearbeitung vorgesehen" : If bgColor IsNot Nothing Then bgColor = Color.Red
                    Case 38 : statusText = If(withCode, statusCode & " - ", "") & "Vorgang ungültig / storniert" : If bgColor IsNot Nothing Then bgColor = Color.Red
                    Case 39 : statusText = If(withCode, statusCode & " - ", "") & "Vorgang unter Klärung" : If bgColor IsNot Nothing Then bgColor = Color.Yellow
                    Case 90 : statusText = If(withCode, statusCode & " - ", "") & "Zollfehler" : If bgColor IsNot Nothing Then bgColor = Color.Red
                    Case 98 : statusText = If(withCode, statusCode & " - ", "") & "Dakosy Fehlermeldung" : If bgColor IsNot Nothing Then bgColor = Color.IndianRed
                    Case 99 : statusText = If(withCode, statusCode & " - ", "") & "Interner Fehler" : If bgColor IsNot Nothing Then bgColor = Color.Red
                    Case Else : statusText = "" : If bgColor IsNot Nothing Then bgColor = Color.White
                End Select
        End Select


        Return statusText
    End Function
End Class
