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

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

[DataBase]
DataBaseName=GAL
DataBaseDriver=ORA90DRV.DLL

[SQLDriver]
 DropUnusedLogins=on
 SQLServer=gal810e
 ForceRights=On

[Configurator]
Enabled=on
Designer=ON
ExpertMode=ON

[VIP]
VisibleAllInterface=On

[System]
AppCaptionSet=1

[Login]
UserName=%USERNAME%

[galaxy]
//nowRun=C_Tune::Test

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

interface Test '' escclose, DoAccept;

Create View vwMain1
var a   :  string;
;

HandleEvent
   cmInit : {
      dSetTune('tekmonth', date(01,10,2013));
      message(dGetTune('tekmonth'));
      closeInterface( cmCancel ) ;
  		Abort; Exit;
     }
end;

end.