Registriert seit: 28. Apr 2008
Ort: Stolberg (Rhl)
6.659 Beiträge
FreePascal / Lazarus
|
AW: SL Update mit StoredProc
14. Aug 2015, 12:50
Nicht daß es untergeht:
Hi,
die SP berücksichtigt nicht, dass es auch Werte ohne Zahl gibt.
Du musst das Ende der SP noch mal ändern:
Code:
...
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
else
Result = :rest;
suspend;
die 2 Zeilen vor dem supend hinzufügen
Frank
Programme gehorchen nicht Deinen Absichten sondern Deinen Anweisungen
R.E.D retired error detector
|
|
Zitat
|