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


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

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