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

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

cmExprFieldChanged :
{
  if inherited:: handleEvent (cmExprFieldChanged) = heOk then
    {
      case curfield of
      ... 
        #CLAIM_PRICE_:
         {
           if claim.kol = 0 then {message('Изменилась цена!');   // Нормально
         }
       #CLAIM.KOL_:
         {                                                                              //Нет реакции
         } 
      end;
   }
}

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

TreeBrowser ClaimTree 'Спецификация'
TreeColumn c_CLAIMTREE_CLAIM_WPOS_N #252
TreeColumn c_CLAIMTREE_PRMC
TreeColumn c_CLAIMTREE_KATNOTES_.SNAME_Статус_позиции 'Статус'^M'позиции'
TreeColumn c_CLAIMTREE_CLAIMGROUPNAME_Наименование_группы 'Наименование'^M'группы'
TreeColumn c_CLAIMTREE_CLAIMGROUPCODE_Код_группы 'Код'^M'группы'
TreeColumn c_CLAIMTREE_SPECIFICATIONNAME_Наименование_ресурса 'Наименование'^M'ресурса'
TreeColumn c_CLAIMTREE_SPECIFICATIONBAR_Номенклатурный_номер 'Номенклатурный'^M'номер'
TreeColumn c_CLAIMTREE_CONSTRUCTIONSIGN_Конструкторское_обозначение 'Конструкторское'^M'обозначение'
TreeColumn c_CLAIMTREE_CLAIM_DSTART_Дата_приёма 'Дата'^M'приёма'
TreeColumn c_CLAIMTREE_CLAIM_DFINISH_Дата_исполнения 'Дата'^M'исполнения'
TreeColumn c_CLAIMTREE_EDNAME_Ед._изм. 'Ед.'^M'изм.'
TreeColumn c_CLAIMTREE_CLAIM.KOL_Кол-во 'Кол-во'
TreeColumn c_CLAIMTREE_CLAIM_PRICE_Цена 'Цена'
TreeColumn c_CLAIMTREE_CLAIM_SUMMA_Сумма 'Сумма'
TreeColumn c_CLAIMTREE_CLAIM_DISCOUNT_Скидка 'Скидка'
TreeColumn c_CLAIMTREE_FANAL1_Аналитика_1 'Аналитика 1'
TreeColumn c_CLAIMTREE_FANAL2_Аналитика_2 'Аналитика 2'
TreeColumn c_CLAIMTREE_FANAL3_Аналитика_3 'Аналитика 3'
TreeColumn c_CLAIMTREE_FANAL4_Аналитика_4 'Аналитика 4'
TreeColumn c_CLAIMTREE_FANAL5_Аналитика_5 'Аналитика 5'
TreeColumn c_CLAIMTREE_VALUE1_Дополнительное_поле_1 'Дополнительное поле 1'
TreeColumn c_CLAIMTREE_VALUE2_Дополнительное_поле_2 'Дополнительное поле 2'
TreeColumn c_CLAIMTREE_VALUE3_Дополнительное_поле_3 'Дополнительное поле 3'
TreeColumn c_CLAIMTREE_VALUE4_Дополнительное_поле_4 'Дополнительное поле 4'
TreeColumn c_CLAIMTREE_VALUE5_Дополнительное_поле_5 'Дополнительное поле 5'
TreeColumn c_CLAIMTREE_FOOTDYNAMIC1_Расчётное_поле_1 'Расчётное'^M'поле 1'
TreeColumn c_CLAIMTREE_FOOTDYNAMIC2_Расчётное_поле_2 'Расчётное'^M'поле 2'
TreeColumn c_CLAIMTREE_FOOTDYNAMIC3_Расчётное_поле_3 'Расчётное'^M'поле 3'
TreeColumn c_CLAIMTREE_FOOTDYNAMIC4_Расчётное_поле_4 'Расчётное'^M'поле 4'
TreeColumn c_CLAIMTREE_FOOTDYNAMIC5_Расчётное_поле_5 'Расчётное'^M'поле 5'

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

fields
  Claim.Kol'Кол-во'('Количество для исполнения',,sci178Esc):[11,3], noprotect;
  [Claim_Price_]if(5=5,Claim.Price,0)'Цена'('Цена за единицу',,sci178Esc):[11,2],noProtect;
  [Claim_Summa_]if(7=7,Claim.Summa,0)'Сумма'('Сумма по позиции',,sci178Esc):[13,2],noProtect;
  [Claim_Discount_]if(3=3,Claim.Discount,0)'Скидка'('Скидка по позиции',,sci1378Esc):[6,2],noProtect, pickbutton;
end

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

cmExprFieldChanged :
{
  if inherited:: handleEvent (cmExprFieldChanged) = heOk then
    {
      case curfield of
      ...
        #CLAIM_PRICE_:
         {
           if claim.kol = 0 then {message('Изменилась цена!');   // Нормально
         }
       #CLAIM.KOL:
         { message('Claim.kol!');                                                                            //Нет реакции
         } 

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

Panel specClaim table Claim;
HandleEvent
cmCheckField:
 {
   if inherited::handleEvent(cmCheckField) = heOk then
    {
     case curfield of #CLAIM.KOL:{message('Claim.kol!');}
     end;
   }
 }
end;
end;

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

if cfsGetObjInfo('ClaimTree', cur_obj, l04, cont_inf, aObjType) = cfOk then
        {if cfsSetProp(l04, cfpRectB_Y, word(15))  <> cfOk

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

Panel Panel_;
  Table t_claim
  browse bmnpl
  show at (5, 18,30 ,19 )
  fields
      t_claim.ddate 'Дата'  : [10], protect;
      t_claim.cena  'Цена'           : [10], protect;
      t_claim.nacemka 'Наценка, %'    : [10], protect;
  end;
end;