lo siento

Creo que te podriamos ayudar mejor sí envias el código de
los procedimientos almacenados para ver como lo estás
haciendo.

Saludos,
Ulises

Lo siento Max, te debo una disculpa, tal vez me exalté
pero llevo peleando + de una semana con este problema y
estoy realmente hinchado. El problema es de sql server,

no

de vb, la rutina vb funciona OK con otros sp que no

tienen

otro anidado. Muchas gracias por tu ayuda desinteresada...

PD: si sale anónimo mi anterior mensaje es xq olvidé
firmarlo, no quiero ser incógnito, sino no pondría nombre
y apellido VALE
.

tengo el puro desorden (quería poner mi anterior al pie de
la respuesta de MAX e inicié un nuevo hilo, creo q' a mi
segunda pregunta me ordenaré un poco...

Mi sp padre (q' es llamado de vb) es:
_________________________________________________________
if exists (select name from sysobjects where name
= 'Clientes_Empresas_DataReception' and type = 'p')
drop procedure Clientes_Empresas_DataReception
go

CREATE procedure Clientes_Empresas_DataReception
(@sRUT as varchar(10),
@sClienteCódigo as char(10),
@sNombre as nvarchar(40),
@sRazónSocial as nvarchar(40),
@sGiro as nvarchar(40),
@sEstado as nvarchar(1),
@sEmpresa as bit,
@sClienteTipo as smallint,
@sClienteClasificación as smallint,
@sDescuento as decimal,
@sWeb as varchar(50),
@sMemo as ntext,
@sIngresadoPor as nvarchar(50),
@sFechaIngreso as smalldatetime,
@sFechaÚltimaVenta as smalldatetime,
@sActivo as bit)
as
begin

declare @RUTNum as bigint, @RUTDig as char(1), @RUTVal as
bit, @Err as bit, @StrErr as varchar(500)

set @StrErr = 'Han ocurrido los siguientes errores al
procesar su solicitud en la Base de Datos:'

set @Err = 0

set @RUTNum = cast(left(@sRUT,len(@sRUT)-1) as bigint)
set @RUTDig = cast(right(@sRUT,1) as char(1))
Acá> execute ValidaRUT @RUTNum, @RUTDig, @RUTVal out
if not @RUTVal = 1
begin
set @StrErr = @StrErr + char(13) + char(10) + '- El RUT
ingresado no es válido'
set @Err = 1
end

set @sActivo = 1
set @sEstado = 'A'
set @sEmpresa = 1
set @sClienteTipo = 0
set @sClienteClasificación = 0
set @sDescuento= 0
set @sFechaIngreso = CONVERT(smalldatetime,getdate
(),103)
set @sIngresadoPor = SYSTEM_USER

errores
if @Err = 0
begin
insert ..
end
else
begin
raiserror(@StrErr, 16, 1)
end
end
GO
___________________________________________________________
(El procedimiento no está completo, quité algunas partes
irrelevantes)

este no me devuelve a vb el objeto error que levanto, he
probado con variables de retorno y tampoco las devuelve,
el raiserror funciona xq' lo probé con una traza al
servidor así q' no sé q' pasa. Si quito la referencia al
proceso anidado funciona OK. Uds deben haber hecho algo
parecido muchas veces. ¿Q' será? Gracias a todos

Hum, a primera vista está bien, me parece que no estás
procesando en forma correcta en el cliente la información
retornada por el SQL, para eliminar información redundante
prueba colocando SET NOCOUNT ON al inicio de tus
procedimientos almacenados y comenta como te fue.

Saludos,
Ulises

tengo el puro desorden (quería poner mi anterior al pie

de

la respuesta de MAX e inicié un nuevo hilo, creo q' a mi
segunda pregunta me ordenaré un poco...

Mi sp padre (q' es llamado de vb) es:
_________________________________________________________
if exists (select name from sysobjects where name
= 'Clientes_Empresas_DataReception' and type = 'p')
drop procedure Clientes_Empresas_DataReception
go

CREATE procedure Clientes_Empresas_DataReception
(@sRUT as varchar(10),
@sClienteCódigo as char(10),
@sNombre as nvarchar(40),
@sRazónSocial as nvarchar(40),
@sGiro as nvarchar(40),
@sEstado as nvarchar(1),
@sEmpresa as bit,
@sClienteTipo as smallint,
@sClienteClasificación as smallint,
@sDescuento as decimal,
@sWeb as varchar(50),
@sMemo as ntext,
@sIngresadoPor as nvarchar(50),
@sFechaIngreso as smalldatetime,
@sFechaÚltimaVenta as smalldatetime,
@sActivo as bit)
as
begin

declare @RUTNum as bigint, @RUTDig as char(1), @RUTVal as
bit, @Err as bit, @StrErr as varchar(500)

set @StrErr = 'Han ocurrido los siguientes errores al
procesar su solicitud en la Base de Datos:'

set @Err = 0

set @RUTNum = cast(left(@sRUT,len(@sRUT)-1) as bigint)
set @RUTDig = cast(right(@sRUT,1) as char(1))
Acá> execute ValidaRUT @RUTNum, @RUTDig, @RUTVal out
if not @RUTVal = 1
begin
set @StrErr = @StrErr + char(13) + char(10) + '- El RUT
ingresado no es válido'
set @Err = 1
end

set @sActivo = 1
set @sEstado = 'A'
set @sEmpresa = 1
set @sClienteTipo = 0
set @sClienteClasificación = 0
set @sDescuento= 0
set @sFechaIngreso = CONVERT(smalldatetime,getdate
(),103)
set @sIngresadoPor = SYSTEM_USER

errores
if @Err = 0
begin
insert ..
end
else
begin
raiserror(@StrErr, 16, 1)
end
end
GO
__________________________________________________________

_

(El procedimiento no está completo, quité algunas partes
irrelevantes)

este no me devuelve a vb el objeto error que levanto, he
probado con variables de retorno y tampoco las devuelve,
el raiserror funciona xq' lo probé con una traza al
servidor así q' no sé q' pasa. Si quito la referencia al
proceso anidado funciona OK. Uds deben haber hecho algo
parecido muchas veces. ¿Q' será? Gracias a todos
.

Todo bien, no hay problema, quien no tiene un dia malo no :-)


Salu2

Maxi

Desarrollador 3 estrellas .NET
Buenos Aires - Argentina

MSN:

"Cristián Zaninovic" escribió en el mensaje
news:b91701c4379c$05f78570$
Lo siento Max, te debo una disculpa, tal vez me exalté
pero llevo peleando + de una semana con este problema y
estoy realmente hinchado. El problema es de sql server, no
de vb, la rutina vb funciona OK con otros sp que no tienen
otro anidado. Muchas gracias por tu ayuda desinteresada...

PD: si sale anónimo mi anterior mensaje es xq olvidé
firmarlo, no quiero ser incógnito, sino no pondría nombre
y apellido VALE

Hola, ademas de lo que indica el amigo Ulises!! podrias probar de ejecutar
el Store desde tu query analizer y ver si capta los errores?

Gracias


Salu2

Maxi

Desarrollador 3 estrellas .NET
Buenos Aires - Argentina

MSN:

"Cristián Zaninovic" escribió en el mensaje
news:b98a01c437a3$705c7180$
tengo el puro desorden (quería poner mi anterior al pie de
la respuesta de MAX e inicié un nuevo hilo, creo q' a mi
segunda pregunta me ordenaré un poco...

Mi sp padre (q' es llamado de vb) es:
_________________________________________________________
if exists (select name from sysobjects where name
= 'Clientes_Empresas_DataReception' and type = 'p')
drop procedure Clientes_Empresas_DataReception
go

CREATE procedure Clientes_Empresas_DataReception
(@sRUT as varchar(10),
@sClienteCódigo as char(10),
@sNombre as nvarchar(40),
@sRazónSocial as nvarchar(40),
@sGiro as nvarchar(40),
@sEstado as nvarchar(1),
@sEmpresa as bit,
@sClienteTipo as smallint,
@sClienteClasificación as smallint,
@sDescuento as decimal,
@sWeb as varchar(50),
@sMemo as ntext,
@sIngresadoPor as nvarchar(50),
@sFechaIngreso as smalldatetime,
@sFechaÚltimaVenta as smalldatetime,
@sActivo as bit)
as
begin

declare @RUTNum as bigint, @RUTDig as char(1), @RUTVal as
bit, @Err as bit, @StrErr as varchar(500)

set @StrErr = 'Han ocurrido los siguientes errores al
procesar su solicitud en la Base de Datos:'

set @Err = 0

set @RUTNum = cast(left(@sRUT,len(@sRUT)-1) as bigint)
set @RUTDig = cast(right(@sRUT,1) as char(1))
Acá> execute ValidaRUT @RUTNum, @RUTDig, @RUTVal out
if not @RUTVal = 1
begin
set @StrErr = @StrErr + char(13) + char(10) + '- El RUT
ingresado no es válido'
set @Err = 1
end

set @sActivo = 1
set @sEstado = 'A'
set @sEmpresa = 1
set @sClienteTipo = 0
set @sClienteClasificación = 0
set @sDescuento= 0
set @sFechaIngreso = CONVERT(smalldatetime,getdate
(),103)
set @sIngresadoPor = SYSTEM_USER

errores
if @Err = 0
begin
insert ..
end
else
begin
raiserror(@StrErr, 16, 1)
end
end
GO
___________________________________________________________
(El procedimiento no está completo, quité algunas partes
irrelevantes)

este no me devuelve a vb el objeto error que levanto, he
probado con variables de retorno y tampoco las devuelve,
el raiserror funciona xq' lo probé con una traza al
servidor así q' no sé q' pasa. Si quito la referencia al
proceso anidado funciona OK. Uds deben haber hecho algo
parecido muchas veces. ¿Q' será? Gracias a todos