// U_TroubleticketNy.cpp
// 21. maj 2001
// Datamatiker, Programmering af store systemer
// Mikkel Munksgaard og Niels Grove-Rasmussen

//---------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop

#include "U_TroubleticketNy.h"
//---------------------------------------------------------------------
#pragma resource "*.dfm"
TDial_TroubleticketNy *Dial_TroubleticketNy;
//---------------------------------------------------------------------
__fastcall TDial_TroubleticketNy::TDial_TroubleticketNy(TComponent* AOwner)
	: TForm(AOwner)
{
}
//---------------------------------------------------------------------

void __fastcall TDial_TroubleticketNy::FormActivate(TObject *Sender)
{
	Labl_Tidspunkt->Caption = DateTimeToStr(Now());
    /* clear boxes 
    CBox_Ansvarlig->;
    CBox_Tilstand->;
    CBox_Udstyr->;
    */
}
//---------------------------------------------------------------------------

void __fastcall TDial_TroubleticketNy::FormShow(TObject *Sender)
{
    CBox_Ansvarlig->SetFocus();
}
//---------------------------------------------------------------------------

void __fastcall TDial_TroubleticketNy::OKBtnClick(TObject *Sender)
{
    if(CBox_Ansvarlig->Text == "" || CBox_Tilstand->Text == ""
       || CBox_Udstyr->Text == "")
        if(CBox_Ansvarlig->Text == "") {
            MessageDlg("Der er ikke valgt en ansvarlig.", mtError,
                       TMsgDlgButtons() << mbRetry, 0);
            CBox_Ansvarlig->SetFocus();
        }
        else if(CBox_Tilstand->Text == "") {
            MessageDlg("Der er ikke valgt tilstand.", mtError,
                       TMsgDlgButtons() << mbRetry, 0);
            CBox_Tilstand->SetFocus();
        }
        else if(CBox_Udstyr->Text == "") {
            MessageDlg("Der er ikke valgt udstyr.", mtError,
                       TMsgDlgButtons() << mbRetry, 0);
            CBox_Udstyr->SetFocus();
        }
    else
        Close();
}
//---------------------------------------------------------------------------

void __fastcall TDial_TroubleticketNy::CancelBtnClick(TObject *Sender)
{
	Close();
}
//---------------------------------------------------------------------------

void TDial_TroubleticketNy::Fejl(const String& metode,
                                 const String& meddelelse) {
	MessageDlg("Fejl i Dial_TroubleticketNy." + metode + ":\n\n" + meddelelse
               + ".", mtError, TMsgDlgButtons() << mbAbort, 0);
    exit(EXIT_FAILURE);
}
//---------------------------------------------------------------------------