Paso de Parámetros

hola a todos
tengo el siguiente traspaso al procedimiento almacenado

With CmdSQL
.CommandType = adCmdStoredProc
.CommandText = "prc_sel_movimientos"

.Parameters.Append .CreateParameter("RETURN_VALUE",
adInteger,adParamReturnValue, 0)
.Parameters.Append .CreateParameter("empr_cod",
adInteger,adParamInput, 4, inEmpresa)
.Parameters.Append .CreateParameter("sucu_cod",
adVarChar,adParamInput, 8, 1)
.Parameters.Append .CreateParameter("fecha_uno",
adDate,adParamInput, 8, dtDesde)
.Parameters.Append .CreateParameter("fecha_dos",
adDate,adParamInput, 8, dtHasta)
.Parameters.Append .CreateParameter("modelo_uno",
adChar,adParamInput, 12, stModeloUno)
.Parameters.Append .CreateParameter("modelo_dos",
adChar,adParamInput, 12, stModeloDos)
.Parameters.Append .CreateParameter("bode_cod",
adVarChar,adParamInput, 20, stBodegas)

End With
With rsReg
.CursorLocation = adUseClient
.Open CmdSQL, , adOpenDynamic, adLockReadOnly
End With

La variable stBodegas (último traspaso). y puede contener varios
códigode bodegas por ejemplo "00,07"

Este es procedimiento almacenado
CREATE PROCEDURE prc_sel_movimientos

@empr_cod numeric(4,0),
@sucu_cod varchar(8),
@fecha_uno datetime,
@fecha_dos datetime,
@modelo_uno char(12),
@modelo_dos char(12),
@bode_cod varchar(20)

AS

SELECT *
FROM [inve]
WHERE [empr_cod] = @empr_cod and [sucu_cod] = @sucu_cod and
[inve_fec_emision] between @fecha_uno and @fecha_dos and
[art_cod] between @modelo_uno and @modelo_dos and
[bode_cod] in (@bode_cod)



RETURN @@error
GO

EL PROBLEMA QUE TENGO ES QUE NO ME FUNCIONA LA CONSULTA, POR FAVOR ME
PUEDEN AYUDAR

Maxi:
La consulta no trae registros.
"Maxi" escribió en el mensaje
news:e%
> Hola, si la ejecutas desde el QA que pasa?
>
> Porque tambien me me decis que es para vos que no funciona la consulta?
>
> emite un error?
> No trae registros?
>
>
> Salu2
> Maxi
> Buenos Aires - Argentina
> Desarrollador Microsoft 3 Estrellas .NET
> Nunca consideres el estudio como una obligación sino como
> una oportunidad para penetrar en el bello y maravillosos
> mundo del saber.
> - Albert Einstein
>
>
>
> "Alberto Cabello" escribió en el mensaje
> news:
> > hola a todos
> > tengo el siguiente traspaso al procedimiento almacenado
> >
> > With CmdSQL
> > .CommandType = adCmdStoredProc
> > .CommandText = "prc_sel_movimientos"
> >
> > .Parameters.Append .CreateParameter("RETURN_VALUE",
> > adInteger,adParamReturnValue, 0)
> > .Parameters.Append .CreateParameter("empr_cod",
> > adInteger,adParamInput, 4, inEmpresa)
> > .Parameters.Append .CreateParameter("sucu_cod",
> > adVarChar,adParamInput, 8, 1)
> > .Parameters.Append .CreateParameter("fecha_uno",
> > adDate,adParamInput, 8, dtDesde)
> > .Parameters.Append .CreateParameter("fecha_dos",
> > adDate,adParamInput, 8, dtHasta)
> > .Parameters.Append .CreateParameter("modelo_uno",
> > adChar,adParamInput, 12, stModeloUno)
> > .Parameters.Append .CreateParameter("modelo_dos",
> > adChar,adParamInput, 12, stModeloDos)
> > .Parameters.Append .CreateParameter("bode_cod",
> > adVarChar,adParamInput, 20, stBodegas)
> >
> > End With
> > With rsReg
> > .CursorLocation = adUseClient
> > .Open CmdSQL, , adOpenDynamic, adLockReadOnly
> > End With
> >
> > La variable stBodegas (último traspaso). y puede contener varios
> > códigode bodegas por ejemplo "00,07"
> >
> > Este es procedimiento almacenado
> > CREATE PROCEDURE prc_sel_movimientos
> >
> > @empr_cod numeric(4,0),
> > @sucu_cod varchar(8),
> > @fecha_uno datetime,
> > @fecha_dos datetime,
> > @modelo_uno char(12),
> > @modelo_dos char(12),
> > @bode_cod varchar(20)
> >
> > AS
> >
> > SELECT *
> > FROM [inve]
> > WHERE [empr_cod] = @empr_cod and [sucu_cod] = @sucu_cod and
> > [inve_fec_emision] between @fecha_uno and @fecha_dos and
> > [art_cod] between @modelo_uno and @modelo_dos and
> > [bode_cod] in (@bode_cod)
> >
> >
> >
> > RETURN @@error
> > GO
> >
> > EL PROBLEMA QUE TENGO ES QUE NO ME FUNCIONA LA CONSULTA, POR FAVOR

> > PUEDEN AYUDAR
> >
> >
> >
>
>
>
> Outgoing mail is certified Virus Free.
> Checked by AVG anti-virus system (http://www.grisoft.com).
> Version: 6.0.772 / Virus Database: 519 - Release Date: 01/10/2004
>
>

Hola, si la ejecutas desde el QA que pasa?

Porque tambien me me decis que es para vos que no funciona la consulta?

emite un error?
No trae registros?


Salu2
Maxi
Buenos Aires - Argentina
Desarrollador Microsoft 3 Estrellas .NET
Nunca consideres el estudio como una obligación sino como
una oportunidad para penetrar en el bello y maravillosos
mundo del saber.
- Albert Einstein



"Alberto Cabello" escribió en el mensaje
news:
> hola a todos
> tengo el siguiente traspaso al procedimiento almacenado
>
> With CmdSQL
> .CommandType = adCmdStoredProc
> .CommandText = "prc_sel_movimientos"
>
> .Parameters.Append .CreateParameter("RETURN_VALUE",
> adInteger,adParamReturnValue, 0)
> .Parameters.Append .CreateParameter("empr_cod",
> adInteger,adParamInput, 4, inEmpresa)
> .Parameters.Append .CreateParameter("sucu_cod",
> adVarChar,adParamInput, 8, 1)
> .Parameters.Append .CreateParameter("fecha_uno",
> adDate,adParamInput, 8, dtDesde)
> .Parameters.Append .CreateParameter("fecha_dos",
> adDate,adParamInput, 8, dtHasta)
> .Parameters.Append .CreateParameter("modelo_uno",
> adChar,adParamInput, 12, stModeloUno)
> .Parameters.Append .CreateParameter("modelo_dos",
> adChar,adParamInput, 12, stModeloDos)
> .Parameters.Append .CreateParameter("bode_cod",
> adVarChar,adParamInput, 20, stBodegas)
>
> End With
> With rsReg
> .CursorLocation = adUseClient
> .Open CmdSQL, , adOpenDynamic, adLockReadOnly
> End With
>
> La variable stBodegas (último traspaso). y puede contener varios
> códigode bodegas por ejemplo "00,07"
>
> Este es procedimiento almacenado
> CREATE PROCEDURE prc_sel_movimientos
>
> @empr_cod numeric(4,0),
> @sucu_cod varchar(8),
> @fecha_uno datetime,
> @fecha_dos datetime,
> @modelo_uno char(12),
> @modelo_dos char(12),
> @bode_cod varchar(20)
>
> AS
>
> SELECT *
> FROM [inve]
> WHERE [empr_cod] = @empr_cod and [sucu_cod] = @sucu_cod and
> [inve_fec_emision] between @fecha_uno and @fecha_dos and
> [art_cod] between @modelo_uno and @modelo_dos and
> [bode_cod] in (@bode_cod)
>
>
>
> RETURN @@error
> GO
>
> EL PROBLEMA QUE TENGO ES QUE NO ME FUNCIONA LA CONSULTA, POR FAVOR ME
> PUEDEN AYUDAR
>
>
>



Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.772 / Virus Database: 519 - Release Date: 01/10/2004