Me respondo a mi mismo.

Cambiar la propiedad :cIcon de la TwebPage() principal.

Saludos

Daniel

Pedro,

Muchas gracias por tu ayuda. El error inicial desapareció, pero ahora tengo un nuevo mensaje también al enlazar.

Desde ya muchas gracias

Daniel

Fredy,

Muchas gracias. Lo estudiaré.

Saludos

Xevi,

Funcionó perfecto.

Disculpa mi ignorancia, ¿dónde podría obtener una "lista" de esos comandos?

Muchas gracias

Alfredo

No conocía HTTP_REFERER.

Lo probé y fui consultando  con oCGI:Console() y veo que solo HTTP_REFERER ya contiene todo el texto de la Url "original", así que quedó funcionando con esto

Muchas gracias por la ayuda

• Esta respuesta fue modificada 3 años, 6 meses por Daniel.

Gracias Alfredo,

Lo probaré.

Saludos

Me respondo y les envío un pequeño aporte

He podido realizar una lista dentro de otra y comparto el código, seguramente se podrá hacer mucho mas linda pero bueno, paso a paso.

Lo que no me funciona es que las Ñ, ñ y los tildes se muestren correctamente, ¿cual es el truco?

Muchas gracias por tu respuesta.

Aver si voy entendiendo. Si bien nuestro programa estará formado por varios prg, cada uno de ellos tiene sus propias variables y para compartir los valores de las mismas entre unos y otros debemos utilizar los métodos mencionados, dado que los valores de las mismas néfele los guarda en "algún lugar" como para que sean visibles "como si fueran púbicas"; lo que me hace pensar que cada acción del usuario, como por ejemplo pulsar un boton o elejir una opción de un menú, ejecuta nuevamente nuestro cgi.

¿es así?

xhermita,

Muchas gracias por tu explicación. Al no saber nada de Json se me hace medio difícil comprender, pero mas hayá de eso, lo que nunca había visto es esta forma de llamar una función RecuperaBBDD()["Familias"], hasta donde yo sabía los parámetros siempre se ponen dentro de los paréntesis.

Nuevamente gracias

Saludos

Alfredo,

Se entiende perfecto.

Muchas gracias.

Saludos

Lo que me sucedió es que estoy acostumbrado a crear .ch donde pongo solamente "defines" sin valor a los efectos de que se compile o no,  partes del código, según personalizaciones que hago de acuerdo al cliente

En particular en este caso, el .ch solo tiene (por ahora) un linea:

Muchas gracias a todos por la ayuda.

Daniel

Probando pegar codigo

Alfredo,

Gracias por tu ayuda.

Este es mi código,

//Función principal de la app Web
PROCEDURE MainPage()

// Comenzamos instanciando la Página Web que queremos crear
With Object TWebPage():New()
// Para no tener que estar repitiendo código, la construcción del wRebar y del wSideNav lo tengo en un PROCEDURE
// que puedo llamar desde todo el proyecto
AppMenu( :WO )
:lValign := .T.
// :cIcon := "MacroSistemas"
:cTitle := "VirtualMenú"
:cTitleFooter := "MacroVentas ®"
:cSubTitle := "Sistema de punto de venta y gestión"
:cCopyright := '© VirtualMenú By MacroSistemas'
:cClrCrText := "blue"
:cClrFootPane := "black"

// Dentro de la web montamos un primer contenedor bEvel que ocupa 4/12 anchura en pantallas grandes
// en una mediana o pequeña se adaptará responsivamente ya que no le damos tamaño
With Object WBevel():New(:WO)
:aWidth[xc_L] := 4

With Object WLabel():New(:WO)
:nFontSize := 5
:lBold := .T.
:cAlign := xc_Center
:lBR := .T.
:cText := "Hola Mundo"
:Create()
End With
:Create()
End With

oCgi:SendPage( :Create() ) // Se crea el HTML final y se envía al navegador saliendo del ejecutable CGI

End With

RETURN

//------------------------------------------------------------------------------
// Aquí contruyo el wRebar y el wSideNav, al estar en un PROCEDURE aparte puedo crearlos dentro de cualquiera de
// las tWebPage del proyecto
// Necesito tWebPage donde he de crearlos, asi que se lo paso como parametro en oParent
PROCEDURE AppMenu(oParent, cTitle)
local cRestaurante

#ifdef POPEYE
cRestaurante := 'Restaurante Popei'
cTitle := 'Restaurante Popei'
#endif POPEYE

// Instanciamos el wSideNav (El menú lateral)
with object WSideNav():New(oParent)
// Como todas las propiedades image de Néfele podemos asiganerle una URL, un path de nuestro Apache o un BASE64
:cBackImage := "/images/Velero.jpeg"
:cId := "Menu"
:cTitle := cRestaurante
:cClrTiTle := "white"
:cText := "Menú"
:cClrText := "white"
:lShadow := .T. // Esta sombra afecta a los cText y a cTitle y se utiliza para que resalten sobre la imagen del fondo
// vamos a añadirle opciones a nuesto menú
// AddItem( cText, cFunction, cIcon, nStyle, aParams, cAction, aBadge {cText,cClass} )
:AddItem("Inicio","Inicio","home", xc_SideNavOption)
// :AddItem("Formularios","MainForms","note_add", xc_SideNavOption)
// :AddItem("Listas","MainListViews","contacts", xc_SideNavOption,,,"Novedad")
// :AddItem("Alertas","MainAlert","highlight", xc_SideNavOption,,,{"Novedad","red pulse"})
// :AddItem("Charts","MainCharts","data_usage", xc_SideNavOption,,,{"Novedad","blue pulse"})
// Como siempre, una vez definidas todas la propiedades procedemos a la creación
:Create()
end with

// Vamos con el wRebar
with object WRebar():New(oParent)
// Por defecto el wRebar esta creado para estar dividido en 3 areas, MenuNav, Titulo y Logo
// Podemos no poner cualquiera de los tres elementos, e incluso podemos utilizar el wRebar como un contenedor
// y crear dentro de el otros controles.
:cClrPane := "blue darken-1"
:lBeforeMain := .T. // Forzamos a que el wRebar este fuera del <main>
:lMenuNav := .T. // Lleva el icono de apertuta del wSideNav
:lBlock := .T. // Se queda fijo en la parte alta aunque se produzca un scroll
:cTitle := cTitle
:cTitleAlign := xc_Center // Podemos colocar el MenuNav, el Titulo y el Logo en cualquira de las tres posiciones left, center y right
:cLogo := "/images/MacroSistemas.jpg"
:cLogoAlign := xc_Right
// :cUrlToGo := "https://nefele.dev" // Cuando picamos en el Logo nos lleva a esta URL
:Create()
end with

RETURN

//------------------------------------------------------------------------------

Gabriel,

Muchas gracias por compartir tu código, lo he revisado y salvo un #define que yo tengo, el resto está bastante parecido, propiedad mas propiedad menos.

Saludos

Daniel