Error al ejecutar un procedimiento

[JosepGA]

Hola, tengo el siguiente problema, al ejecutar un procedimiento de la base de datos que tengo creada con Firebird 2.1, con página de códigos UNICODE_FSS, en algunos equipos no hay problemas en ejecutar el procedimiento, pero en otros me devuelve el error de que no se puede ejecutar. Probando con página de códigos ISO8859-1 no hay problemas. Lo estoy ejecutando desde Delphi7, con dbexpress y con la Dll de acceso de Corelab. ¿ Alguien se ha encontrado con un problema parecido ?

Un saludo

[JosepGA]

he averiguado algo mas, y es que el error que me devuelve es Input parameter mismatch. Lo que no entiendo es como en algunos equipos y el resto de mi clientes funciona correctamente la llamada al procedimiento, al cual le paso dos valores enteros y me devuelve un varchar(1). No se si el problema es que la Base de datos esta en UNICODE_FSS, y si este es el problema, ¿Como debo pasar los parametros?

[vtdeleon]

Saludos

Muestranos parte del codigo utilizado.

[JosepGA]

Hola, este es el código SQL:


CREATE PROCEDURE INC_CONTADOR ( AUXNUMAPLIC INTEGER, AUXNUMMAX INTEGER ) RETURNS (AUXCORRECTO VARCHAR(1)) AS
DECLARE VARIABLE AUXOPCION VARCHAR(1);
DECLARE VARIABLE AUXCONTADOR INTEGER;
BEGIN
SELECT OPCION FROM PU0000 WHERE ( APLICACION = :AUXNUMAPLIC ) AND ( OPCION = '0' ) INTO :AUXOPCION;

if ( auxopcion IS NULL ) then
INSERT INTO PU0000 ( APLICACION, OPCION, CONTADOR ) VALUES ( :AUXNUMAPLIC, '0', 0 );

UPDATE PU0000 SET CONTADOR = CONTADOR + 1 WHERE ( APLICACION = :AUXNUMAPLIC ) AND ( OPCION = '0' );

SELECT CONTADOR FROM PU0000 WHERE ( APLICACION = :AUXNUMAPLIC ) AND ( OPCION = '0' ) INTO :AUXCONTADOR;

if ( AUXCONTADOR > AUXNUMMAX ) then
BEGIN
AUXCORRECTO = 'N';
UPDATE PU0000 SET CONTADOR = CONTADOR - 1 WHERE ( APLICACION = :AUXNUMAPLIC ) AND ( OPCION = '0' );
END
ELSE
BEGIN
AUXCORRECTO = 'S';
END
END


Y esta es la llamada desde Delphi:


With tSQLIncrementarBase Do
Try
Params.ParamByName( 'AUXNUMAPLIC' ).AsInteger := 1;
Params.ParamByName( 'AUXNUMMAX' ).AsInteger := 100;

ExecProc;

Result := ( Params.ParamByName( 'AUXCORRECTO' ).AsString = 'S' );
Except
Result := FALSE;
End;

[JosepGA]

Hola,

después de romperme mucho la cabeza, he averiguado que el problema estaba en la instalación del Windows Server 2003, ya que como la base de datos no la podía crear con formato ISO-8859-1, ya que me decia que no existia esa página de códigos en el servidor, la cree con Unicode, y parece ser que habia conflictos con los XP.

Buscando en la red ( durante mucho tiempo ), vi que el problema de crear una BD con ISO-8859-1, podía venir por no existir unos ficheros del sistema dentro de Windows. Al ir al cliente, iva a instalar un ejecutable oficial de Microsoft que resolvia esto, pero la cosa se complico mas al no poder ejecutarlo, ya que me decia que el WinInstaler no estaba actualizado, lo voy a actualizar, y me dice que necesita mínimo el Service Pack 1 del Server 2003, con lo que se lo indico al cliente y me dice que actualice. Después de actualizar se me ocurre sin instalar nada más, probar a crear la BD con ISO-8859-1, y cual es mi sorpresa, que va y me deja. Con lo que al aplicar el service pack, corrigio el error del sistema y ya existia el código de página.

Espero os sirva para que no paseis por este trago.

Un saludo