delete from Relations
where lcase(TableName) = lcase('v_RegisterBG')

go

INSERT INTO Relations (TableName,ColName,BGTableName,BGColName,RelationTable,RelationCol,SelectCol,N,Function,Suma,Mask,Align,Sortirane,Zadaljitelna,Promenliva,FilterList,DftFilter,Shirina,Opisanie,DftLike,AutoStretch,Spravka,PoslData) VALUES('v_RegisterBG','__OPTIONS__','ÐÅÃÈÑÒÚÐ ÁÚËÃÀÐÈ','__OPTIONS__','ÐÅÃÈÑÒÚÐ ÁÚËÃÀÐÈ','__OPTIONS__','1',GetFreeNInRelations('ÐÅÃÈÑÒÚÐ ÁÚËÃÀÐÈ', Null, Null, 10),'__OPTIONS__','','','0','0','','','','','1','','0','0','1',today(*))

GO

INSERT INTO Relations (TableName,ColName,BGTableName,BGColName,RelationTable,RelationCol,SelectCol,N,Function,Suma,Mask,Align,Sortirane,Zadaljitelna,Promenliva,FilterList,DftFilter,Shirina,Opisanie,DftLike,AutoStretch,Spravka,PoslData) VALUES('v_RegisterBG','ArriveDate','ÐÅÃÈÑÒÚÐ ÁÚËÃÀÐÈ','Çà äàòà','ÐÅÃÈÑÒÚÐ ÁÚËÃÀÐÈ','ArriveDate','2',GetFreeNInRelations('ÐÅÃÈÑÒÚÐ ÁÚËÃÀÐÈ', Null, Null, 10),'ArriveDate','','','0','0','1','','','select current date','1','','0','0','1',today(*))

GO

INSERT INTO Relations (TableName,ColName,BGTableName,BGColName,RelationTable,RelationCol,SelectCol,N,Function,Suma,Mask,Align,Sortirane,Zadaljitelna,Promenliva,FilterList,DftFilter,Shirina,Opisanie,DftLike,AutoStretch,Spravka,PoslData) VALUES('v_RegisterBG','GuestNum','ÐÅÃÈÑÒÚÐ ÁÚËÃÀÐÈ','Ðåã. Í.','ÐÅÃÈÑÒÚÐ ÁÚËÃÀÐÈ','Reg. #','2',GetFreeNInRelations('ÐÅÃÈÑÒÚÐ ÁÚËÃÀÐÈ', Null, Null, 10),'GuestNum','','','0','0','','','','','40','','0','0','1',today(*))

GO

INSERT INTO Relations  (TableName,ColName,BGTableName,BGColName,RelationTable,RelationCol,SelectCol,N,Function,Suma,Mask,Align,Sortirane,Zadaljitelna,Promenliva,FilterList,DftFilter,Shirina,Opisanie,DftLike,AutoStretch,Spravka,PoslData) VALUES('v_RegisterBG','RoomName','ÐÅÃÈÑÒÚÐ ÁÚËÃÀÐÈ','Ñòàÿ','ÐÅÃÈÑÒÚÐ ÁÚËÃÀÐÈ','RoomName','2',GetFreeNInRelations('ÐÅÃÈÑÒÚÐ ÁÚËÃÀÐÈ', Null, Null, 10),'RoomName','','','0','0','','','','','40','','0','0','1',today(*))

GO

INSERT INTO Relations  (TableName,ColName,BGTableName,BGColName,RelationTable,RelationCol,SelectCol,N,Function,Suma,Mask,Align,Sortirane,Zadaljitelna,Promenliva,FilterList,DftFilter,Shirina,Opisanie,DftLike,AutoStretch,Spravka,PoslData) VALUES('v_RegisterBG','GuestName','ÐÅÃÈÑÒÚÐ ÁÚËÃÀÐÈ','Èìå','ÐÅÃÈÑÒÚÐ ÁÚËÃÀÐÈ','Name','2',GetFreeNInRelations('ÐÅÃÈÑÒÚÐ ÁÚËÃÀÐÈ', Null, Null, 10),'GuestName','','','0','0','','','','','200','','0','1','1',today(*))

GO

INSERT INTO Relations  (TableName,ColName,BGTableName,BGColName,RelationTable,RelationCol,SelectCol,N,Function,Suma,Mask,Align,Sortirane,Zadaljitelna,Promenliva,FilterList,DftFilter,Shirina,Opisanie,DftLike,AutoStretch,Spravka,PoslData) VALUES('v_RegisterBG','EGN','ÐÅÃÈÑÒÚÐ ÁÚËÃÀÐÈ','ÅÃÍ','ÐÅÃÈÑÒÚÐ ÁÚËÃÀÐÈ','Pers. ID','2',GetFreeNInRelations('ÐÅÃÈÑÒÚÐ ÁÚËÃÀÐÈ', Null, Null, 10),'EGN','','','0','0','','','','','75','','0','1','1',today(*))

GO

INSERT INTO Relations (TableName,ColName,BGTableName,BGColName,RelationTable,RelationCol,SelectCol,N,Function,Suma,Mask,Align,Sortirane,Zadaljitelna,Promenliva,FilterList,DftFilter,Shirina,Opisanie,DftLike,AutoStretch,Spravka,PoslData) VALUES('v_RegisterBG','Passport','ÐÅÃÈÑÒÚÐ ÁÚËÃÀÐÈ','Ïàñïîðò','ÐÅÃÈÑÒÚÐ ÁÚËÃÀÐÈ','ID Card','2',GetFreeNInRelations('ÐÅÃÈÑÒÚÐ ÁÚËÃÀÐÈ', Null, Null, 10),'Passport','','','0','0','','','','','140','','0','1','1',today(*))

GO

INSERT INTO Relations (TableName,ColName,BGTableName,BGColName,RelationTable,RelationCol,SelectCol,N,Function,Suma,Mask,Align,Sortirane,Zadaljitelna,Promenliva,FilterList,DftFilter,Shirina,Opisanie,DftLike,AutoStretch,Spravka,PoslData) VALUES('v_RegisterBG','City','ÐÅÃÈÑÒÚÐ ÁÚËÃÀÐÈ','Ìåñòîðîæä.','ÐÅÃÈÑÒÚÐ ÁÚËÃÀÐÈ','Birth Place','2',GetFreeNInRelations('ÐÅÃÈÑÒÚÐ ÁÚËÃÀÐÈ', Null, Null, 10),'City','','','0','0','','','','','70','','0','0','1',today(*))

GO

INSERT INTO Relations (TableName,ColName,BGTableName,BGColName,RelationTable,RelationCol,SelectCol,N,Function,Suma,Mask,Align,Sortirane,Zadaljitelna,Promenliva,FilterList,DftFilter,Shirina,Opisanie,DftLike,AutoStretch,Spravka,PoslData) VALUES('v_RegisterBG','BirthDateDt','ÐÅÃÈÑÒÚÐ ÁÚËÃÀÐÈ','Ðîæä. äàòà','ÐÅÃÈÑÒÚÐ ÁÚËÃÀÐÈ','Date of Birth','0',GetFreeNInRelations('ÐÅÃÈÑÒÚÐ ÁÚËÃÀÐÈ', Null, Null, 10),'BirthDateDt','','','0','0','','','','','70','','0','0','1',today(*))

GO

INSERT INTO Relations (TableName,ColName,BGTableName,BGColName,RelationTable,RelationCol,SelectCol,N,Function,Suma,Mask,Align,Sortirane,Zadaljitelna,Promenliva,FilterList,DftFilter,Shirina,Opisanie,DftLike,AutoStretch,Spravka,PoslData) VALUES('v_RegisterBG','GuestAddress','ÐÅÃÈÑÒÚÐ ÁÚËÃÀÐÈ','Ìåñòîæèâ.','ÐÅÃÈÑÒÚÐ ÁÚËÃÀÐÈ','Residence','2',GetFreeNInRelations('ÐÅÃÈÑÒÚÐ ÁÚËÃÀÐÈ', Null, Null, 10),'GuestAddress','','','0','0','','','','','70','','0','0','1',today(*))

GO

INSERT INTO Relations (TableName,ColName,BGTableName,BGColName,RelationTable,RelationCol,SelectCol,N,Function,Suma,Mask,Align,Sortirane,Zadaljitelna,Promenliva,FilterList,DftFilter,Shirina,Opisanie,DftLike,AutoStretch,Spravka,PoslData) VALUES('v_RegisterBG','LeaveDate','ÐÅÃÈÑÒÚÐ ÁÚËÃÀÐÈ','Äàòà íàïóñêàíå','ÐÅÃÈÑÒÚÐ ÁÚËÃÀÐÈ','LeaveDate','2',GetFreeNInRelations('ÐÅÃÈÑÒÚÐ ÁÚËÃÀÐÈ', Null, Null, 10),'LeaveDate','','','0','0','','','','','70','','0','0','1',today(*))

GO

INSERT INTO Relations  (TableName,ColName,BGTableName,BGColName,RelationTable,RelationCol,SelectCol,N,Function,Suma,Mask,Align,Sortirane,Zadaljitelna,Promenliva,FilterList,DftFilter,Shirina,Opisanie,DftLike,AutoStretch,Spravka,PoslData) VALUES('v_RegisterBG','Nights','ÐÅÃÈÑÒÚÐ ÁÚËÃÀÐÈ','Áð. íîùóâêè','ÐÅÃÈÑÒÚÐ ÁÚËÃÀÐÈ','Number Nights','2',GetFreeNInRelations('ÐÅÃÈÑÒÚÐ ÁÚËÃÀÐÈ', Null, Null, 10),'Sum(Nights)','Sum(qrData.Áð. íîùóâêè)','','1','0','','','','','60','','0','0','1',today(*))

go


delete from InformPermission where RelationN=(
select N from Relations where TableName='v_RegisterBG'and ColName='__OPTIONS__')

Go

f1: for f1 as curs scroll cursor for select grNo=N from AdminGroups do
  if grNo <> 0 then
    insert into InformPermission(N,RelationN,AdminGroupNo,Stoinost)
    values((select MAX(N+1) from InformPermission),(select N from Relations where TableName='v_RegisterBG'and ColName='__OPTIONS__'  ),GrNo,1);
  end if;
end for
go