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

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

declare curMain cursor local for
-- Копирование системных настроек из одного филиала в другой  
select tm.f$ctune, tm.f$longval, tm.f$doubleval, tm.f$dateval, tm.f$compval, tm.f$strval, tm.f$isempty, tm.f$strempty 
from t$tuneval tm where tm.f$cuser = 0x8000000000000000 and tm.f$obj = 1000000 
and (select f$nrec from t$tuneval te where te.f$cuser = tm.f$cuser and te.f$ctune = tm.f$ctune and te.f$obj = 2000000) is null
declare @Obj int, 
		--Параметры курсоров
		@ctune binary(8), @longval int, @doubleval decimal(31,15), @dateval int, @compval binary(8), @strval varchar(max), 
		@isempty int, @strempty varchar(max),
		--Переменные для заполнения служебных полей в новых записях
		@newNrec binary(8),
		@newAtl_LastDate int,
		@newAtl_LastTime int,
		@newAtl_LastUser binary(8),
		@newAtl_OriginOffice int
set @Obj = 2000000	/*Ekb*/	
open curMain;
print 'Всего записей в курсоре = '+cast(@@CURSOR_ROWS as varchar);
	fetch next from curMain into @ctune, @longval, @doubleval, @dateval, @compval, @strval, @isempty, @strempty	
if (@@FETCH_STATUS < 0) print 'The cursor "curMain" is empty..';
	while (@@FETCH_STATUS = 0)
	begin
	exec dbo.getRecordInitData 30502/*tuneval*/, @newNrec out, @newAtl_LastDate out, @newAtl_LastTime out,
								@newAtl_LastUser out, @newAtl_OriginOffice out;
							insert into T$tuneval (F$NREC, F$ATL_LASTDATE, F$ATL_LASTTIME, F$ATL_LASTUSER, F$ATL_ORIGINOFFICE, F$ATL_OWNER,
								F$Ctune, F$obj, F$cuser, F$longval, F$doubleval, F$dateval, F$Timeval, F$compval, F$strval, F$isempty, F$Strempty,
								F$coffice, F$typeoffice)
							values(
								/*Nrec            */	@newNrec,
								/*Atl_LastDate    */	@newAtl_LastDate,
								/*Atl_LastTime    */	@newAtl_LastTime,
								/*Atl_LastUser    */	@newAtl_LastUser,
								/*Atl_OriginOffice*/	@newAtl_OriginOffice,
								/*Atl_Owner		  */	@newAtl_LastUser,
								/*F$Ctune         */	ISNULL(@ctune, 0x8000000000000000),
								/*F$obj			  */    @obj,
								/*F$Cuser		  */	0x8000000000000000,
								/*F$longval		  */	@longval,
								/*F$Doubleval	  */	@doubleval,
								/*F$dateval		  */	@dateval,
								/*F$TImeval		  */	0,
								/*F$compval		  */	ISNULL(@compval, 0x8000000000000000),
								/*F$strval		  */	@strval,
								/*F$isempty       */	@isempty,
								/*F$strempty      */	@strempty,
								/*F$coffice		  */	0x8000000000000000,
								/*F$typeoffice    */	0
							);
	fetch next from curMain into @ctune, @longval, @doubleval, @dateval, @compval, @strval, @isempty, @strempty
    end	
close curMain; deallocate curMain;

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

      result := Delete TuneRgh where ((ttTmpUser              == TuneRgh.TypeRgh
                                   and ttConstTypeOfficeGroup == TuneRgh.TypeOffice
                                   and _cUser                 == TuneRgh.cOffice
                                   and 0                      == TuneRgh.cRec
                                   and _cTune                 == TuneRgh.cTune
                                   and 0                      == TuneRgh.cUser));

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

      result := Delete TuneRgh where ((ttTmpUser == TuneRgh.TypeRgh
                                   and _Obj      == TuneRgh.Obj
                                   and _cUser    == TuneRgh.cRec
                                   and _cTune    == TuneRgh.cTune));

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

    case LNT_ItemName of
      'MANUFPLAN'   : vwModule := rars_Module_MnfPlan;
      'SALEPLAN'    : vwModule := rars_Module_UprZakaz;
      'SUPPLYPLAN'  : vwModule := rars_Module_MTO;
      'MANUFACTURE' : vwModule := rars_Module_UMP;
      'COPLAN'      : vwModule := rars_Module_CorpoPlan;
      'MENUAVT'     : vwModule := rars_Module_Transp;
    else
      vwModule := rars_Module_BOM;
    end; //case

    voRARSDisp.InitInter(vwModule);

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

  if (Not iRARS.InitInter(0))
    Message('Ошибка при инициализации системы разграничения прав доступа', Error);

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

R_ROLE(11273)
R_ROLERIGHTS(11275)
R_MODROLE(11274)
R_USERS(11276)
R_WORKPLACE(11281)