funcion downto en firebird

[IVAND]

Hola a todos

Hay alguna instruccion parecida a downto de delphi en firebird (stored procedure) para recorrer un campo de atras para adelante en un for
De antemano gracias

Ejemplo

for x=100 downto 1 do

[mamcx]

En sql por regla general es un anti-patron él usar programación procedural. Qué es lo que quieres realmente hacer?

[IVAND]

Gracias mamcx

Debo hacer un proceso para conocer un numero de validacion algo asi esta echo en delphi pero queria ponerlo en el store procedure

Código Delphi [-]
function TDataModule2.cadena11(ail: String): Integer;
Var
  x,largo,suma,total:Integer ;
  uma,weight:Integer ;
  cadena1:String ;
begin
    uma:=0;
    weight:=2;
    suma:=0;
    Largo:=Length(ail);
    for x:=Largo downto 1 do
     Begin
      cadena1:=copy(ail,x,1);
        suma:=suma+StrToInt(Cadena1) * weight ;
        weight:= weight+1 ;
        if weight > 7 Then
            weight:=2;
      End ;
    Total:= (11 - suma mod 11) ;

    if Total = 11 Then
        Result:=0
    Else
    If Total = 10 Then
         Result:=1
    else
         Result:=Total ;
end;

[Casimiro Notevi]

Lo mismo te sirve un while

Código SQL [-]
i=10;
while i>0 do
  hacer lo que sea;
  i=i-1;
end while;

[IVAND]

Muy amable voy a probar y les comento

[IVAND]

Funciono perfecto gracias a todos por su tiempo