|
|
|
@ -0,0 +1,45 @@
@@ -0,0 +1,45 @@
|
|
|
|
|
48380^Spaltenlayout löschen^--Freemarker Template\ |
|
|
|
|
<#include "SQL_lingua_franca"/>\ |
|
|
|
|
<#include "SuperX_general"/>\ |
|
|
|
|
--Layout löschen\ |
|
|
|
|
-- Ist nur für User erlaubt, die Administratoren sind\ |
|
|
|
|
--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);\ |
|
|
|
|
insert into tmp_loesch(layout_tid, layout_uniquename) \ |
|
|
|
|
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;\ |
|
|
|
|
\ |
|
|
|
|
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)>> \ |
|
|
|
|
and 1=(select administration from userinfo where tid=<<UserID>>);\ |
|
|
|
|
\ |
|
|
|
|
--drop table tmp_ergebnis;\ |
|
|
|
|
create temp table tmp_ergebnis \ |
|
|
|
|
(sp1 varchar(50),\ |
|
|
|
|
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)\ |
|
|
|
|
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);\ |
|
|
|
|
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;\ |
|
|
|
|
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\ |
|
|
|
|
min_heading_height=35\ |
|
|
|
|
Column CID=0 heading_text="Ergebnis " center_heading\ |
|
|
|
|
row_selectable col_selectable heading_platform readonly\ |
|
|
|
|
width=50 text_size=100\ |
|
|
|
|
Column CID=1 heading_text=" Wert " center_heading\ |
|
|
|
|
row_selectable col_selectable heading_platform readonly\ |
|
|
|
|
width=150 text_size=200\ |
|
|
|
|
@@@^ ^ ^Eine vorhandene Maske löschen^drop table tmp_ergebnis;^^2^440^360^0^1^ ^ |