HMG + MYSQL store procedure
Posted: Sun May 02, 2021 6:15 pm
Saludos amigos,
Como ya había comentado antes estoy realizando un proyecto de HMG + MySQL y estoy implementando algunas store procedures del lado del servidor MySQL.
Tengo ya trabajando estas llamadas:
Ahora se me ha presentado la necesidad de hacer una store procedure que DEVUELVE una cadena de texto y tengo la duda de como RECIBO esa cadena dentro de HMG. He revisado los métodos de oServer:Query() y solo recibe registros a través de :GetRow() y :fieldGet() requiere el nombre de un CAMPO, por lo que aquí me he perdido, ya que lo que devuelve la store procedure es una cadena de texto. Agredeceré la ayuda de aquellos que ya vienen trabajando con HMG + MySQL.
Gracias anticipadas y reciban un cordial saludo.
Como ya había comentado antes estoy realizando un proyecto de HMG + MySQL y estoy implementando algunas store procedures del lado del servidor MySQL.
Tengo ya trabajando estas llamadas:
Code: Select all
*>----------------------------------------------------------------------<*
*>----------------------------------------------------------------------<*
*>----------------------------------------------------------------------<*
FUNC VentaGrabSetNumDoc( nOperTipo,nOperVent )
LOCAL qCorre , oCorre
LOCAL lSeted := .F.
DO CASE
CASE nOperTipo = 1
qCorre := "CALL sp_correnotaventa("+INTSTR(SIS_LOCAL)+','+VALSTR(nOperVent)+")"
CASE nOperTipo = 2
qCorre := "CALL sp_correboleta("+INTSTR(SIS_LOCAL)+','+VALSTR(nOperVent)+")"
CASE nOperTipo = 3
qCorre := "CALL sp_correfactura("+INTSTR(SIS_LOCAL)+','+VALSTR(nOperVent)+")"
ENDCASE
oCorre := oServer:Query( qCorre )
IF ! oCorre:NetErr()
lSeted := .T.
ELSE
MsgStop ( oCorre:Error() )
nQueryError++
ENDIF
oCorre:Destroy()
RETURN( lSeted )
Gracias anticipadas y reciban un cordial saludo.