Parameter Spaltenlayout bestätigen durch Abfrage J/N ersetzt

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

@@ -1,3 +1,3 @@
 48380^Basistabelle^0^0^0^150^450^1^integer^30^0^1^<<SQL>> select tid, uniquename || ' - ' || caption from rpta_resultset order by caption;^ ^ ^
 48381^zu löschendes Spaltenlayout^0^0^0^200^380^1^integer^30^1^1^<<SQL>> select tid, uniquename || ' - ' || caption from rpta_column_layout where 1=1  /* and <<Basistabelle>>=resultset_id*/ order by caption;^^^
-48382^Spaltenlayout (bestätigen)^1^0^0^200^100^1^char^30^1^0^^^^
+48382^gew. Layout löschen?^1^0^0^200^100^1^char^30^1^1^<<SQL>> select 'J', 'ja, Layout löschen' from xdummy union select 'N', 'nein, nicht löschen' from xdummy order by 2;^^^

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

@@ -6,17 +6,17 @@
 --Autor: M. Winterstein nach Maske löschen von D. Quathamer\
 --Datum: 18.08.2025\
 \
-create temp table tmp_loesch (layout_tid integer, layout_uniquename varchar(255), best_tid integer);\
+--create temp table tmp_loesch (layout_tid integer, layout_uniquename varchar(255), best_tid integer);\
-insert into tmp_loesch(layout_tid, layout_uniquename) \
+--insert into tmp_loesch(layout_tid, layout_uniquename) \
-values (<<zu löschendes Spaltenlayout>>, <<Spaltenlayout (bestätigen)>>);\
+--values (<<zu löschendes Spaltenlayout>>, <<Spaltenlayout (bestätigen)>>);\
-update tmp_loesch set best_tid = (select tid from rpta_column_layout where uniquename = <<Spaltenlayout (bestätigen)>>);\
+--update tmp_loesch set best_tid=0 where best_tid is null;\
-update tmp_loesch set best_tid=0 where best_tid is null;\
 \
+<#if <<gew. Layout löschen?>> ='J'>\
 delete from  rpta_column2layout where layout_id in (<<zu löschendes Spaltenlayout>>)\
-and layout_id in (select tid from rpta_column_layout where uniquename= <<Spaltenlayout (bestätigen)>>)\
 and 1=(select administration from userinfo where tid=<<UserID>>);\
-delete from rpta_column_layout where tid=<<zu löschendes Spaltenlayout>> and uniquename= <<Spaltenlayout (bestätigen)>> \
+delete from rpta_column_layout where tid=<<zu löschendes Spaltenlayout>> \
 and 1=(select administration from userinfo where tid=<<UserID>>);\
+</#if>\
 \
 --drop table tmp_ergebnis;\
 create temp table tmp_ergebnis \
@@ -24,14 +24,13 @@ create temp table tmp_ergebnis \
 sp2 varchar(200)\
 ); \
 insert into tmp_ergebnis \
-select 'Ergebnis', 'Spaltenlayout erfolgreich gelöscht' from xdummy where <<zu löschendes Spaltenlayout>>= (select best_tid from tmp_loesch)\
+select 'Ergebnis', 'Spaltenlayout erfolgreich gelöscht' from xdummy where 0= (select count(*) from rpta_column_layout where tid=<<zu löschendes Spaltenlayout>> );\
-and (select administration from userinfo where tid=<<UserID>>) = 1;\
 insert into tmp_ergebnis \
-select 'Ergebnis', 'Layout-Angaben nicht identisch. Spaltenlayout wurde nicht gelöscht' from xdummy where <<zu löschendes Spaltenlayout>> != (select best_tid from tmp_loesch);\
+select 'Ergebnis', 'Kein Löschen ausgewählt! Spaltenlayout wurde nicht gelöscht' from xdummy where <<gew. Layout löschen?>> != 'J';\
 insert into tmp_ergebnis \
 select 'Ergebnis', 'Benutzerrechte reichen nicht aus. Spaltenlayout wurde nicht gelöscht' from xdummy where (select administration from userinfo where tid=<<UserID>>)!= 1;\
 \
-drop table tmp_loesch;\
+--drop table tmp_loesch;\
 select sp1,sp2 from tmp_ergebnis;^XIL List\
    drop_and_delete movable_columns sizable_columns horizontal_scrolling\
    white_space_color=COLOR_WHITE fixed_columns=2\