SL Update mit StoredProc

[Walter Landwehr]

Hallo,

hier mal zum besseren Verständnis dir SP:

Delphi-Quellcode:

begin
   result = null;
   laenge = char_length(:wert);
   if (:laenge > 0) then
   begin
     pos = 1;
     while (:pos <= :laenge) do
     begin
       zeichen = substring(:wert from :pos for 1);
       if (:zeichen in ('0','1','2','3','4','5','6','7','8','9', '.')) then
         temp = coalesce(:temp, '')||:zeichen;
       else
       begin
         -- Rest hinten
         rest = substring(:wert from :pos for 10);
         break;
       end 
       pos = :pos + 1;
     end 
   end
   if (coalesce(:temp, '') <> '') then
   begin
     -- Zahl vor Punkt auffüllen
     pos = position('.', :temp);
     if (:pos = 0) then
       result = lpad(:temp, 10, '0')||'.'||lpad('0', 10, '0');
     else
       result = lpad(substring(:temp from 1 for :pos -1), 10, '0')||'.'||
                lpad(substring(:temp from :pos + 1 for :laenge), 10, '0');
     result = :result||coalesce(:rest, '');
   end
   suspend;
 end

Ich möchte einmalig alle Datensätze das Feld Sortierung füllen.

Später wir beim Ändern oder Neuanlegen eines Datensatzes ein Trigger benutzt.