Kullandığım sayıyı yazıya çevirme program kodunu SP'e çevirmeye çalışıyorum.
Derlemeye çalıştığımda "Precompiler Error: Syntax error - ,." hatası alıyorum.
Şu satırda takılıyor:
Kod: Tümünü seç
select substring(:v_say, :s - 2, 1) from rdb$database into :c1;
Kod: Tümünü seç
create procedure ceviri(
say numeric(15, 0))
returns(
sonuc varchar(255))
as
declare birler varchar(20);
declare onlar varchar(20);
declare yuzler varchar(20);
declare diger varchar(20);
declare v_say varchar(15);
declare tmp varchar(255);
declare s smallint;
declare c1 varchar(20);
declare c2 varchar(20);
declare c3 varchar(20);
begin
select Lpad(say, 15, '0') from rdb$database into :v_say;
s = 0;
while (:s <= 15) do
begin
s = :s + 1;
if (mod(:s, 3) = 0) then
begin
select substring(:v_say, :s - 2, 1) from rdb$database into :c1;
select substring(:v_say, :s - 1, 1) from rdb$database into :c2;
select substring(:v_say, :s, 1) from rdb$database into :c3;
select birler[:c1], onlar[:c2], yuzler[:c3], diger[:s]
from metinler into :birler, :onlar, :yuzler, :diger;
tmp = :c1 || :c2 || :c3;
if (tmp <> '') then
begin
if (s = 12) And (Trim(tmp) = 'BİR') then
tmp = 'BİN';
else
tmp = tmp || :diger;
end
sonuc = :sonuc || :tmp;
end
end
end;