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

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

#component "**"
Interface StartInterfasce 'Введите данные';
show at (0,0,32,8);
create view;
Var
dstart,dend:date;
_Period:word;
_Year:integer;
_DataInterval:string;

Parameters
    dstart,dend;

screen a1;
NoTableNavigation;
Fields
  _Period : noProtect ;
  _Year: NoProtect, spinButton[1, 1990,2050];
Buttons
  buttons
    cmBtOk;
    cmCancel,,,'Выход';
<< 'Диалоговое окно'
  `Период`          `Год`
  [.] 1 Квартал `   .@@@@@
  [.] 2 Квартал `
  [.] 3 Квартал `
  [.] 4 Квартал `
  
  <. OK .>  <. Выход .>
>>
end;
handleevent
//*************************************************************************
 cmInit : 
  {
   _Year := Year(Cur_Date());
  }
//*************************************************************************
 cmPick :
  {
    //case CurField of
    //#_Period:
	// {
	// }
	// end;
  }
//*************************************************************************
 cmBtOk:
  {
     CloseInterface(cmOk);
     stop;
   }
//*************************************************************************
  end;
end.

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

#component "**"
interface GetInfo AlwaysReturn;
 var
 _dstart,_dend:date;
 create view select * from 
             ;
 Parameters
 	 _dstart,_dend;

HandleEvent
 cmInit:
 {
  LogStrToFile('c:001s.txt','****************************************************');
  LogStrToFile('c:001s.txt','st02 - '+Cur_Time());
  
  delete all from Tab073;
  Tab073._s13:=0;
  insert current Tab073;
  update current Tab073;
  

  LogStrToFile('c:001s.txt','ed02 - '+Cur_Time());
  mtChangeRefCount(#Tab073,1)
  CloseInterface(cmDefault);
  stop;
 }
 end; //HandleEvent
end.