sp en IBScript?

[subzero]

Hola de nuevo:

Alguien sabe como crear procedimientos almacenados desde delphi utilizando IBScript. Estoy utilizando Delphi 7 e Interbase 6.0, ojala pueda alguien colaborarame.

Gracias.

[rastafarey]

Código Delphi [-]
With IbScrip Do Begin
  With Sql Do Begin
    Clear;  
    Add('SET TERM ^ ;');
    Add('CREATE PROCEDURE "Art disponible" (');
    Add('    "Id inventario" BIGINT)');
    Add('RETURNS (');
    Add('    "Disponibles" DOUBLE PRECISION)');
    Add('AS');
    Add('DECLARE VARIABLE E DOUBLE PRECISION;');
    Add('DECLARE VARIABLE R DOUBLE PRECISION;');
    Add('begin');
    Add('  Select "Existencia" From "Inventario" Where "Id" = : "Id" "inventario" Into  : "E";');
    Add('  If ("E" is Null) Then');
    Add('    "E" = 0;');
    Add('  Select Sum("Cantidad") From "Reservados" Where "Id inventario"   = : "Id inventario" Into : "R";');
    Add('  If ("R" is Null) Then');
    Add('    "R" = 0;');
    Add('  "Disponibles" = : "E" - : "R";');
    Add('  suspend;');
    Add('end^');
    Add('SET TERM ; ^');
  End;
  Execute;
End;

[subzero]

El SQL que colocas en el "with sql do begin" es algun otro componente ligado al IBscript, porque como propiedad no lo encuentro? , si tienes ejemplos o el componente te agradecería si pudieras compartir alguna copia.

Gracias.

[rastafarey]

Sustitulle SQL Por Script
Perdon es que uso Ib_Objects

[subzero]

Hola:

Gracias pero aun así no me funciona... sabes donde puedo conseguir los IB_Object?. A ver si probando quizas peuda realizar lo que quiero.

Gracias

[rastafarey]

Mira si no me dices que es lo que no t efunciona o cual es el error que te da no te puedo ayudar.

Asi que a explicar.