Error en Proc. Almacenado Sql Server-Delphi7 [Archivo]

Peters

02-07-2007, 18:23:50

Estimados colegas, es mi primera experiencia en Club Delphi para lo cual recurro a ustedes me puedan ayudar en un problema que se me presenta al tratar de meter datos de un formulario utilizando un procedimiento almacenado en SQL Server2000, mi codigo en Delphi es:

Código Delphi [-] (http://www.clubdelphi.com/foros/#)
InsertSolicitud.Close;
InsertSolicitud.Parameters.ParamByName('@socio').Value:=trim(edit3.Text);
InsertSolicitud.Parameters.ParamByName('@nombre').Value:=trim(Edit6.Text);
InsertSolicitud.Parameters.ParamByName('@CI_SOLICIT').Value:=trim(FlatEdit10.Text);
InsertSolicitud.Parameters.ParamByName('@ESTADO_CIV').Value:=trim(FlatComboBox2.Text);
InsertSolicitud.Parameters.ParamByName('@N_DEPEND').Value:=trim(FlatEdit24.Text);
InsertSolicitud.Parameters.ParamByName('@FECHA_NACIMIEN').Value:=(FlatMaskEdit2.text);
InsertSolicitud.Parameters.ParamByName('@DIRECC').Value:=trim(FlatEdit14.Text);
InsertSolicitud.Parameters.ParamByName('@VIVIEND').Value:=FlatComboBox3.Text;
InsertSolicitud.Parameters.ParamByName('@PROFES').Value:=trim(FlatEdit20.Text);
InsertSolicitud.Parameters.ParamByName('@OCUPAC_ACT').Value:=trim(FlatEdit21.Text);
InsertSolicitud.Parameters.ParamByName('@DIREC_TRAB').Value:=trim(FlatEdit16.Text);
InsertSolicitud.Parameters.ParamByName('@ZONA_TRAB').Value:=trim(FlatEdit18.Text);
InsertSolicitud.Parameters.ParamByName('@FONO_TRAB').Value:=trim(FlatEdit17.Text);
InsertSolicitud.Parameters.ParamByName('@FONO_DOMIC').Value:=trim(FlatEdit15.text);
InsertSolicitud.Parameters.ParamByName('@TIEMPO_SERV').Value:=trim(Flatedit22.Text);
InsertSolicitud.Parameters.ParamByName('@NACIONALID').Value:=trim(FlatEdit13.Text);
InsertSolicitud.Parameters.ParamByName('@EDA').Value:=trim(FlatEdit23.Text);
InsertSolicitud.Parameters.ParamByName('@RUC_PADRO').Value:=trim(FlatEdit11.Text);
InsertSolicitud.Parameters.ParamByName('@FECHA_SOLICIT').Value:=(Flatmaskedit1.Text);
InsertSolicitud.Parameters.ParamByName('@USU').Value:=trim(edit1.Text);
InsertSolicitud.Parameters.ParamByName('@PENDIEN').Value:='S';
InsertSolicitud.Parameters.ParamByName('@PEND_JEFE_C').Value:='S';
InsertSolicitud.Parameters.ParamByName('@PEND_GEREN').Value:='S';
InsertSolicitud.Parameters.ParamByName('@PEND_COMITE_C').Value:='S';
InsertSolicitud.Parameters.ParamByName('@PEND_CONS_AD').Value:='S';
InsertSolicitud.Parameters.ParamByName('@CODIG').Value:=codigo;
InsertSolicitud.Parameters.ParamByName('@PEND_AUDIT').Value:='S';
InsertSolicitud.ExecProc;

y mi procedimiento almacenado es:

Código SQL [-] (http://www.clubdelphi.com/foros/#)
CREATE PROCEDURE InsertSolicitud (@socio numeric(9),@NOMBRE char(50), @CI_SOLICIT char (12),@ESTADO_CIV char(12),@FECHA_NACIMIEN datetime,
@N_DEPEND numeric(9),@DIRECC char(50),@VIVIEND char (15), @PROFES char(30),@OCUPAC_ACT char(30),@DIREC_TRAB char(50),
@ZONA_TRAB char(20), @FONO_TRAB char(12), @FONO_DOMIC char (12), @TIEMPO_SERV char(10),@NACIONALID char(15), @EDA numeric(9),
@RUC_PADRO char(15),@FECHA_SOLICIT DATETIME,@USU char(20), @PENDIEN char(1),@PEND_JEFE_C char(1),@PEND_GEREN char(1),
@PEND_COMITE_C char(1),@PEND_CONS_AD char(1), @CODIG numeric(9), @PEND_AUDIT char(1))
As
insert DATOS_SOLICITANTE (N_SOCIO,NOMBRES, CI_SOLICITANTE, ESTADO_CIVIL, N_DEPENDIENTE, FECHA_NACIMIEN, DIRECCION, VIVIENDA, PROFESION,
OCUPAC_ACTUAL, DIREC_TRABAJO, ZONA_TRABAJO, FONO_TRABAJO, FONO_DOMICILIO, TIEMPO_SERVICIO, NACIONALIDAD, EDAD, RUC_PADRON,
FECHA_SOLICITUD, USUARIO, PENDIENTE, PEND_JEFE_CRE, PEND_GERENCIA, PEND_COMITE_CRE, PEND_CONS_ADM, CODIGO, PEND_AUDITOR, ANULADO)
values (@socio , @NOMBRE , @CI_SOLICIT , @ESTADO_CIV , @N_DEPEND,@FECHA_NACIMIEN, @DIRECC , @VIVIEND, @PROFES , @OCUPAC_ACT,
@DIREC_TRAB, @ZONA_TRAB , @FONO_TRAB, @FONO_DOMIC , @TIEMPO_SERV , @NACIONALID , @EDA , @RUC_PADRO , @FECHA_SOLICIT,
@USU , @PENDIEN , @PEND_JEFE_C , @PEND_GEREN , @PEND_COMITE_C, @PEND_CONS_AD, @CODIG, @PEND_AUDIT, 'F' )
GO

y al hacer correr mi aplicacion me sale el siguiente error:
"Proyect PCarpetas.exe raised exception class EOleException with message '[Microsoft][ODBC DQL Server Driver] Carateristica Optional no Implementada'. Process stopped. Use Step or Run to Continue"

Ese error me sale cuando el cursor llega a la linea de codigo: InsertSolicitud.ExecProc;

Si alguien me puede ayudar a dar solucion a este error le estaria muy agradecido...
Atte. Peters