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

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

create view
from ListExIm
order s_LDate   by LDate
order s_LStatus by LStatus
;

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

browse br_Head;
show(,,61,17);
Table ListExIm;

Fields
ListExIm.LDate  'Дата':[15] ,Protect,{font={bold=False;color = GetColor(ListExIm.LStatus)}};
 if(ListExIm.LType=1,'ТИП1','ТИП2')  'Тип':[20] ,Protect,{font={bold=False;color = GetColor(ListExIm.LStatus)}};
end;

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

HandleEvent
 /************************Смена сортировки*****************************/
 cmColumnClicked:
 {
  case Target of
   #ListExIm.LType :
   {
    SetOrder(tis_LType);
	SetTableBackOrderIn(tnListExIm,GetColumnSorting(br_Head,Target)=1);
	SetColumnSorting(br_Head,Target,if(GetColumnSorting(br_Head,Target)=0,1,GetColumnSorting(br_Head,Target)*(-1)));
	RereadRecord;
   };
   #ListExIm.LDate :
   {
    SetOrder(tis_LDate);
	SetTableBackOrderIn(tnListExIm,GetColumnSorting(br_Head,Target)=1);
	SetColumnSorting(br_Head,Target,if(GetColumnSorting(br_Head,Target)=0,1,GetColumnSorting(br_Head,Target)*(-1)));
	RereadRecord;
   };
  end;
};

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

create view
as select
 if(ListExIm.LType=1,'ТИП1','ТИП2') (fieldname = fldType)

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

browse brName
fields
...
[fldType]  if(ListExIm.LType=1,'ТИП1','ТИП2')  'Тип':[20] ,Protect,{font={bold=False;color = GetColor(ListExIm.LStatus)}};

end;