cmDelOnProtect...

BlazeBio · Сообщение **BlazeBio** » 30 авг 2010, 19:54

Представленный ниже cmDelOnProtect (из alter interface) не реагирует на нажатие клавиши Del (pname здесь поле на скрине SCR000) . Почему?

Код: Выделить всё

		cmDelOnProtect:
		{
		  inherited :: handleEvent(cmDelOnProtect);
		  case CurField of
		   #pname:
		  {
//			message('delonprotect');
			if getfirst ppkatstanmc where((katmc.nrec==ppkatstanmc.cmc))=tsOk
			{
			   delete current ppkatstanmc;
			   pname:='';
			   rescanpanel(#ppkatstanmc);
			   rescanpanel(#ppkatstan);
			   rescanpanel(SCR000);

			}
		  //abort;
		  }
		  end;
		}

Vik · Сообщение **Vik** » 31 авг 2010, 11:13

А вы уверены, что поле помечено атрибутом Protect ? Так же, возможно, не в том обработчике обрабатываете. И еще , вам Screw уже объяснял, что вот так вот делать не надо :

Код: Выделить всё

 rescanpanel(SCR000);

. А то опять появится очередной пост, аля "RuntimeError! Help!" )

BlazeBio · Сообщение **BlazeBio** » 31 авг 2010, 11:23

Я уверен, что поле защищённое.Вот

Код: Выделить всё

	cfsSetProp('pname' , 'Protect', TRUE );

И при попытке что либо изменить появляется стандартное сообщение, что "запись защищена от модификации".
И когда rescanpanel(scr000) убираю, то же ничего не меняется.

Vik · Сообщение **Vik** » 31 авг 2010, 11:42

Естественно rescanpanel тут ничего не изменит. Не к этому было сказано. В нужном обработчике событие обрабатываете?

BlazeBio · Сообщение **BlazeBio** » 31 авг 2010, 11:44

В handleevent дорабатываемого окна. Поле pname у меня не привязано к определённой таблице.

Vik · Сообщение **Vik** » 31 авг 2010, 13:56

Ну выведите message за пределы case, проверьте, может и отрабатывает событие. А вообще, хоть бы название фейса написали что ли..

BlazeBio · Сообщение **BlazeBio** » 31 авг 2010, 16:11

Месагой я проверял, не отрабатывает событие...а интерфейс 'L_MCU::KATMC.WKATMC'...

Vik · Сообщение **Vik** » 31 авг 2010, 17:20

И что за поле pname вы нашли на Scr000 окна wKatMc ?

BlazeBio · Сообщение **BlazeBio** » 31 авг 2010, 17:23

Оно добавлено мной...

Vik · Сообщение **Vik** » 31 авг 2010, 17:50

Код весь приведите, надоело гаданием заниматься.

Vik · Сообщение **Vik** » 31 авг 2010, 18:00

А вообще, скорее всего не в том обработчике делаете. Переопределяйте событие в обработчике интерфейса, так как cmDelOnProtect - событие главного окна:

Код: Выделить всё

alter interface KatMc;
Window WKATMC
HandleEvent
 cmDelOnProtect :
 {
   Message('Здесь не будет работать')
 }
end;
end;

HandleEvent
 cmDelOnProtect :
 {
   Message('Здесь будет')
 }
end;
end.

BlazeBio · Сообщение **BlazeBio** » 31 авг 2010, 18:16

Не пашет и всё. Вот код:

Код: Выделить всё

//#component "L_MCU"
//const
//	cmEtalon=55678;
//end;

Alter interface Katmc;
var res:word;
	i:integer;
	cstan,kgr,ketal,kmc,kmc_copy,old_cstan:comp;
	pil1,var_button:longInt;

	knrec:comp;
	l,m,j,d:integer;
	s1,s:string;
	t1nrec,katmc:comp;
	t1name:string;
	check:boolean;
	//pname:string;
 	table struct t1
				 (
					nrec : comp,
//					cmc : comp,
					name: string, // наименование
				 	name2:string,
				 	name3:string,
				 	razmer:string,
				 	gnrec: comp,
				 	itogo: string,
				    n1:string,
					n2:string,
					n3:string,
					n4:string
//					isarch:string,
//					cppgrformat: string
				 )
				 with index
				 (
					 t101 = nRec,//(Unique,Surrogate),
					 t102 = name,
				     t103 = name+name3+name2,
					 t104 = name2,
				 	 t105 = razmer,
				     t106 = gnrec,
				 	t108 =itogo,
				 	t109 =n1,
				 	t1010 =n2,
					t1011 =n3,
					t1012 =n4,
				 	t1013 =name3
				 );
create view
var wnrec:comp;
pname:string;
 as select * from katmc k7,ppkatstan,katmc k8,ppkatstanmc
 where((wnrec==k8.nrec
	and k8.nrec==ppkatstanmc.cmc
	and ppkatstanmc.cppkatstan==ppkatstan.atl_nrec
	and ppkatstan.cmc==k7.nrec
	and (7=k7.isarch)));

window WKATMC;
tableevent table ppkatstan
	 cmCheckField:
		{
		  updatetable;
		  SetModified(true);
 //		   case CurField of
 //			 #ppkatstan.name:
 //			 {
				update current ppkatstan;
				RescanPanel(#ppkatstan);
 //			 }
 //			 end;
		}

	   end;
	handleEvent
		cmInit:
		{
			inherited :: handleEvent(cmInit);
			wnrec:=katmc.nrec;
			for (i := 0; i < 2; i++)
			{

				cfsSetCurrentContainer('Katmc.WKATMC.SCR000');
				cfsCreateObject('PanelInputLine','SCR000', 'pname',FALSE, pil1);
				cfsSetProp('pname','Origin_X',176);
				cfsSetProp('pname','Origin_Y',25);
				cfsSetProp('pname' , 'Size_X',121);
				cfsSetProp('pname','Origin_Y', 130);
				cfsSetProp('pname' , 'Visible', TRUE );
				cfsSetProp('pname' , 'Protect', TRUE );
				cfsSetProp('pname' , 'PickButton', TRUE );
				cfsSetProp('pname' , 'Skip', FALSE );
				cfsSetProp('pname' , 'PrecisionVarName' , 'digitToch2');
				cfsSetProp('pname' , 'PassiveFormat' , '[|-]366`666`666`666`666.88');
				cfsSetProp('pname' , 'MaxLen', 200);
				cfsSetProp('pname' , 'Palette', wpBlueWindow);
				cfsSetProp('pname','StatusCtx',Sci1378Esc); //F1,F3,F7,F8,Esc(cmClose)

			}

			kmc:=katmc.nrec;
			if getfirst ppkatstanmc where((kmc==ppkatstanmc.cmc))=tsOk
			{
				if getfirst ppkatstan where((ppkatstanmc.cppkatstan==ppkatstan.atl_nrec))=tsok
				{
					if getfirst k7 where((ppkatstan.cmc==k7.nrec and (7=k7.isarch)))=tsOk
					{
						ketal:=ppkatstan.cmc;
						cstan:=ppkatstan.atl_nrec;
						kgr:=ppkatstan.cgroupmc;
					}
					else
					{
						ketal:=0;
						cstan:=ppkatstan.atl_nrec;
						kgr:=ppkatstan.cgroupmc;
					}
				}
				else
				{
				   clearbuffer(#ppkatstan);
			   set ppkatstan.atl_nrec:=0;
				   insert current ppkatstan;
				   ppkatstanmc.cppkatstan:=ppkatstan.atl_nrec;
				   delete current ppkatstanmc;
				   ketal:=0;
				   cstan:=ppkatstan.atl_nrec;
				   kgr:=0;
				}
			}
			else
			{
				ketal:=0;
				cstan:=0;
				kgr:=0;
			}
			if getfirst ppkatstan where((cstan==ppkatstan.atl_nrec))=tsok
			{
			  pname:=ppkatstan.name;
			}
			else
			{
			  	pname:='';
			}
			rescanpanel(#ppkatstan);



		}
		cmPick:
		{
		inherited :: handleEvent(cmPick);
		  case CurField of
			#pname:
			{
			  kmc:=katmc.nrec;
			  old_cstan:=cstan;
			  check:=true;
			  res:=RunInterface('L_Dogovor::PickPPKatstan',cstan,check);
				if cstan=old_cstan
				  {
					cstan:=old_cstan;
				  }
				else if cstan<>old_cstan
				{
					_loop ppkatstanmc where((old_cstan==ppkatstanmc.cppkatstan and kmc==ppkatstanmc.cmc))
					{
					  delete current ppkatstanmc;
					}
					clearbuffer(#ppkatstanmc);
					set ppkatstanmc.cppkatstan:=cstan;
					set ppkatstanmc.cmc:=katmc.nrec;
					insert current ppkatstanmc;

				}
			}
			end;
			if getfirst ppkatstan where((cstan==ppkatstan.atl_nrec))=tsok
			{
			  pname:=ppkatstan.name;
			}
			else
			{
			  	pname:='';
			}
			rescanpanel(#ppkatstanmc);
			rescanpanel(#ppkatstan);
			rescanpanel(SCR000);
		}
/*		cmDelOnProtect:
		  {
			inherited :: handleEvent(cmDelOnProtect);
			case CurField of
			 #pname:
			{
			  if getfirst ppkatstanmc where((katmc.nrec==ppkatstanmc.cmc))=tsOk
			  {
				 delete current ppkatstanmc;
				 pname:='';
				 rescanpanel(#ppkatstanmc);
				 rescanpanel(#ppkatstan);
			  }
			}
			end;
		  }*/
    end;
end;
handleevent
	cmDelOnProtect:
	  {
		inherited :: handleEvent(cmDelOnProtect);
		case CurField of
		 #pname:
		{
		  if getfirst ppkatstanmc where((katmc.nrec==ppkatstanmc.cmc))=tsOk
		  {
			 delete current ppkatstanmc;
			 pname:='';
			 rescanpanel(#ppkatstanmc);
			 rescanpanel(#ppkatstan);
		  }
		}
		end;
	  }
    end;
end.

object 'L_MCU::KATMC' : InterfaceWindow {
  Title = 'Каталог МЦ. Фильтр по: рабочим МЦ';
  object BRMC1 : Browser {
    object 'c_BRMC1_KATMC.NAME_Наименование_матценности' : Column {
      DefaultWidth = 63;
    } // c_BRMC1_KATMC.NAME_Наименование_матценности : Column
    object 'c_BRMC1_KATMC.BARKOD_Номенкл.номер' : Column {
      DefaultWidth = 24;
    } // c_BRMC1_KATMC.BARKOD_Номенкл.номер : Column
    // Информация: объект "'Field: KATMC.KGROUPMC'" типа Column не найден в базовой конфигурации!
    object 'Field: KATMC.KGROUPMC' : Column {
      Original = False;
      Visible = True;
      Hidden = False;
      Protect = True;
      Skip = False;
      UpCase = False;
      Password = False;
      NoValidCheck = True;
      StatusCtx = 16;
      PickButton = False;
      CalcButton = False;
      Calendar = False;
      Title = 'код группы МЦ';
      HelpLine = 'код группы МЦ';
      FieldName = 'Field: KATMC.KGROUPMC';
      DefaultValue = '';
      Strings = ( // Список строк
      )
      StringsNull = 0;
      Index = 3;
      DefaultWidth = 15;
      TextAlign = 0;
      SpinButton = False;
      SpinInc = 0.0;
      SpinMin = 0.0;
      SpinMax = 0.0;
      NoAutoSize = False;
      EnumValues = ( // Список целых
      )
      PassiveFormat = '';
      Points = 0;
      MaxLen = 20;
      PrecisionVarName = '';
      HistoryID = 0;
      DropTarget = False;
      DropSource = False;
    } // Field: KATMC.KGROUPMC : Column
    // Информация: объект "'Field: GROUPMC.NAME'" типа Column не найден в базовой конфигурации!
    object 'Field: GROUPMC.NAME' : Column {
      Original = False;
      Visible = True;
      Hidden = False;
      Protect = True;
      Skip = False;
      UpCase = False;
      Password = False;
      NoValidCheck = True;
      StatusCtx = 16;
      PickButton = False;
      CalcButton = False;
      Calendar = False;
      Title = 'название группы МЦ';
      HelpLine = 'название группы МЦ';
      FieldName = 'Field: GROUPMC.NAME';
      DefaultValue = '';
      Strings = ( // Список строк
      )
      StringsNull = 0;
      Index = 4;
      DefaultWidth = 17;
      TextAlign = 0;
      SpinButton = False;
      SpinInc = 0.0;
      SpinMin = 0.0;
      SpinMax = 0.0;
      NoAutoSize = False;
      EnumValues = ( // Список целых
      )
      PassiveFormat = '';
      Points = 0;
      MaxLen = 80;
      PrecisionVarName = '';
      HistoryID = 0;
      DropTarget = False;
      DropSource = False;
    } // Field: GROUPMC.NAME : Column
    object 'c_BRMC1_TEKMCRESERVE_Резерв' : Column {
      DefaultWidth = 13;
    } // c_BRMC1_TEKMCRESERVE_Резерв : Column
    object 'c_BRMC1_KATMC.BARKOD2' : Column {
      Title = ^C'Дополнительный код';
      HelpLine = 'Дополнительный код матценности';
      Index = 6;
      DefaultWidth = 8;
    } // c_BRMC1_KATMC.BARKOD2 : Column
    object 'c_BRMC1_KATMC.GOST_ГОСТ' : Column {
      Visible = False;
    } // c_BRMC1_KATMC.GOST_ГОСТ : Column
    object 'c_BRMC1_ЕдИзм' : Column {
      Index = 9;
    } // c_BRMC1_ЕдИзм : Column
    object c_BRMC1_ISARHIV : Column {
      Index = 11;
    } // c_BRMC1_ISARHIV : Column
    object 'c_BRMC1_TEKMCKA_Наличие' : Column {
      Index = 12;
    } // c_BRMC1_TEKMCKA_Наличие : Column
  } // BRMC1 : Browser
  object BRMC1_ : Browser {
    object 'c_BRMC1_KATMC.BARKOD2#1' : Column {
      Title = ^C'Дополнительный код';
      HelpLine = 'Дополнительный код матценности';
    } // c_BRMC1_KATMC.BARKOD2#1 : Column
    object 'c_BRMC1_KATMC.GOST_ГОСТ#1' : Column {
      Visible = False;
    } // c_BRMC1_KATMC.GOST_ГОСТ#1 : Column
  } // BRMC1_ : Browser
  object BRMC2 : Browser {
    object 'c_BRMC2_KATMC.BARKOD2' : Column {
      Title = ^C'Дополнительный код';
      HelpLine = 'Дополнительный код матценности';
    } // c_BRMC2_KATMC.BARKOD2 : Column
    object 'c_BRMC2_KATMC.GOST_ГОСТ' : Column {
      Visible = False;
    } // c_BRMC2_KATMC.GOST_ГОСТ : Column
  } // BRMC2 : Browser
  object BRMC2_ : Browser {
    object 'c_BRMC2_KATMC.BARKOD2#1' : Column {
      Title = ^C'Дополнительный код';
      HelpLine = 'Дополнительный код матценности';
    } // c_BRMC2_KATMC.BARKOD2#1 : Column
    object 'c_BRMC2_KATMC.GOST_ГОСТ#1' : Column {
      Visible = False;
    } // c_BRMC2_KATMC.GOST_ГОСТ#1 : Column
  } // BRMC2_ : Browser
  object WISETSOMECOPYREC : InterfaceWindow {
    Centered = True;
    object SCSETSOMECOPYREC : Screen {
      object cb_SCSETSOMECOPYREC_VLSOMECOPY_MASKRECALC : PanelCheckBox {
        Visible = False;
      } // cb_SCSETSOMECOPYREC_VLSOMECOPY_MASKRECALC : PanelCheckBox
    } // SCSETSOMECOPYREC : Screen
  } // WISETSOMECOPYREC : InterfaceWindow
  object WKATMC : InterfaceWindow {
    object SCR000 : Screen {
      object 'i_SCR000_KATMC.NAME' : PanelInputLine {
        Origin_Y = 62;
      } // i_SCR000_KATMC.NAME : PanelInputLine
      object 'i_SCR000_KATMC.BARKOD2' : PanelInputLine {
        HelpLine = 'Дополнительный код матценности';
      } // i_SCR000_KATMC.BARKOD2 : PanelInputLine
/*	  object 'PNAME' : PanelInputLine {
		Origin_X=176;
		Origin_Y=25;
		Size_X=121;
		Visible=TRUE;
		Protect=TRUE;
		PickButton=TRUE;
		Skip=FALSE;
		//PrecisionVarName = digitToch2;
		//PassiveFormat=[|-]366`666`666`666`666.88');
		MaxLen =200;
		Palette= wpBlueWindow;
  		 HelpLine = 'Эталон';
	   } // PNAME : PanelInputLine*/
    } // SCR000 : Screen
      // Информация: объект "'ExtClass: KATMC,4611855514449782510'" типа PanelInputLine не найден в базовой конфигурации!
    object SCKATMC : Screen {
      object 'ExtClass: KATMC,4611855514449782510' : PanelInputLine {
        Original = False;
        Visible = True;
        Hidden = False;
        Protect = True;
        Skip = False;
        UpCase = False;
        Password = False;
        NoValidCheck = True;
        PickButton = True;
        CalcButton = False;
        Calendar = False;
        LessNull = False;
        StatusCtx = 16;
        Strings = ( // Список строк
        )
        StringsNull = 0;
        HelpLine = '';
        FieldName = 'ExtClass: KATMC,4611855514449782510';
        DefaultValue = '';
        Origin_X = 729;
        Origin_Y = 89;
        Size_X = 101;
        Size_Y = 14;
        TextAlign = 0;
        SpinButton = False;
        SpinInc = 0.0;
        SpinMin = 0.0;
        SpinMax = 0.0;
        NoStatic = False;
        EnumValues = ( // Список целых
        )
        PassiveFormat = '';
        Points = 0;
        MaxLen = 255;
        PrecisionVarName = '';
        HistoryID = 0;
        DropTarget = False;
        DropSource = False;
      } // ExtClass: KATMC,4611855514449782510 : PanelInputLine
      // Информация: объект "'LbExtClass: KATMC,4611855514449782510'" типа Label не найден в базовой конфигурации!
      object 'LbExtClass: KATMC,4611855514449782510' : Label {
        Original = False;
        Title = 'коллекция';
        Visible = True;
        Hidden = False;
        HelpLine = '';
        Origin_X = 838;
        Origin_Y = 88;
        Size_X = 56;
        Size_Y = 14;
      } // LbExtClass: KATMC,4611855514449782510 : Label
      // Информация: объект "'LbExtClass: KATMC,4611846490787741194'" типа Label не найден в базовой конфигурации!
      object 'LbExtClass: KATMC,4611846490787741194' : Label {
        Original = False;
        Title = 'цветность';
        Visible = True;
        Hidden = False;
        HelpLine = '';
        Origin_X = 844;
        Origin_Y = 114;
        Size_X = 56;
        Size_Y = 14;
      } // LbExtClass: KATMC,4611846490787741194 : Label
      // Информация: объект "'ExtClass: KATMC,4611903523662286195'" типа PanelInputLine не найден в базовой конфигурации!
      object 'ExtClass: KATMC,4611903523662286195' : PanelInputLine {
        Original = False;
        Visible = True;
        Hidden = False;
        Protect = True;
        Skip = False;
        UpCase = False;
        Password = False;
        NoValidCheck = True;
        PickButton = True;
        CalcButton = False;
        Calendar = False;
        LessNull = False;
        StatusCtx = 16;
        Strings = ( // Список строк
        )
        StringsNull = 0;
        HelpLine = '';
        FieldName = 'ExtClass: KATMC,4611903523662286195';
        DefaultValue = '';
        Origin_X = 737;
        Origin_Y = 146;
        Size_X = 101;
        Size_Y = 14;
        TextAlign = 0;
        SpinButton = False;
        SpinInc = 0.0;
        SpinMin = 0.0;
        SpinMax = 0.0;
        NoStatic = False;
        EnumValues = ( // Список целых
        )
        PassiveFormat = '';
        Points = 0;
        MaxLen = 255;
        PrecisionVarName = '';
        HistoryID = 0;
        DropTarget = False;
        DropSource = False;
      } // ExtClass: KATMC,4611903523662286195 : PanelInputLine
      // Информация: объект "'LbExtClass: KATMC,4611903523662286195'" типа Label не найден в базовой конфигурации!
      object 'LbExtClass: KATMC,4611903523662286195' : Label {
        Original = False;
        Title = 'размер';
        Visible = True;
        Hidden = False;
        HelpLine = '';
        Origin_X = 692;
        Origin_Y = 146;
        Size_X = 37;
        Size_Y = 14;
      } // LbExtClass: KATMC,4611903523662286195 : Label
      // Информация: объект "'ExtClass: KATMC,4611928672679651641'" типа PanelInputLine не найден в базовой конфигурации!
      object 'ExtClass: KATMC,4611928672679651641' : PanelInputLine {
        Original = False;
        Visible = True;
        Hidden = False;
        Protect = True;
        Skip = False;
        UpCase = False;
        Password = False;
        NoValidCheck = True;
        PickButton = True;
        CalcButton = False;
        Calendar = False;
        LessNull = False;
        StatusCtx = 16;
        Strings = ( // Список строк
        )
        StringsNull = 0;
        HelpLine = '';
        FieldName = 'ExtClass: KATMC,4611928672679651641';
        DefaultValue = '';
        Origin_X = 738;
        Origin_Y = 196;
        Size_X = 101;
        Size_Y = 14;
        TextAlign = 0;
        SpinButton = False;
        SpinInc = 0.0;
        SpinMin = 0.0;
        SpinMax = 0.0;
        NoStatic = False;
        EnumValues = ( // Список целых
        )
        PassiveFormat = '';
        Points = 0;
        MaxLen = 255;
        PrecisionVarName = '';
        HistoryID = 0;
        DropTarget = False;
        DropSource = False;
      } // ExtClass: KATMC,4611928672679651641 : PanelInputLine
      // Информация: объект "'LbExtClass: KATMC,4611928672679651641'" типа Label не найден в базовой конфигурации!
      object 'LbExtClass: KATMC,4611928672679651641' : Label {
        Original = False;
        Title = 'сорт';
        Visible = True;
        Hidden = False;
        HelpLine = '';
        Origin_X = 705;
        Origin_Y = 196;
        Size_X = 24;
        Size_Y = 14;
      } // LbExtClass: KATMC,4611928672679651641 : Label
      // Информация: объект "'ExtClass: KATMC,4611930064959880075'" типа PanelInputLine не найден в базовой конфигурации!
      object 'ExtClass: KATMC,4611930064959880075' : PanelInputLine {
        Original = False;
        Visible = True;
        Hidden = False;
        Protect = True;
        Skip = False;
        UpCase = False;
        Password = False;
        NoValidCheck = True;
        PickButton = True;
        CalcButton = False;
        Calendar = False;
        LessNull = False;
        StatusCtx = 16;
        Strings = ( // Список строк
        )
        StringsNull = 0;
        HelpLine = '';
        FieldName = 'ExtClass: KATMC,4611930064959880075';
        DefaultValue = '';
        Origin_X = 905;
        Origin_Y = 88;
        Size_X = 101;
        Size_Y = 14;
        TextAlign = 0;
        SpinButton = False;
        SpinInc = 0.0;
        SpinMin = 0.0;
        SpinMax = 0.0;
        NoStatic = False;
        EnumValues = ( // Список целых
        )
        PassiveFormat = '';
        Points = 0;
        MaxLen = 255;
        PrecisionVarName = '';
        HistoryID = 0;
        DropTarget = False;
        DropSource = False;
      } // ExtClass: KATMC,4611930064959880075 : PanelInputLine
      // Информация: объект "'LbExtClass: KATMC,4611930064959880075'" типа Label не найден в базовой конфигурации!
      object 'LbExtClass: KATMC,4611930064959880075' : Label {
        Original = False;
        Title = 'тон';
        Visible = True;
        Hidden = False;
        HelpLine = '';
        Origin_X = 1016;
        Origin_Y = 88;
        Size_X = 18;
        Size_Y = 14;
      } // LbExtClass: KATMC,4611930064959880075 : Label
      // Информация: объект "'ExtClass: KATMC,4611797030685314903'" типа PanelInputLine не найден в базовой конфигурации!
      object 'ExtClass: KATMC,4611797030685314903' : PanelInputLine {
        Original = False;
        Visible = True;
        Hidden = False;
        Protect = True;
        Skip = False;
        UpCase = False;
        Password = False;
        NoValidCheck = True;
        PickButton = True;
        CalcButton = False;
        Calendar = False;
        LessNull = False;
        StatusCtx = 16;
        Strings = ( // Список строк
        )
        StringsNull = 0;
        HelpLine = '';
        FieldName = 'ExtClass: KATMC,4611797030685314903';
        DefaultValue = '';
        Origin_X = 905;
        Origin_Y = 59;
        Size_X = 101;
        Size_Y = 14;
        TextAlign = 0;
        SpinButton = False;
        SpinInc = 0.0;
        SpinMin = 0.0;
        SpinMax = 0.0;
        NoStatic = False;
        EnumValues = ( // Список целых
        )
        PassiveFormat = '';
        Points = 0;
        MaxLen = 255;
        PrecisionVarName = '';
        HistoryID = 0;
        DropTarget = False;
        DropSource = False;
      } // ExtClass: KATMC,4611797030685314903 : PanelInputLine
      // Информация: объект "'LbExtClass: KATMC,4611797030685314903'" типа Label не найден в базовой конфигурации!
      object 'LbExtClass: KATMC,4611797030685314903' : Label {
        Original = False;
        Title = 'калибр';
        Visible = True;
        Hidden = False;
        HelpLine = '';
        Origin_X = 1011;
        Origin_Y = 60;
        Size_X = 35;
        Size_Y = 14;
      } // LbExtClass: KATMC,4611797030685314903 : Label
      // Информация: объект "'ExtClass: KATMC,4611903995874640618'" типа PanelInputLine не найден в базовой конфигурации!
      object 'ExtClass: KATMC,4611903995874640618' : PanelInputLine {
        Original = False;
        Visible = True;
        Hidden = False;
        Protect = True;
        Skip = False;
        UpCase = False;
        Password = False;
        NoValidCheck = True;
        PickButton = True;
        CalcButton = False;
        Calendar = False;
        LessNull = False;
        StatusCtx = 16;
        Strings = ( // Список строк
        )
        StringsNull = 0;
        HelpLine = '';
        FieldName = 'ExtClass: KATMC,4611903995874640618';
        DefaultValue = '';
        Origin_X = 741;
        Origin_Y = 279;
        Size_X = 101;
        Size_Y = 14;
        TextAlign = 0;
        SpinButton = False;
        SpinInc = 0.0;
        SpinMin = 0.0;
        SpinMax = 0.0;
        NoStatic = False;
        EnumValues = ( // Список целых
        )
        PassiveFormat = '';
        Points = 0;
        MaxLen = 255;
        PrecisionVarName = '';
        HistoryID = 0;
        DropTarget = False;
        DropSource = False;
      } // ExtClass: KATMC,4611903995874640618 : PanelInputLine
      // Информация: объект "'LbExtClass: KATMC,4611903995874640618'" типа Label не найден в базовой конфигурации!
      object 'LbExtClass: KATMC,4611903995874640618' : Label {
        Original = False;
        Title = 'доп характ';
        Visible = True;
        Hidden = False;
        HelpLine = '';
        Origin_X = 670;
        Origin_Y = 280;
        Size_X = 63;
        Size_Y = 14;
      } // LbExtClass: KATMC,4611903995874640618 : Label
      // Информация: объект "'ExtClass: KATMC,4611943084654821616'" типа PanelInputLine не найден в базовой конфигурации!
      object 'ExtClass: KATMC,4611943084654821616' : PanelInputLine {
        Original = False;
        Visible = True;
        Hidden = False;
        Protect = True;
        Skip = False;
        UpCase = False;
        Password = False;
        NoValidCheck = True;
        PickButton = True;
        CalcButton = False;
        Calendar = False;
        LessNull = False;
        StatusCtx = 16;
        Strings = ( // Список строк
        )
        StringsNull = 0;
        HelpLine = '';
        FieldName = 'ExtClass: KATMC,4611943084654821616';
        DefaultValue = '';
        Origin_X = 855;
        Origin_Y = 147;
        Size_X = 101;
        Size_Y = 14;
        TextAlign = 0;
        SpinButton = False;
        SpinInc = 0.0;
        SpinMin = 0.0;
        SpinMax = 0.0;
        NoStatic = False;
        EnumValues = ( // Список целых
        )
        PassiveFormat = '';
        Points = 0;
        MaxLen = 255;
        PrecisionVarName = '';
        HistoryID = 0;
        DropTarget = False;
        DropSource = False;
      } // ExtClass: KATMC,4611943084654821616 : PanelInputLine
      // Информация: объект "'LbExtClass: KATMC,4611943084654821616'" типа Label не найден в базовой конфигурации!
      object 'LbExtClass: KATMC,4611943084654821616' : Label {
        Original = False;
        Title = 'линия';
        Visible = True;
        Hidden = False;
        HelpLine = '';
        Origin_X = 962;
        Origin_Y = 146;
        Size_X = 30;
        Size_Y = 14;
      } // LbExtClass: KATMC,4611943084654821616 : Label
      // Информация: объект "'ExtClass: KATMC,4611816991199592288'" типа PanelInputLine не найден в базовой конфигурации!
      object 'ExtClass: KATMC,4611816991199592288' : PanelInputLine {
        Original = False;
        Visible = True;
        Hidden = False;
        Protect = True;
        Skip = False;
        UpCase = False;
        Password = False;
        NoValidCheck = True;
        PickButton = True;
        CalcButton = False;
        Calendar = False;
        LessNull = False;
        StatusCtx = 16;
        Strings = ( // Список строк
        )
        StringsNull = 0;
        HelpLine = '';
        FieldName = 'ExtClass: KATMC,4611816991199592288';
        DefaultValue = '';
        Origin_X = 848;
        Origin_Y = 196;
        Size_X = 101;
        Size_Y = 14;
        TextAlign = 0;
        SpinButton = False;
        SpinInc = 0.0;
        SpinMin = 0.0;
        SpinMax = 0.0;
        NoStatic = False;
        EnumValues = ( // Список целых
        )
        PassiveFormat = '';
        Points = 0;
        MaxLen = 255;
        PrecisionVarName = '';
        HistoryID = 0;
        DropTarget = False;
        DropSource = False;
      } // ExtClass: KATMC,4611816991199592288 : PanelInputLine
      // Информация: объект "'LbExtClass: KATMC,4611816991199592288'" типа Label не найден в базовой конфигурации!
      object 'LbExtClass: KATMC,4611816991199592288' : Label {
        Original = False;
        Title = 'модифик';
        Visible = True;
        Hidden = False;
        HelpLine = '';
        Origin_X = 954;
        Origin_Y = 195;
        Size_X = 45;
        Size_Y = 14;
      } // LbExtClass: KATMC,4611816991199592288 : Label
      // Информация: объект "'ExtClass: KATMC,4611940441085823995'" типа PanelInputLine не найден в базовой конфигурации!
      object 'ExtClass: KATMC,4611940441085823995' : PanelInputLine {
        Original = False;
        Visible = True;
        Hidden = False;
        Protect = True;
        Skip = False;
        UpCase = False;
        Password = False;
        NoValidCheck = True;
        PickButton = True;
        CalcButton = False;
        Calendar = False;
        LessNull = False;
        StatusCtx = 16;
        Strings = ( // Список строк
        )
        StringsNull = 0;
        HelpLine = '';
        FieldName = 'ExtClass: KATMC,4611940441085823995';
        DefaultValue = '';
        Origin_X = 846;
        Origin_Y = 224;
        Size_X = 101;
        Size_Y = 14;
        TextAlign = 0;
        SpinButton = False;
        SpinInc = 0.0;
        SpinMin = 0.0;
        SpinMax = 0.0;
        NoStatic = False;
        EnumValues = ( // Список целых
        )
        PassiveFormat = '';
        Points = 0;
        MaxLen = 255;
        PrecisionVarName = '';
        HistoryID = 0;
        DropTarget = False;
        DropSource = False;
      } // ExtClass: KATMC,4611940441085823995 : PanelInputLine
      // Информация: объект "'LbExtClass: KATMC,4611940441085823995'" типа Label не найден в базовой конфигурации!
      object 'LbExtClass: KATMC,4611940441085823995' : Label {
        Original = False;
        Title = 'нанес рис';
        Visible = True;
        Hidden = False;
        HelpLine = '';
        Origin_X = 960;
        Origin_Y = 223;
        Size_X = 56;
        Size_Y = 14;
      } // LbExtClass: KATMC,4611940441085823995 : Label
      // Информация: объект "'ExtClass: KATMC,4611938835821621589'" типа PanelInputLine не найден в базовой конфигурации!
      object 'ExtClass: KATMC,4611938835821621589' : PanelInputLine {
        Original = False;
        Visible = True;
        Hidden = False;
        Protect = True;
        Skip = False;
        UpCase = False;
        Password = False;
        NoValidCheck = True;
        PickButton = True;
        CalcButton = False;
        Calendar = False;
        LessNull = False;
        StatusCtx = 16;
        Strings = ( // Список строк
        )
        StringsNull = 0;
        HelpLine = '';
        FieldName = 'ExtClass: KATMC,4611938835821621589';
        DefaultValue = '';
        Origin_X = 850;
        Origin_Y = 251;
        Size_X = 101;
        Size_Y = 14;
        TextAlign = 0;
        SpinButton = False;
        SpinInc = 0.0;
        SpinMin = 0.0;
        SpinMax = 0.0;
        NoStatic = False;
        EnumValues = ( // Список целых
        )
        PassiveFormat = '';
        Points = 0;
        MaxLen = 255;
        PrecisionVarName = '';
        HistoryID = 0;
        DropTarget = False;
        DropSource = False;
      } // ExtClass: KATMC,4611938835821621589 : PanelInputLine
      // Информация: объект "'LbExtClass: KATMC,4611938835821621589'" типа Label не найден в базовой конфигурации!
      object 'LbExtClass: KATMC,4611938835821621589' : Label {
        Original = False;
        Title = 'декор';
        Visible = True;
        Hidden = False;
        HelpLine = '';
        Origin_X = 969;
        Origin_Y = 251;
        Size_X = 29;
        Size_Y = 14;
      } // LbExtClass: KATMC,4611938835821621589 : Label
      // Информация: объект "'ExtClass: KATMC,4611842909555051194'" типа PanelInputLine не найден в базовой конфигурации!
      object 'ExtClass: KATMC,4611842909555051194' : PanelInputLine {
        Original = False;
        Visible = True;
        Hidden = False;
        Protect = True;
        Skip = False;
        UpCase = False;
        Password = False;
        NoValidCheck = True;
        PickButton = True;
        CalcButton = False;
        Calendar = False;
        LessNull = False;
        StatusCtx = 16;
        Strings = ( // Список строк
        )
        StringsNull = 0;
        HelpLine = '';
        FieldName = 'ExtClass: KATMC,4611842909555051194';
        DefaultValue = '';
        Origin_X = 852;
        Origin_Y = 279;
        Size_X = 101;
        Size_Y = 14;
        TextAlign = 0;
        SpinButton = False;
        SpinInc = 0.0;
        SpinMin = 0.0;
        SpinMax = 0.0;
        NoStatic = False;
        EnumValues = ( // Список целых
        )
        PassiveFormat = '';
        Points = 0;
        MaxLen = 255;
        PrecisionVarName = '';
        HistoryID = 0;
        DropTarget = False;
        DropSource = False;
      } // ExtClass: KATMC,4611842909555051194 : PanelInputLine
      // Информация: объект "'LbExtClass: KATMC,4611842909555051194'" типа Label не найден в базовой конфигурации!
      object 'LbExtClass: KATMC,4611842909555051194' : Label {
        Original = False;
        Title = 'рельеф';
        Visible = True;
        Hidden = False;
        HelpLine = '';
        Origin_X = 960;
        Origin_Y = 281;
        Size_X = 38;
        Size_Y = 14;
      } // LbExtClass: KATMC,4611842909555051194 : Label
      // Информация: объект "'ExtClass: KATMC,4611712881809552654'" типа PanelInputLine не найден в базовой конфигурации!
      object 'ExtClass: KATMC,4611712881809552654' : PanelInputLine {
        Original = False;
        Visible = True;
        Hidden = False;
        Protect = True;
        Skip = False;
        UpCase = False;
        Password = False;
        NoValidCheck = True;
        PickButton = True;
        CalcButton = False;
        Calendar = False;
        LessNull = False;
        StatusCtx = 16;
        Strings = ( // Список строк
        )
        StringsNull = 0;
        HelpLine = '';
        FieldName = 'ExtClass: KATMC,4611712881809552654';
        DefaultValue = '';
        Origin_X = 739;
        Origin_Y = 316;
        Size_X = 101;
        Size_Y = 14;
        TextAlign = 0;
        SpinButton = False;
        SpinInc = 0.0;
        SpinMin = 0.0;
        SpinMax = 0.0;
        NoStatic = False;
        EnumValues = ( // Список целых
        )
        PassiveFormat = '';
        Points = 0;
        MaxLen = 255;
        PrecisionVarName = '';
        HistoryID = 0;
        DropTarget = False;
        DropSource = False;
      } // ExtClass: KATMC,4611712881809552654 : PanelInputLine
      // Информация: объект "'LbExtClass: KATMC,4611712881809552654'" типа Label не найден в базовой конфигурации!
      object 'LbExtClass: KATMC,4611712881809552654' : Label {
        Original = False;
        Title = 'ящик';
        Visible = True;
        Hidden = False;
        HelpLine = '';
        Origin_X = 697;
        Origin_Y = 315;
        Size_X = 25;
        Size_Y = 14;
      } // LbExtClass: KATMC,4611712881809552654 : Label
      // Информация: объект "'ExtClass: KATMC,4611906877282337132'" типа PanelInputLine не найден в базовой конфигурации!
      object 'ExtClass: KATMC,4611906877282337132' : PanelInputLine {
        Original = False;
        Visible = True;
        Hidden = False;
        Protect = True;
        Skip = False;
        UpCase = False;
        Password = False;
        NoValidCheck = True;
        PickButton = True;
        CalcButton = False;
        Calendar = False;
        LessNull = False;
        StatusCtx = 16;
        Strings = ( // Список строк
        )
        StringsNull = 0;
        HelpLine = '';
        FieldName = 'ExtClass: KATMC,4611906877282337132';
        DefaultValue = '';
        Origin_X = 835;
        Origin_Y = 348;
        Size_X = 180;
        Size_Y = 14;
        TextAlign = 0;
        SpinButton = False;
        SpinInc = 0.0;
        SpinMin = 0.0;
        SpinMax = 0.0;
        NoStatic = False;
        EnumValues = ( // Список целых
        )
        PassiveFormat = '';
        Points = 0;
        MaxLen = 255;
        PrecisionVarName = '';
        HistoryID = 0;
        DropTarget = False;
        DropSource = False;
      } // ExtClass: KATMC,4611906877282337132 : PanelInputLine
      // Информация: объект "'LbExtClass: KATMC,4611906877282337132'" типа Label не найден в базовой конфигурации!
      object 'LbExtClass: KATMC,4611906877282337132' : Label {
        Original = False;
        Title = 'группа пр/.листа';
        Visible = True;
        Hidden = False;
        HelpLine = '';
        Origin_X = 718;
        Origin_Y = 348;
        Size_X = 105;
        Size_Y = 14;
      } // LbExtClass: KATMC,4611906877282337132 : Label
      // Информация: объект "'ExtClass: KATMC,4611717391027351391#1'" типа PanelInputLine не найден в базовой конфигурации!
      object 'ExtClass: KATMC,4611717391027351391#1' : PanelInputLine {
        Original = False;
        Visible = True;
        Hidden = False;
        Protect = True;
        Skip = False;
        UpCase = False;
        Password = False;
        NoValidCheck = True;
        PickButton = True;
        CalcButton = False;
        Calendar = False;
        LessNull = False;
        StatusCtx = 16;
        Strings = ( // Список строк
        )
        StringsNull = 0;
        HelpLine = '';
        FieldName = 'ExtClass: KATMC,4611717391027351391';
        DefaultValue = '';
        Origin_X = 725;
        Origin_Y = 60;
        Size_X = 101;
        Size_Y = 14;
        TextAlign = 0;
        SpinButton = False;
        SpinInc = 0.0;
        SpinMin = 0.0;
        SpinMax = 0.0;
        NoStatic = False;
        EnumValues = ( // Список целых
        )
        PassiveFormat = '';
        Points = 0;
        MaxLen = 255;
        PrecisionVarName = '';
        HistoryID = 0;
        DropTarget = False;
        DropSource = False;
      } // ExtClass: KATMC,4611717391027351391#1 : PanelInputLine
      // Информация: объект "'LbExtClass: KATMC,4611717391027351391#1'" типа Label не найден в базовой конфигурации!
      object 'LbExtClass: KATMC,4611717391027351391#1' : Label {
        Original = False;
        Title = 'тип прод';
        Visible = True;
        Hidden = False;
        HelpLine = '';
        Origin_X = 836;
        Origin_Y = 61;
        Size_X = 49;
        Size_Y = 14;
      } // LbExtClass: KATMC,4611717391027351391#1 : Label
      // Информация: объект "'ExtClass: KATMC,4611765472848196309'" типа PanelInputLine не найден в базовой конфигурации!
      object 'ExtClass: KATMC,4611765472848196309' : PanelInputLine {
        Original = False;
        Visible = True;
        Hidden = False;
        Protect = True;
        Skip = False;
        UpCase = False;
        Password = False;
        NoValidCheck = True;
        PickButton = True;
        CalcButton = False;
        Calendar = False;
        LessNull = False;
        StatusCtx = 16;
        Strings = ( // Список строк
        )
        StringsNull = 0;
        HelpLine = '';
        FieldName = 'ExtClass: KATMC,4611765472848196309';
        DefaultValue = '';
        Origin_X = 725;
        Origin_Y = 26;
        Size_X = 101;
        Size_Y = 14;
        TextAlign = 0;
        SpinButton = False;
        SpinInc = 0.0;
        SpinMin = 0.0;
        SpinMax = 0.0;
        NoStatic = False;
        EnumValues = ( // Список целых
        )
        PassiveFormat = '';
        Points = 0;
        MaxLen = 255;
        PrecisionVarName = '';
        HistoryID = 0;
        DropTarget = False;
        DropSource = False;
      } // ExtClass: KATMC,4611765472848196309 : PanelInputLine
      // Информация: объект "'LbExtClass: KATMC,4611765472848196309'" типа Label не найден в базовой конфигурации!
      object 'LbExtClass: KATMC,4611765472848196309' : Label {
        Original = False;
        Title = 'свойства ГП';
        Visible = True;
        Hidden = False;
        HelpLine = '';
        Origin_X = 849;
        Origin_Y = 30;
        Size_X = 70;
        Size_Y = 11;
      } // LbExtClass: KATMC,4611765472848196309 : Label
    } // SCKATMC : Screen
    object SCKATMC_SKLAD : Screen {
      object 'i_SCKATMC_SKLAD_KATMC.MASSA' : PanelInputLine {
        StatusCtx = 6911;
      } // i_SCKATMC_SKLAD_KATMC.MASSA : PanelInputLine
      object 'i_SCKATMC_SKLAD_KATMC.MTARA' : PanelInputLine {
        StatusCtx = 6911;
      } // i_SCKATMC_SKLAD_KATMC.MTARA : PanelInputLine
      object i_SCKATMC_SKLAD_FBRUTTO : PanelInputLine {
        StatusCtx = 6911;
      } // i_SCKATMC_SKLAD_FBRUTTO : PanelInputLine
    } // SCKATMC_SKLAD : Screen
    object SCKATMC_TORG : Screen {
      object 'i_SCKATMC_TORG_KATMC.BONUS_PR' : PanelInputLine {
        Skip = True;
      } // i_SCKATMC_TORG_KATMC.BONUS_PR : PanelInputLine
      object 'i_SCKATMC_TORG_KATMC.NORMUB' : PanelInputLine {
        StatusCtx = 6901;
      } // i_SCKATMC_TORG_KATMC.NORMUB : PanelInputLine
    } // SCKATMC_TORG : Screen
    object SCKATMC_MANUF : Screen {
      object 'i_SCKATMC_MANUF_KATMC.GOST' : PanelInputLine {
        Visible = False;
      } // i_SCKATMC_MANUF_KATMC.GOST : PanelInputLine
      object 'i_SCKATMC_MANUF_KATOTPED2.NAME' : PanelInputLine {
        Visible = False;
      } // i_SCKATMC_MANUF_KATOTPED2.NAME : PanelInputLine
    } // SCKATMC_MANUF : Screen
  } // WKATMC : InterfaceWindow
} // L_MCU::KATMC : InterfaceWindow
//-----------------------------------------------------------------------------

BlazeBio · Сообщение **BlazeBio** » 31 авг 2010, 20:06

Заменил поле pname на табличное ppkatstan.name - стал рабоать cmDelProtect, но появилась другая проблема: выбираю МЦ, таблица katmc, которая связана с таблицей ppkatstan через таблицу св\зи ppkatstanmc(ppkatstanmc.cmc) - всё нормально отображается в SCR000 -есть нужный ppkatstan.name, выбираю другую из списка, для которой ppkatstanmc.cmc=0, то в sCR000 отображается ppkatstan.name предыдущей МЦ. Если сначала выбрать МЦ, на которую нет ссылки, то поле ppkatstan.name пусто; если выбрать другую МЦ, то отображается в SCR000 нужный ppkatstan.name; если опять выбрать первую МЦ, то опять отображается ppkatstan.name из второй МЦ; если выбрать следующую МЦ, в которой ppkatstanmc.cmc=0, то все равно отображается ppkatstan.name из второй МЦ. Всё как-то таким образом. Создаётся впечатление, что значение ppkatstan.name запоминается где-то в буффере, и если ppkatstan.cmc=0, то берётся значение ppkatstan.name последней выбранной МЦ, у которой ppkatstanmc.cmc<>0. Ещё такая особенность, что значения ppkatstan.name просто отображаюся у тех МЦ, у которых ppkatstanmc.cm=0, в базе связи между нет.

Поэтому или pname, в котором не работает cmDelOnProtect или ppkastan.name, в котором значение не корректно отображается. И оба варианата в таком виде не годятся... Что делать?

edward_K · Сообщение **edward_K** » 31 авг 2010, 22:56

в rescanpanel указывается решетка+имя главной таблицы окна(sCR000) - конфигуратор вам поможет определить точно.

Alpiton · Сообщение **Alpiton** » 01 сен 2010, 05:19

Убрал из кода упоминание ppkatstan, скомпилил - cmDelOnProtect работает

Галактика в вопросах и ответах

cmDelOnProtect...

cmDelOnProtect...

Re: cmDelOnProtect...

Re: cmDelOnProtect...

Re: cmDelOnProtect...

Re: cmDelOnProtect...

Re: cmDelOnProtect...

Re: cmDelOnProtect...

Re: cmDelOnProtect...

Re: cmDelOnProtect...

Re: cmDelOnProtect...

Re: cmDelOnProtect...

Re: cmDelOnProtect...

Re: cmDelOnProtect...

Re: cmDelOnProtect...

Re: cmDelOnProtect...