Sicherheitsabfrage für Überschreiben eingebaut

src-modules/module/rpta/masken/48410_felderinfo.unl

@@ -6,5 +6,7 @@
 union select 'sximport','SX-Importkopie' from xdummy\
 union select 'standard','Standardkopie' from xdummy\
 ;^hidden^<<SQL>> select 'standard','Standardkopie' from xdummy;^
-48415^Achtung:^100^0^0^150^450^1^char^60^0^8^<<SQL>> select 'Vorhandene Spaltenlayouts mit gleichem Schlüssel werden überschrieben!' from xdummy;^ ^<<SQL>> select 'Vorhandene Spaltenlayouts mit gleichem Schlüssel werden überschrieben!' from xdummy;^
+48415^Achtung:^100^0^0^400^450^1^char^100^0^8^<<SQL>> select 'Vorhandene Spaltenlayouts mit gleichem Schlüssel werden überschrieben!' from xdummy;^ ^<<SQL>> select 'Vorhandene Spaltenlayouts mit gleichem Schlüssel werden überschrieben!' from xdummy;^
 48416^zu kopierendes Spaltenlayout^1^0^0^150^450^1^integer^30^1^1^<<SQL>> select tid, uniquename || ' - ' || caption from rpta_column_layout where 1=1  /* and <<Basistabelle>>=resultset_id*/ order by caption;^ ^ ^
+48417^vorh. Layout überschreiben?^80^0^0^100^150^1^char^30^1^1^<<SQL>> select 'J', 'ja, vorh. Layout überschreiben' from xdummy union select 'N', 'nein, nicht überschreiben' from xdummy order by 2;\
+;^ ^<<SQL>> select 'N', 'nein, nicht überschreiben' from xdummy order by 2;^

src-modules/module/rpta/masken/48410_masken_felder_bez.unl

@@ -5,3 +5,4 @@
 48410^48414^
 48410^48415^
 48410^48416^
+48410^48417^

src-modules/module/rpta/masken/48410_maskeninfo.unl

@@ -5,6 +5,9 @@
 <sqlvar name="start_serial">\
 select max(tid)+1 from rpta_column2layout;\
 </sqlvar>\
+<sqlvar name="layout_exists">\
+select count(*) from rpta_column_layout where uniquename=<<Neuer Schlüssel>>;\
+</sqlvar>\
 </sqlvars>\
 --Autor: D. Quathamer\
 --Datum: 2.4.2002\
@@ -75,6 +78,7 @@ update tmp_rpta_column_layout set caption=<<Neuer Name>>; \
 update tmp_rpta_column_layout set userinfo_id=<<UserID>>;\
 /*update tmp_rpta_column_layout set description=<<Erläuterung>>;*/\
 \
+<#if <<vorh. Layout überschreiben?>> ='J' || layout_exists=0 >\
 --Falls das neue Layout bereits existiert, wird es gelöscht:\
 delete from rpta_column2layout where layout_id = (select tid from rpta_column_layout where uniquename=<<Neuer Schlüssel>>)\
 and (select administration from userinfo where tid=<<UserID>>)= 1;\
@@ -94,6 +98,7 @@ where (select administration from userinfo where tid=<<UserID>>)= 1;\
 <#if SQLdialect='Postgres'>\
 commit;\
 </#if>\
+</#if>\
 \
 create temp table tmp_ergebnis \
 (sp1 varchar(150),\
@@ -101,12 +106,14 @@ sp2 varchar(150), sp3 varchar(150)); \
 \
 insert into tmp_ergebnis (sp1,sp2)\
 select 'Ergebnis', 'Benutzerrechte reichen nicht aus. Spaltenlayout wurde nicht kopiert' from xdummy where (select administration from userinfo where tid=<<UserID>>)!= 1;\
-\
+<#if <<vorh. Layout überschreiben?>> ='J' || layout_exists=0 >\
 insert into tmp_ergebnis (sp1,sp2,sp3)\
 select 'Neues Spaltenlayout:',uniquename || '- ' || caption,'../edit/rpta/rpta_column_layout_edit.jsp|tid='  || tid from rpta_column_layout where tid = (select tid from tmp_rpta_column_layout);\
---wird ja über edit vom Spaltenlayout angeboten\
+<#else>\
---insert into tmp_ergebnis (sp1,sp2,sp3)\
+insert into tmp_ergebnis (sp1,sp2)\
---select 'Spalte:',column_id || '- ' || caption,'../edit/rpta/rpta_column2layout_edit.jsp|tid='  || tid from rpta_column2layout M where tid in (select tid from tmp_rpta_column2layout); \
+select 'Ergebnis', 'kein Überschreiben gewünscht!' from xdummy ;\
+</#if>\
+\
 \
 select sp1,sp2,sp3 as nextedit from tmp_ergebnis ;^XIL List\
    drop_and_delete movable_columns sizable_columns horizontal_scrolling\