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

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

interface korvana_protokol ;

create view protokol

as select * 
from
katmc
,attrnam
,attrval    
where 
((
word(1411)==attrnam.wtable 
and 'Код для протокола'==attrnam.name
and word(1411)==attrval.wtable 
and katmc.nrec==attrval.crec
and attrnam.nrec==attrval.cattrnam
))
//Order by katmc.name
;
screen params 
show at(,,,3);
buttons 
cmOK, default;
cmCancel;
<<       
 <.Формировать.>  <.  Закрыть  .>
>>
end;

Handleevent
 
cminit:
{

}
//ok-start

////////////////////////////////////////
cmOk:
{
var filename:string;
var kol:longint;

kol:=1;


//sozdaem fail

filename:=GetStringParameter('Files','OutputFilesDirectory',0)+'КОДДЛЯПРОТОКОЛА'+DatetoStr(cur_Date,'DDMMYYYY')+'.xls';
xlCreateExcel(filename,true);
StartNewVisual(vtRotateVisual, vfTimer+vfBreak+vfConfirm,'ЗАПОЛНЯЮ ТАБЛИЦУ ОЖИДАЙТЕ ...', RecordsInTable(#katmc));
_loop katmc
{

xlSetCellStringValue(katmc.name,kol,1,kol,1);
xlSetCellStringValue(KATMC.BARKOD,kol,3,kol,3);


if(attrval.vdouble<>1 or attrval.vdouble<>2 or attrval.vdouble<>3 or attrval.vdouble<>11 or attrval.vdouble<>12 or attrval.vdouble<>13) then
   xlSetCellStringValue('отстутствует',kol,2,kol,2);
else
    xlSetCellStringValue(attrval.vdouble,kol,2,kol,2);
kol:=kol+1;
}
StopVisual('Ну вот и все ',0);
xlSetColumnWidth(30,1,1,kol+1,2);//устанавливаем ширину колонок
xlKillExcel;

}

cmDefault : 
{ 
CloseInterface ( cmDefault );
};

end;

end.

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

browse b1
table katmc
fields
   katmc.name;
   attrval.vdouble;
end;

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

integer(attrval.vdouble)<>1

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

if (IsValid(tnATTRVAL))  {
  if(attrval.vdouble<>1 or attrval.vdouble<>2 or attrval.vdouble<>3 or
     attrval.vdouble<>11 or attrval.vdouble<>12 or attrval.vdouble<>13)
  then 
    xlSetCellStringValue('отстутствует',kol,2,kol,2); 
  else 
    xlSetCellStringValue(attrval.vdouble,kol,2,kol,2); 
  }
else
  xlSetCellStringValue('полностью отстутствует',kol,2,kol,2);