[[poliburro]]

Más bien, el miembro parameter de la clase TAdoStoredProcedure debe tener definida su propiedad Direcction de acuerdo a lo definido en el StoredProcedure.

Código Delphi [-]

   With AdspDatos.Parameters Do
      If PsSp = 'SpActProAlExist' Then
      Begin
        clear;
        CreateParameter('@PMenu',ftString,pdInput,25,PsMenu);
        CreateParameter('@PProvee',ftString,pdInput,5,'');
        CreateParameter('@PNomPro',ftString,pdInput,30,'');
        CreateParameter('@PPosDesc',ftInteger,pdInput,6,0);
        CreateParameter('@PPraMesInv',ftFloat,pdInput,6,0);
        CreateParameter('@PPRAPtoReo',ftFloat,pdInput,6,0);
        CreateParameter('@PUsuario',ftString,pdInput,15,'');
        CreateParameter('@PPosDescExis',ftInteger,pdInput,6,0);
        CreateParameter('@PMensaje',ftString,pdOutput,500,'');
      End;