FiveTech Support Forums

Hola,

estoy utilizando la función ReturnCall para un STORE PROCEDURE que tengo en mi BD Mysql.

En este STORE PROCEDURE, tengo un WHERE con un IN, o sea, por ejemplo tengo:

SELECT codigo,nombre FROM clientes WHERE codigo IN (cod1,cod2,cod3...)

Cuando llamo a mi función:

oServer:ReturnCall("busca_clientes",parametrowhere)

este "parametrowhere", como lo debo mandar? Hice varias pruebas con diferentes formatos y no

tengo una respuesta válida para mi select.

El ejemplo es burdo pero es para que se entienda bien.

Quien pueda ayudarme, se lo agradeceré! Hace todo el día que estoy parado con esto y no lo

puedo hacer funcionar...

Muchas muchas gracias!

Roberto

METHOD ReturnCall( ... ) CLASS TDolphinSrv
   LOCAL n
   LOCAL oQry
   LOCAL aParams  := HB_AParams()
   LOCAL cExecute := "CALL "

#ifndef NOINTERNAL
   IF Len( aParams ) < 1 .or. ValType( aParams[ 1 ] ) <> "C"
      ::nInternalError := ERR_INVALID_PARAMETER_CALL
      ::CheckError()
   ENDIF

   IF ::lError
       RETURN ::lError
   ENDIF
#endif

   cExecute += aParams[ 1 ] + "( "

   FOR n := 2 TO Len( aParams )
      cExecute += ClipValue2Sql( aParams[ n ] ) + ","
   NEXT

   cExecute := Left( cExecute, Len( cExecute ) - 1 ) + ")"
   oQry     := ::Query( cExecute )

   ::NextResult()

RETURN oQry

ReturnCall (cProcName,aParameters)
oServer:ReturnCall("busca_clientes",{ cCodClie })

oServer:ReturnCall("busca_clientes","cod1,cod2,cod" )

SELECT codigo,nombre FROM clientes WHERE codigo IN (cod1,cod2,cod3...)

oServer:ReturnCall("busca_clientes", ArrayToList( { "010", "020", "030" } ) )
...
function ArrayToList( aItems )
 local cList := ""
 local nLen := len( aItems )
 if hb_isArray( aItems)
  for x:=1 to nLen
   cList += aItems[x] + iif( x < nLen, ",", "" )
  next
 endif
return cList

Genial Carlos!!!!!

Cómo debería definir mi campo IN en la Procedure? Como Varchar() ??

Muchas gracias!!!

Deberías poner aqui tu Procedimiento Almacenado, para entenderlo.

Así creería yo, tipo varchar, pero mejor muéstranos el procedure para revisar.

? ArrayToList( { "010", "020", "030" }

Carlos, esta es mi Procedure:

SELECT c.cantidad,c.no_sirve,c.identificacion AS identifi,c.id_comprobante,c.fecha_movimiento,c.id,c.id_articulo,c1.tipo AS t1,0 AS t2,c3.tipo AS t3,0 AS t4,c.comprobante,c.id_unidad_medida FROM comprobantes_cuerpo AS c

LEFT JOIN comprobantes_compras AS c1 ON c.identificacion='C' and c1.id=c.id_comprobante

LEFT JOIN comprobantes_ventas AS c3 ON c.identificacion='V' and c3.id=c.id_comprobante

WHERE c.id_empresa=BDempresa and FIND_IN_SET(c.id_articulo,BDArticulo)

ORDER BY c.fecha_movimiento,c.id

Donde, mis variables son:

IN BDempresa int,IN BDarticulo varchar(200)

Ahora estoy usando el FIND_IN_SET() que funciona, pero me gustaría volver al "WHERE IN"

Gracias!

Con el WHERE IN, no es posible, debido a que la lista de codigos es variable. En SQL SERVER si he podido hacerlo, con sentencia SQL dinámicas.

Otra opción sería NO usar Store Procedure, sino, una sentencia select.

** Códigos Alfanuméricos

cCadena:="'001','002','003','004'"

Text In Sql

SELECT c.cantidad,c.no_sirve,c.identificacion AS identifi,c.id_comprobante,c.fecha_movimiento,c.id,c.id_articulo,c1.tipo AS t1,0 AS t2,c3.tipo AS t3,0 AS t4,c.comprobante,c.id_unidad_medida

FROM comprobantes_cuerpo AS c

LEFT JOIN comprobantes_compras AS c1 ON c.identificacion='C' and c1.id=c.id_comprobante

LEFT JOIN comprobantes_ventas AS c3 ON c.identificacion='V' and c3.id=c.id_comprobante

WHERE c.id_empresa=BDempresa and c.codigo in (cCadena)

ORDER BY c.fecha_movimiento,c.id

EndText

Sql:=StrTran(Sql,'cCadena',cCadena)

** Códigos numéricos

nCadena:="001,002,003,004"

Text In Sql

SELECT c.cantidad,c.no_sirve,c.identificacion AS identifi,c.id_comprobante,c.fecha_movimiento,c.id,c.id_articulo,c1.tipo AS t1,0 AS t2,c3.tipo AS t3,0 AS t4,c.comprobante,c.id_unidad_medida

FROM comprobantes_cuerpo AS c

LEFT JOIN comprobantes_compras AS c1 ON c.identificacion='C' and c1.id=c.id_comprobante

LEFT JOIN comprobantes_ventas AS c3 ON c.identificacion='V' and c3.id=c.id_comprobante

WHERE c.id_empresa=BDempresa and c.codigo in (nCadena)

ORDER BY c.fecha_movimiento,c.id

EndText

Sql:=StrTran(Sql,'nCadena',nCadena)

Muchas gracias "jacgsoft"...

Solucionado!!