Dudas con paso de parametros - Nefele 4 Harbour

Acceder Darse de alta He olvidado la contraseña

Topic Resolution: Resolved

Etiquetado: WBrowse

Este debate tiene 6 respuestas, 4 mensajes y ha sido actualizado por última vez el 4 años, 1 mes por juan. This post has been viewed 724 timesnovedades. This post has been viewed 724 times

Mostrando 6 respuestas a los debates

Autor

Entradas

05-10-2020 a las 02:32 #981

juan.novedades

Participante

Buenas tardes, iniciando con este proyecto mas que interesante con operaciones basicas, tengo un llamada en el onclick a otra pagina desde un arraybrowse de la siguiente manera:

      WITH OBJECT  WArrayBrowse():New( :WO )
         :cId          := "Bancos"         // Id que le damos al ArrayBrowse
         :nStyle       := xc_Striped       // Estilo visual, con pautado pijama
         :cClrHeadPane := "red lighten-4"  // Le damos color a las cabeceras
         :cOnClick     := "EditarClasificacion" // MainFunction" // "VisParam"       // En caso de picar en un elemento del ArrayBrowse
         :cClrHeadPane := "green lighten-2"
         :nStyle       := xc_Highlight

WITH OBJECT WArrayBrowse():New( :WO )

:cId := "Bancos" // Id que le damos al ArrayBrowse

:nStyle := xc_Striped // Estilo visual, con pautado pijama

:cClrHeadPane := "red lighten-4" // Le damos color a las cabeceras

:cOnClick := "EditarClasificacion" // MainFunction" // "VisParam" // En caso de picar en un elemento del ArrayBrowse

:cClrHeadPane := "green lighten-2"

:nStyle := xc_Highlight

Agrega el siguiente codigo en el Main.Prg

Class TCgi From XCgi

   Method MainFunction InLine MainPage()
   Method Clasificaciones InLine Clasificaciones()
   Method EditarClasificacion InLine EditarClasificacion()
   Method AgregaClasificacion InLine AgregaClasificacion()
   // Method BorrarClasificacion InLine BorrarClasificacion()

End Class

Class TCgi From XCgi

Method MainFunction InLine MainPage()

Method Clasificaciones InLine Clasificaciones()

Method EditarClasificacion InLine EditarClasificacion()

Method AgregaClasificacion InLine AgregaClasificacion()

// Method BorrarClasificacion InLine BorrarClasificacion()

End Class

Y en el EditarClasificacion.Prg al inicio esta esto:

Procedure EditarClasificacion()

   Local aDatos
   LOCAL cCodigo := oCGI:GetCgiValue( "Bancos" )
   // Local cX := oCgi:GetCgiArray( cparametro )
   LOCAL hParam := oCGI:aParamsToHash(.F.)
   //
   oCGI:Console( cCodigo )
   oCGI:Console( hParam["FUNCTION","value"] )

Procedure EditarClasificacion()

Local aDatos

LOCAL cCodigo := oCGI:GetCgiValue( "Bancos" )

// Local cX := oCgi:GetCgiArray( cparametro )

LOCAL hParam := oCGI:aParamsToHash(.F.)

oCGI:Console( cCodigo )

oCGI:Console( hParam["FUNCTION","value"] )

Y ahi esta la duda... como obtengo los valores del renglon seleccionado en el arraybrowse ?

De antemano muchas gracias!

05-10-2020 a las 16:09 #991

Alfredo Sanz
Superadministrador

Al ArrayBrowse le tienes que informar de la columna que quieres que actúe como campo clave, y que será el valor que te retorne

Eso se hace con la propiedad :nIndexValue

WITH OBJECT oBrowse := WArrayBrowse():New( :WO ) :nIndexValue := 1

1
2

WITH OBJECT oBrowse := WArrayBrowse():New( :WO )
  :nIndexValue     := 1

después, en EditarClasificacion() pones

Local cRegistro cRegistro := oCGI:GetCGIValue( "Bancos" ) //El :cID del ArrayBrowse

1
2

Local cRegistro
   cRegistro := oCGI:GetCGIValue( "Bancos" ) //El :cID del ArrayBrowse

lo que te devolverá una cadena con <valor columna informada en nIndexValue> | < id de la fila html>
si haces un oCGI:Console( cRegistro ) , el nefele console te devolverá algo así como "003|bancos_lin2"

También puedes hacer

oRegistro := GetRowValue( cRegistro ) oCGI:Console(oRegistro:cValue) oCGI:Console(oRegistro:cId)

1
2
3

oRegistro := GetRowValue( cRegistro )
   oCGI:Console(oRegistro:cValue)
   oCGI:Console(oRegistro:cId)

que como ves, te devuelve una estructura donde

:cValue -> valor de nIndexValue de la fila
:cId -> id de la fila (el <tr>) correspondiente dentro de la tabla

De esta forma tienes el id del registro seleccionado para poder consultar en la base de datos y el id de la fila en la que te encuentras para poder poner o extraer la información
05-10-2020 a las 16:45 #993

juan.novedades
Participante

Funciono perfecto la linea: cRegistro := oCGI:GetCGIValue( "Bancos" ) //El :cID del ArrayBrowse

Pero la linea: oRegistro := GetRowValue( cRegistro ) al momento de compilar marca "undefined reference to 'HB_FUN_GETROWVALUE'" en xailer tengo la version personal "6.2.0" y la version de Nefele es la "1.3" el proyecto tiene enlazadas las librerias "wClassNefele" y "NefeleProject" me falta algo mas?

Saludos Cordiales.
05-10-2020 a las 16:49 #994

Xevi
Participante

En la versión de Nefele 1.3 debes de quitar la lib wClassNefele del proyecto.

No se si será ese el error.

Un Saludo,

Xevi.
05-10-2020 a las 17:02 #996

juan.novedades
Participante

Hola Xevi gracias por el tip pero ya probe quitandola pero sigue sin localizar la funcion. Saludos Cordiales.

06-10-2020 a las 11:33 #1004

Pedro Amaro

Superadministrador

Fredy te ha comentado el uso de una función que utiliza, pero que no esta aun incluida en Nefele, estaré en la proxima versión pero por ahora puedes incluirla en tu proyecto.

FUNCTION  GetRowValue( cDato )
Local eRetorno
// En cDato llega en indice (nIndexValue del browse que será el campo clave en la base de datos) y el id html de la linea para poder cambiarla
   cDato := hb_ATokens( cDato , "|" )
   WITH OBJECT eRetorno := TExsTruct():New()
      :AddMember( "cValue")
      :AddMember( "cId")
      :cValue := cDato[1]
      :cId    := cDato[2]
   END
RETURN eRetorno

FUNCTION GetRowValue( cDato )

Local eRetorno

// En cDato llega en indice (nIndexValue del browse que será el campo clave en la base de datos) y el id html de la linea para poder cambiarla

cDato := hb_ATokens( cDato , "|" )

WITH OBJECT eRetorno := TExsTruct():New()

:AddMember( "cValue")

:AddMember( "cId")

:cValue := cDato[1]

:cId := cDato[2]

END

RETURN eRetorno

06-10-2020 a las 19:15 #1016
juan.novedades
Participante
Genial, muchas gracias por el dato! Integrada y funcionando.

Saludos cordiales.
- Esta respuesta fue modificada 4 años, 1 mes por juan.novedades.

Autor

Entradas

Mostrando 6 respuestas a los debates

Debes estar registrado para responder a este debate.