Hallo

ich habe bei einer Datenbank die Druckfunktion (ausser für Admin) ausgeschaltet, einerseits, weil ich viele Layouts habe und per Script mit verschiedenen Buttons, abhängig von der Auswahl von einigen Feldern, das richtige Layout auswählen kann, andererseits, damit keiner mir in den Layouts rumpuschen kann.

Drucken tu ich dann mit importFiles und PrintandSaveRecord, damit ich auch gleich eine Kopie abgelegt habe. Funktioniert prima bis jetzt.

Jetzt habe ich einen neuen Button angelegt, und als Admin getestet: funktioniert ohne Probleme. Nur dass jeder, der nicht Admin ist, plötzlich eine Fehlermeldung belommt, dass er nicht autorisiert ist, zu drucken.

Im Moment konnte ich das nur "reparieren" in dem ich das allgemeine Drucken wieder freigegegben habe. Aber das ist eigentlich nicht die Lösung, die ich wollte.

Was kann da die Ursache sein für die Fehelrmeldung?

Mein Script:

if rr = false then
openRecord(Clients)
else
if 'Banque où l''étude sera envoyée'.'no. interne' = 4 then
importFile(this, printAndSaveRecord(Clients, "Clients BIL"), "Etude" + text(Clients.Client) + format(now(), "hh.mm") + ".pdf");
printRecord(Clients, "Clients BIL")
else
if 'Banque où l''étude sera envoyée'.'no. interne' = 6 then
switch number('Choix de langue des formulaires') do
case 1:
(
importFile(this, printAndSaveRecord(Clients, "Darlehensantrag D"), "Etude" + text(Clients.Client) + format(now(), "hh.mm") + ".pdf");
printRecord(Clients, "Darlehensantrag D")
)
case 2:
(
importFile(this, printAndSaveRecord(Clients, "Darlehensantrag f"), "Etude" + text(Clients.Client) + format(now(), "hh.mm") + ".pdf");
printRecord(Clients, "Darlehensantrag F")
)
case 0:
(
alert("pas de langue choisie!!!");
openRecord(this)
)
default:
0
end
else
if Clients.'Nom 2' or Clients.'Prénom 2' then
if Clients.'(1) Type' or Clients.'(2) Type' or Clients.'(3) Type' or Clients.'(4) Type' then
importFile(this, printAndSaveRecord(Clients, "Clients_ap"), "Etude" + text(Clients.Client) + format(now(), "hh.mm") + ".pdf");
printRecord(Clients, "Clients_ap")
else
importFile(this, printAndSaveRecord(Clients, "Clients_sp"), "Etude" + text(Clients.Client) + format(now(), "hh.mm") + ".pdf");
printRecord(Clients, "Clients_sp")
end
else
if Clients.'(1) Type' or Clients.'(2) Type' or Clients.'(3) Type' or Clients.'(4) Type' then
importFile(this, printAndSaveRecord(Clients, "Client_ap"), "Etude" + text(Clients.Client) + format(now(), "hh.mm") + ".pdf");
printRecord(Clients, "Client_ap")
else
importFile(this, printAndSaveRecord(Clients, "Client_sp"), "Etude" + text(Clients.Client) + format(now(), "hh.mm") + ".pdf");
printRecord(Clients, "Client_sp")
end
end
end
end
end

Wie gesagt: als Admin habe ich alle Fälle durchgespielt und alles wurde brav herausgesucht und gedruckt

irgendwelche Tipps?

danke im Voraus

lg

Arsène