SET TERM ^ ;
CREATE OR ALTER PROCEDURE  CONVERT_ESCAPE_TXT2JSON ( GELENBILGI Blob sub_type 1 )
RETURNS (CIKTI Blob sub_type 1 )
AS
begin
  cikti=replace(replace(replace (gelenBilgi,  '\', '\\'),'"','\"'),'/','\/');
  suspend;
end^
SET TERM ; ^

SET TERM ^ ;
CREATE OR ALTER PROCEDURE CONVERT_TIMESTAMP2JSON_ISO8601 ( DT Timestamp )
RETURNS (RESULT Varchar(100) )
AS
declare variable grkInt integer;

begin
/*
from:
http://firebirdsql.su/doku.php?id=extract
*/

  
  result =  lpad(EXTRACT(YEAR FROM :dt),4,'0') || '-' ||
            lpad(EXTRACT(MONTH FROM :dt),2,'0') || '-' ||
            lpad(EXTRACT(DAY FROM :dt),2,'0') || 'T' ||
            lpad(EXTRACT(HOUR FROM :dt),2,'0') || ':' ||
            lpad(EXTRACT(MINUTE FROM :dt),2,'0') || ':';  
  
  
  
  --extract seconds
  --нужно целое число а то какая-то чушь получатся с точкой если секунды меньше 10
  grkInt = EXTRACT(second FROM :dt);  
  result = result || lpad(cast(:grkInt as varchar(10)),2,'0') || '.';
  
  --extract milliseconds
  --нужно целое число а то какая-то чушь получатся с точкой если миллисекунды меньше 100
  grkInt = EXTRACT(MILLISECOND from :dt);  
  result = result || lpad(cast(:grkInt as varchar(10)),3,'0');
 
  --result = '2014-03-16T06:48:12.525';
 
  suspend;
end^
SET TERM ; ^

SET TERM ^ ;
CREATE OR ALTER PROCEDURE CONVERT_TIMESTAMP2JSON_MS ( DT Timestamp )
RETURNS ( RESULT Varchar(100) )
AS
declare variable grkInt integer;

begin
  result = '\/Date(' || datediff(second,cast('1970-01-01' as timestamp),:dt);
  
  --extract milliseconds
  --нужно целое число а то какая-то чушь получатся с точкой если миллисекунды меньше 100
  grkInt = EXTRACT(MILLISECOND from :dt);  
  result = result || lpad(cast(:grkInt as varchar(10)),3,'0') || ')\/';
 
  suspend;
end^
SET TERM ; ^