SubString en Procedimiento Almacenado

[rruffino]

Hola amigos del foro. Estoy teniendo un problema. Estoy haciendo un procedimiento almacenado que genera un codigo de barras. Al momento de calcular los digitos verificadores necesito partir 12 strings distintos caracter a caracter y luego realizar una operación matemática. Los caracteres de cada string son numeros, para hacerlo utilizo la udf SUBSTR, pero al correr el sp da error de division por cer, o como si fallo la truncación. Cuando hago el debug del sp no tira ningu error y los calculos son correctos. Aqui les dejo el cofdigo

Código SQL [-]
  longitud=STRLEN(:code);
  dias=1;
  temporal='135793579357935793579357935793579357935793579357935';
  suma=0;
  while(:dias<=:longitud)do
    begin
      char_1=SUBSTR(:code, :dias, :dias);
      char_2=SUBSTR(:temporal, :dias, :dias);
      suma=suma + (Cast(:Char_1 as integer) * Cast(:char_2 as Integer));
      dias=dias+1;
    end

Code y Temporal son las cadenas de texto.

Estoy usando interbase 6.5.
Desde ya muchas gracias y espero sus respuestas.
Saludos, Román.-