/// <summary>МЕТОД Создаем поле истории результата исседования КДЛ</summary>
/// <param name="pPole">Родительское поле</param>
private UserPole_History MET_GreatKDL(UserPole_History pPole)
{
// Заполняем список шаблонов
MySql.MET_DsAdapterFill(MyQuery.MET_History_Select_4(MET_PoleInt("kdl")), "HistoryKDL");
PRO_RowShablon = MyGlo.DataSet.Tables["HistoryKDL"].Rows[0];
// Настраиваем поле документа
UserPole_History _Pole = new UserPole_History();
_Pole.PROP_Date = MET_PoleDat("pDate");
_Pole.PROP_Document = MET_PoleStr("NameKr");
_Pole.PROP_Dp = MET_PoleDat("pDate");
_Pole.PROP_Kdl = MET_PoleStr("Indicator");
_Pole.PROP_Metca = " (" + _Pole.PROP_Kdl + ")";
_Pole.PROP_Background = Brushes.LightYellow;
// Окрашиваем поле в зависимости от результата
MET_ColorKDL(_Pole);
_Pole.PROP_Type = eTipDocum.Kdl;
_Pole.PROP_IsTexted = true;
// Находим иконку
string _Icon = MET_PoleStr("Icon") != "" ? MET_PoleStr("Icon") : "mnOneOsmotr";
_Pole.MET_LoadIcon(_Icon);
_Pole.PROP_Cod = MET_PoleInt("Cod");
_Pole.PROP_CodApstac = pPole.PROP_CodApstac;
_Pole.PROP_NumerShablon = MET_PoleInt("NumShablon");
_Pole.PROP_Kdl = "1";
_Pole.PROP_DocumHistory = new UserDocument(_Pole.PROP_Type);
_Pole.PROP_IsDelete = MET_PoleInt("xDelete") == 1;
_Pole.PROP_DocumHistory.PROP_Protokol = UserProtokol.MET_FactoryProtokol(_Pole.PROP_Type, (int)_Pole.PROP_Cod);
_Pole.PROP_Vrach = _Pole.PROP_DocumHistory.PROP_Protokol.PROP_UserName;
_Pole.MET_Inicial();
// Делегат при открытии документа
_Pole.Event_OpenNewPoleHistory = MET_Protokol;
return(_Pole);
}