Form PLANTS
    /* Defining available plants */

    Form Data 
        FM_FILE Word Integer
            Value 1
        FM_NEW Word Integer
            Value 2
        FM_MOD Word Integer
            Value 3
        FM_DEL Word Integer
            Value 4
        FM_PRI Word Integer
            Value 5
        FM_DIS Word Integer
            Value 6
        FM_PSAVE Word Integer
            Value 81
        FM_PLOAD Word Integer
            Value 82
        FM_PRINT Word Integer
            Value 83
        FM_CLOSE Word Integer
            Value 99
    End Data

    Form Data 
        Group IGR 
            /* Group for Icons in every Panel */
        End Group
    End Data

    Form Data 
        DATE_TIME Adt Current
        CURRENTITEM Character(20) Varying Builtin
        FIELDIMAGE Character(35) Varying Builtin
        STATUS Longword Integer
    End Data

    Form Data
        Copy
            "cdd$default:form_recs.fhelp" from Dictionary
        End Copy

        Help_Init Character(9) Value "%%%PLANTS"

/* Start Copy "Help_Data" In "src$:Ifdl_Copies.Tlb" */
	Copy
	    "Help_Data" In "src$:Ifdl_Copies.Tlb"
	End Copy
/* End   Copy "Help_Data" In "src$:Ifdl_Copies.Tlb" */
    End Data

    Form Data 
        Copy
            "cdd$default:form_recs.fInit" from Dictionary
        End Copy

        Copy
            "cdd$default:form_recs.fMenu" from Dictionary
        End Copy

    End Data

    Form Data 
        Copy
            "cdd$default:form_recs.fPlant" from Dictionary
        End Copy

    End Data

    Form Data 
        Copy
            "cdd$default:form_recs.fPlant_Print" from Dictionary
        End Copy

    End Data

    Form Record FMENU
        Copy
            "cdd$default:form_recs.fMenu" from Dictionary
        End Copy

    End Record

    Form Record FINIT
        Copy
            "cdd$default:form_recs.fInit" from Dictionary
        End Copy

    End Record

    Form Record FMESSAGE
        Copy
            "cdd$default:form_recs.fMessage" from Dictionary
        End Copy

    End Record

    Form Record FHELP
        Copy
            "cdd$default:form_recs.fHelp" from Dictionary
        End Copy

    End Record

    Form Record FPLANT_CODE
        Copy
            "cdd$default:form_recs.fplant_code" from Dictionary
        End Copy

    End Record

    Form Record FPLANT
        Copy
            "cdd$default:form_recs.fplant" from Dictionary
        End Copy

    End Record

    Form Record FPLANT_PRINT
        Copy
            "cdd$default:form_recs.fplant_print" from Dictionary
        End Copy

    End Record


    Layout L_VT_GERMAN
        /*layout for VT type terminals and GERMAN language */
        Device
            Terminal
                Type %VT200
        End Device
        Language "GERMAN"
        Size 24 Lines by 80 Columns
        Display Viewport
            %Keypad_Numeric
            %Terminal_Width_80

        Viewport DEFAULT_MESSAGE_VIEWPORT
            Lines 23 Through 24
            Columns 1 Through 80
        End Viewport

        Viewport V_PLANTS
            Lines 5 Through 22
            Columns 1 Through 80
        End Viewport

        Viewport V_FILE_ICONS
            Lines 6 Through 8
            Columns 2 Through 9
        End Viewport

        Viewport V_ASK_OK
            Lines 15 Through 21
            Columns 60 Through 78
        End Viewport

        Viewport V_PRINTING
            Lines 7 Through 21
            Columns 10 Through 60
        End Viewport

/* Start Copy "Help_Viewport" In "src$:Ifdl_Copies.Tlb" */
	Copy
	    "Help_Viewport" In "src$:Ifdl_Copies.Tlb"
	End Copy
/* End   Copy "Help_Viewport" In "src$:Ifdl_Copies.Tlb" */

/* Start Copy "Functions" In "src$:Ifdl_Copies.Tlb" */
	Copy
	    "Functions" In "src$:Ifdl_Copies.Tlb"
	End Copy
/* End   Copy "Functions" In "src$:Ifdl_Copies.Tlb" */

        Internal Response IR_BOUNDARY_CURSOR_LEFT
            If FIRST ITEM Then
                Position To Last Item
            Else
                Position Immediate To Left Item
            End If
        End Response

        Internal Response IR_BOUNDARY_CURSOR_RIGHT
            If LAST ITEM Then
                Position To First Item
            Else
                Position Immediate To Right Item
            End If
        End Response

/* Start Copy "Help_Int_Resp" In "src$:Ifdl_Copies.Tlb" */
	Copy
	    "Help_Int_Resp" In "src$:Ifdl_Copies.Tlb"
	End Copy
/* End   Copy "Help_Int_Resp" In "src$:Ifdl_Copies.Tlb" */

        Internal Response IR_RESET_PLANT
            Reset
                DATE_TIME
                PLANT_CODE
                LINGUA
                NAME_1
                NAME_2
                STREET
                COUNTRY_CODE
                ZIP_CODE
                TOWN
                COUNTRY_NAME
        End Response

        Enable Response
            /* initialize menu handling */
            Let MENU_SELECT = FM_FILE
            Reset
                DATE_TIME
        End Response

        Disable Response
            Remove All
        End Response

        Send Response FINIT
            Reset
                DATE_TIME
        End Response

        Send Response FMESSAGE
            Reset
                DATE_TIME
        End Response

        Send Response FPLANT
            Reset
                DATE_TIME
        End Response

        Receive Response FMENU
            Reset
                DATE_TIME
            Activate
                Group IGR on P_PLANTS
            If (MENU_SELECT = FM_FILE) Then
                Position To Icon IGR.I_FILE On P_PLANTS
            End If
            If (MENU_SELECT = FM_NEW) Then
                Position To Icon IGR.I_NEW On P_PLANTS
            End If
            If (MENU_SELECT = FM_MOD) Then
                Position To Icon IGR.I_MODIFY On P_PLANTS
            End If
            If (MENU_SELECT = FM_DEL) Then
                Position To Icon IGR.I_DELETE On P_PLANTS
            End If
            If (MENU_SELECT = FM_PRI) Then
                Position To Icon IGR.I_PRINT On P_PLANTS
            End If
            If (MENU_SELECT = FM_DIS) Then
                Position To Icon IGR.I_DISPLAY On P_PLANTS
            End If
        End Response

        Receive Response FPLANT_CODE
            Reset
                /* used for reading the key item */
                DATE_TIME
            Include IR_RESET_PLANT
            Activate
                Field PLANT_CODE on P_PLANTS
        End Response

        Transceive Response FPLANT_PRINT FPLANT_PRINT
            Reset
                DATE_TIME
            Let BATCH_TIME = DATE_TIME
            Activate
                Panel P_PRINTING
        End Response

        Transceive Response FPLANT FPLANT
            Reset
                DATE_TIME
            Activate
                Panel P_PLANTS
            Deactivate
                Group IGR on P_PLANTS
                Field PLANT_CODE on P_PLANTS
        End Response

        Transceive Response FPLANT FMENU
            Reset
                DATE_TIME
            Activate
                Panel P_ASK_OK
        End Response

        Function Response EXIT_FORM
            Return
        End Response

        Function Response QUIT_FORM
            Return Immediate
                "EFQUT"
        End Response

        Function Response PRINT_SCREEN
            Print Immediate
        End Response

/* Start Copy "Field_Defaults" In "src$:Ifdl_Copies.Tlb" */
	Copy
	    "Field_Defaults" In "src$:Ifdl_Copies.Tlb"
	End Copy
/* End   Copy "Field_Defaults" In "src$:Ifdl_Copies.Tlb" */

        Apply Field Default FIELD_NORM

        Message Panel DEFAULT_MESSAGE_PANEL
            Viewport DEFAULT_MESSAGE_VIEWPORT
        End Panel


        Panel P_PLANTS
            Viewport V_PLANTS
            /* Plant Definitions */
            Use Help Panel
                P_HELP_TEXTE

            Literal Rectangle
                Line 1	Column 1
                Line 18	Column 80
            End Literal

            Literal Polyline
                Line 3	Column 1
                Line 3	Column 80
            End Literal

            Literal Text
                Line 1
                Column 2
                Value " Verwalten Niederlassungen                             "-
                    "                       "
                Display
                    Reverse
            End Literal

            Group IGR
                Apply Field Default ICON_NORM
                Icon I_FILE
                    Function Response SELECT
                        Deactivate
                            Panel P_PLANTS
                        Activate
                            Panel P_FILE_ICONS
                        Position To First Item
                    End Response

                    Literal Text
                        Line 2
                        Column 2
                        Value " Datei "
                    End Literal

                End Icon

                Icon I_NEW
                    Function Response SELECT
                        Let MENU_SELECT = FM_NEW
                        Return
                    End Response

                    Literal Text
                        Same Line
                        Next Column +1
                        Value " Neu "
                    End Literal

                End Icon

                Icon I_MODIFY
                    Function Response SELECT
                        Let MENU_SELECT = FM_MOD
                        Return
                    End Response

                    Literal Text
                        Same Line
                        Next Column +1
                        Value " Ändern "
                    End Literal

                End Icon

                Icon I_DELETE
                    Function Response SELECT
                        Let MENU_SELECT = FM_DEL
                        Return
                    End Response

                    Literal Text
                        Same Line
                        Next Column +1
                        Value " Löschen "
                    End Literal

                End Icon

                Icon I_PRINT
                    Function Response SELECT
                        Let MENU_SELECT = FM_PRI
                        Return
                    End Response

                    Literal Text
                        Same Line
                        Next Column +1
                        Value " Drucken "
                    End Literal

                End Icon

                Icon I_DISPLAY
                    Function Response SELECT
                        Let MENU_SELECT = FM_DIS
                        Return
                    End Response

                    Literal Text
                        Same Line
                        Next Column +1
                        Value " Anzeigen "
                    End Literal

                End Icon

                Icon MAIN_HELP
                    Function Response SELECT
                        Enter Help
                    End Response

                    Literal Text
                        Same Line
                        Column 73
                        Value " Hilfe "
                    End Literal

                End Icon

            End Group

            Literal Text
                Line 5
                Column 4
                Value "Kode     :"
            End Literal

            Field PLANT_CODE
                Line 5
                Column 15
                Validation Response
                    If EMPTY FIELD Then
                        Message
                            "Hier muß ein Kode eingegeben werden"
                        Signal %Bell
                        Invalid
                    End If
                End Response

                Use Help Message
                    "Eindeutiger Kode für die Niederlassung"
                Uppercase
            End Field

            Literal Text
                Line 5
                Column 27
                Value "Kurz-Name :"
            End Literal

            Field SHORT_NAME
                Line 5
                Column 39
                Use Help Message
                    "Kurz-Bezeichnung, die auf Listen mit ausgedruckt wird"
            End Field

            Literal Text
                Line 5
                Column 66
                Value "Sprache :"
            End Literal

            Field LINGUA
                Line 5
                Column 76
                Entry Response
                    Let LINGUA = DEF_LINGUA
                End Response

                Validation Response
                    Call "CHECK_LANGUAGE" Using
                            By Reference STATUS
                            By Reference LINGUA
                    If (STATUS <> 0) Then
                        Message
                            "Sprache nicht verfügbar"
                        Signal %Bell
                        Invalid
                    End If
                End Response

                Use Help Message
                    "Sprachkürzel für die Default-Sprache der Niederlassung"
                Uppercase
            End Field

            Literal Text
                Line 7
                Column 21
                Value "Name :"
            End Literal

            Field NAME_1
                Line 7
                Column 28
                Validation Response
                    If EMPTY FIELD Then
                        Message
                            "Erste Zeile der Anschrift muß eingetragen werden."
                        Invalid
                    End If
                End Response

                Use Help Message
                    "1. Zeile der Anschrift"
            End Field

            Field NAME_2
                Line 8
                Column 28
                Use Help Message
                    "2. Zeile der Anschrift"
            End Field

            Literal Text
                Line 9
                Column 19
                Value "Straße :"
            End Literal

            Field STREET
                Line 9
                Column 28
                Validation Response
                    If EMPTY FIELD Then
                        Message
                            "Adresse muß eingetragen werden."
                        Invalid
                    End If
                End Response

                Use Help Message
                    "Straße und Hausnummer"
            End Field

            Literal Text
                Line 11
                Column 22
                Value "PLZ :"
            End Literal

            Field COUNTRY_CODE
                Line 11
                Column 28
                Entry Response
                    If EMPTY FIELD Then
                        Let COUNTRY_CODE = DEF_COUNTRY
                    End If
                End Response

                Use Help Message
                    "Länderkode"
                Uppercase
            End Field

            Literal Text
                Line 11
                Column 31
                Value "-"
            End Literal

            Field ZIP_CODE
                Line 11
                Column 32
                Validation Response
                    If EMPTY FIELD Then
                        Message
                            "Postleitzahl muß eingetragen werden."
                        Invalid
                    End If
                End Response

                Use Help Message
                    "Postleitzahl"
            End Field

            Literal Text
                Line 12
                Column 20
                Value "Stadt :"
            End Literal

            Field TOWN
                Line 12
                Column 28
                Validation Response
                    If EMPTY FIELD Then
                        Message
                            "Stadt muß eingetragen werden."
                        Invalid
                    End If
                End Response

                Use Help Message
                    "Name der Stadt"
            End Field

            Literal Text
                Line 13
                Column 21
                Value "Land :"
            End Literal

            Field COUNTRY_NAME
                Line 13
                Column 28
                Use Help Message
                    "Ländername (falls Ausland)"
            End Field

            Literal Text
                Line 15
                Column 4
                Value "Aufträge pro Stunde  :"
            End Literal

            Field ORDERS_PER_HOUR
                Line 15
                Column 27
                Output Picture 9999R9
                Justification Right
                Use Help Message
                    "Maximale Anzahl von Kunden-Aufträgen pro Stunde"
            End Field

            Literal Text
                Line 16
                Column 4
                Value "Behälter pro Auftrag :"
            End Literal

            Field TOTES_PER_ORDER
                Line 16
                Column 27
                Output Picture 99R9.9
                Justification Decimal
                Use Help Message
                    "Durchschnittliche Anzahl Behälter pro Kunden-Auftrag"
            End Field

            Literal Text
                Line 17
                Column 4
                Value "Zeilen   pro Auftrag :"
            End Literal

            Field LINES_PER_ORDER
                Line 17
                Column 27
                Output Picture 99R9.9
                Justification Decimal
                Use Help Message
                    "Durchschnittliche Anzahl Bestellzeilen pro Kunden-Auftrag"
            End Field

            Literal Text
                Line 16
                Column 37
                Value "Letzte Prüfung Saisonalität :"
            End Literal

            Field LAST_SEAS_CHECK
                Line 16
                Column 67
                Output Picture For Date DD-MMM-YYYY
                Protected
            End Field

            Literal Text
                Line 17
                Column 37
                Value "Letzte Prüfung Statistik    :"
            End Literal

            Field LAST_STAT_CHECK
                Line 17
                Column 67
                Output Picture For Date DD-MMM-YYYY
                Protected
            End Field

        End Panel


        Panel P_FILE_ICONS
            Viewport V_FILE_ICONS
            Remove
            Group IGR
                Apply Field Default ICON_NORM
                Icon I_CLOSE
                    Function Response SELECT
                        Let MENU_SELECT = FM_CLOSE
                        Return
                    End Response

                    Function Response QUIT_FORM
                        Deactivate
                            Panel P_FILE_ICONS
                        Activate
                            Group IGR on P_PLANTS
                        Position To First Item
                    End Response

                    Literal Text
                        Line 2
                        Column 2
                        Value " Ende "
                    End Literal

                End Icon

            End Group

            Literal Rectangle
                Line 1	Column 1
                Line 3	Column 8
            End Literal

        End Panel


        Panel P_ASK_OK
            Viewport V_ASK_OK
            Remove
            /* Fragen, ob Aktion wirklich durchgeführt werden soll */
            Function Response EXIT_FORM
                Let MENU_SELECT = 0
                Return
            End Response

            Function Response QUIT_FORM
                Let MENU_SELECT = 0
                Return Immediate
            End Response

            Apply Field Default ICON_NORM
            Literal Rectangle
                Line 1	Column 1
                Line 7	Column 19
            End Literal

            Literal Rectangle
                Line 4	Column 3
                Line 6	Column 6
                Display
                    Bold
            End Literal

            Literal Text
                Line 2
                Column 2
                Value "Sind Sie sicher ?"
            End Literal

            Icon JA
                Function Response SELECT
                    Let MENU_SELECT = 1
                    Return
                End Response

                Literal Text
                    Line 5
                    Column 4
                    Value "JA"
                End Literal

            End Icon

            Icon NEIN
                Function Response SELECT
                    Let MENU_SELECT = 0
                    Return
                End Response

                Literal Text
                    Line 5
                    Column 11
                    Value "NEIN"
                    Display
                        Reverse
                End Literal

            End Icon

        End Panel


        Panel P_PRINTING
            Viewport V_PRINTING
            /* Panel to enter print parameters */
            Function Response EXIT_FORM
                Let PRINT_SELECT = FM_PRINT
                Remove 
                    V_PRINTING
                Return
            End Response

            Function Response QUIT_FORM
                Let PRINT_SELECT = FM_CLOSE
                Remove 
                    V_PRINTING
                Return Immediate
            End Response

            Literal Rectangle
                Line 1	Column 1
                Line 15	Column 51
            End Literal

            Literal Polyline
                Line 13	Column 1
                Line 13	Column 51
            End Literal

            Literal Text
                Line 1
                Column 2
                Value " Drucken Niederlassungen                         "
                Display
                    Reverse
            End Literal

            Literal Text
                Line 4
                Column 3
                Value "Variante    :"
            End Literal

            Field PRINT_REC_NAME
                Line 4
                Column 17
                Validation Response
                    If (EMPTY FIELD AND (BATCH_PROCESSING = "Y")) Then
                        Invalid
                        Message
                            "Bei Batch-Verarbeitung muß ein Varianten-Name "-
                                "eingegeben werden"
                    End If
                End Response

                Use Help Message
                    "Bezeichnung der Druck-Variante"
                Uppercase
            End Field

            Literal Text
                Line 6
                Column 3
                Value "Drucker-Nr. :"
            End Literal

            Field PRINTER_NR
                Line 6
                Column 17
                Entry Response
                    If EMPTY FIELD Then
                        Let PRINTER_NR = DEF_PRINTER
                    End If
                End Response

                Validation Response
                    Call "CHECK_PRINTER" Using
                            By Reference STATUS
                            By Reference PRINTER_NR
                    If (STATUS <> 0) Then
                        Message
                            "Drucker-Nummer nicht definiert"
                        Signal %Bell
                        Invalid
                    End If
                End Response

                Output Picture 9R9
                Justification Right
                Use Help Message
                    "Nummer des Druckers für den Ausdruck"
            End Field

            Literal Text
                Line 11
                Column 3
                Value "["
            End Literal

            Field BATCH_PROCESSING
                Same Line
                Next Column
                Entry Response
                    If EMPTY FIELD Then
                        Let BATCH_PROCESSING = "N"
                    End If
                End Response

                Function Response SELECT
                    If (BATCH_PROCESSING = "Y") Then
                        Let BATCH_PROCESSING = "N"
                    Else
                        Let BATCH_PROCESSING = "Y"
                        If (PRINT_REC_NAME = "    ") Then
                            Message
                                "Bei Batch-Verarbeitung muß ein "-
                                    "Varianten-Name eingegeben werden"
                        End If
                    End If
                End Response

                Display
                    Character Set Private_Rule
                No Data Input
                Use Help Message
                    "Selektieren, falls im Batch ausgewertet werden soll"
                Output "`"
                    When (BATCH_PROCESSING = "Y")
                Output " "
                    When (BATCH_PROCESSING = "N")
            End Field

            Literal Text
                Same Line
                Next Column
                Value "] Batch-Auswertung"
            End Literal

            Literal Text
                Line 11
                Column 26
                Value "Start :"
            End Literal

            Field BATCH_TIME
                Line 11
                Column 34
                Output Picture For Date YYYY/NN/DD-GG:II
		Use Help Message
		    "Zeit, zu der die Verarbeitung beginnen soll."
                Protected
                    When (BATCH_PROCESSING = "N")
            End Field

            Group IGR
                Entry Response
                    Position To Icon IGR.PRINT_START On P_PRINTING
                End Response

                Apply Field Default PRINT_ICON_NORM
                Icon PRINT_CANCEL
                    Function Response SELECT
                        Let PRINT_SELECT = FM_CLOSE
                        Remove 
                            V_PRINTING
                        Return Immediate
                    End Response

                    Literal Text
                        Line 14
                        Column 2
                        Value " Abbruch "
                    End Literal

                End Icon

                Icon PRINT_LOAD
                    Function Response SELECT
                        If (PRINT_REC_NAME = "    ") Then
                            Message
                                "Kein Varianten-Name eingetragen"
                            Position To Field PRINT_REC_NAME On P_PRINTING
                        Else
                            Let PRINT_SELECT = FM_PLOAD
                            Return Immediate
                        End If
                    End Response

                    Literal Text
                        Line 14
                        Column 15
                        Value " Laden "
                    End Literal

                End Icon

                Icon PRINT_SAVE
                    Function Response SELECT
                        If (PRINT_REC_NAME = "    ") Then
                            Message
                                "Kein Varianten-Name eingetragen"
                            Position To Field PRINT_REC_NAME On P_PRINTING
                        Else
                            Let PRINT_SELECT = FM_PSAVE
                            Return
                        End If
                    End Response

                    Literal Text
                        Line 14
                        Column 27
                        Value " Speichern "
                    End Literal

                End Icon

                Icon PRINT_START
                    Function Response SELECT
                        Let PRINT_SELECT = FM_PRINT
                        Remove 
                            V_PRINTING
                        Return
                    End Response

                    Literal Text
                        Line 14
                        Column 44
                        Value " Start "
                    End Literal

                End Icon

            End Group

        End Panel


/* Start Copy "Help_Panel" In "src$:Ifdl_Copies.Tlb" */
	Copy
	    "Help_Panel" In "src$:Ifdl_Copies.Tlb"
	End Copy
/* End   Copy "Help_Panel" In "src$:Ifdl_Copies.Tlb" */

    End Layout
End Form