Nefele 4 Harbour

Respuestas de foro creadas

Viendo 36 entradas - de la 1 a la 36 (de un total de 36)

Autor

Entradas

10-02-2024 a las 19:03 en respuesta a: Duda con la carga de ventanas modal #2201

juan.novedades

Participante

Gracias Pedro, seguimos checando. Saludos.

09-02-2024 a las 18:07 en respuesta a: Duda con la carga de ventanas modal #2195

juan.novedades

Participante

curioso, si en console del inspector pongo : $("#modal_usua").modal("open"); si se muestra la ventana modal !

09-02-2024 a las 18:03 en respuesta a: Duda con la carga de ventanas modal #2194

juan.novedades

Participante

Probe con este ejemplo basado en uno de Xevi aparte de mi codigo y lo mismo:

/*
 * Proyecto:      Ejemplo1
 * Fichero:       MainPage.prg
 * Descripción:   Aplicación CGI de Ejemplo1
 * Autor:         usuario1
 * Fecha:         10/10/2023
 */

#include "Xailer.ch"
#include "Nefele.ch"

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

   // Comenzamos instanciando la Página Web que queremos crear
   WITH OBJECT TWebPage():New()
      :lAlerts := .T.      // Como vamos a usar alerts desde ajax, tenemos que indicarlo a webpage

      CrearModal( :WO )  // Creamos la ventana modal

      WITH OBJECT WBevel():New( :WO )
         :cId := "myBevel"

         WITH object WEdit():New( :WO )
            :cId                := "myEdit1"
            :cTitle             := "Mi Edit1"
            :Create()
         END WITH

         WITH object WButton():New(:WO)
            :cText       := "Prueba abrir ventana Modal"
            :aParams := { { "myEdit1", "#myEdit1"} }
            :cOnClick    := "AbrirModal"
            :cAjaxBevel   := "nflcargo"
            :Create()
         END

         :Create()
      END

      oCgi:SendPage(:Create())
   END WITH

RETURN

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

// creamos la ventana modal
FUNCTION CrearModal ( o )
   LOCAL oBevel, oForm

   WITH OBJECT oBevel := WBevel():New( o )
      :cId             := "modal1"
      :nStyle          := xc_Modal
      :lTrueModal      := .f.
      :aWidth[ xc_S ]  := 10
      :aWidth[ xc_M ]  := 8

      WITH OBJECT WPanel():New( :WO )
         :cTitle        := "Edición de datos"
         :aWidth[ xc_S ] := 12

         WITH OBJECT oForm := WForm():New( :WO )
            :cId       := "frmModal1"
            :cFunction := "UpdateModal"

            WITH OBJECT WEdit():New( :WO )
               :cId        := "MyEditModal1"
               :cTitle     := "MyEditModal1"
               :Create()
            END WITH

            WITH OBJECT WButton():New( :WO )
               :cId         := "submit"
               :cText       := "Aceptar"
               :cOnClick    := oBevel:Submit( oForm )
               :Create()
            END WITH

            :Create()
         END WITH //form

         :Create()
      END WITH //Panel

      :Create()
   END WITH //Bevel

RETURN NIL

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

FUNCTION AbrirModal()
   Local cHtml := ""
   Local cTextEdit1 := oCGI:GetCGIValue( "myEdit1" )  //Capturamos els valor introducido en el Edit1 de la ventana Inicial

   //En Ajax, los nombres de los Id/Controles, en minúsculas
   cHtml  := "" // SetValueById( "myeditmodal1", cTextEdit1 )
   SendAjaxScript( cHtml, "modal1", "myeditmodal1" )  //Texto, id de la ventana modal a abrir, id del control que tomarᡥl foco )

RETURN NIL

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

PROCEDURE UpdateModal
   Local cHtml := ""
   Local cTextEdit1 := oCGI:GetCgiValue( "myEditModal1", "" ) //Capturamos els valor introducido en el Edit1 de la ventana Modal

   //En Ajax, los nombres de los Id/Controles, en minúsculas
   cHtml  := "" // SetValueById( "myedit1", cTextEdit1 )
   SendAjaxScript( cHtml, "mybevel", .F. )  //Texto, id de la ventana modal a abrir, id del control que tomarᡥl foco )

RETURN

FUNCTION SendAjaxScript( cText, cModal, cFocus )

   IF !Empty( cModal )
      cText += cOpenModal( cModal )
   ENDIF

   IF !Empty( cFocus )
      cText +=  SetFocus( cFocus )
   ENDIF

   oCGI:Send( "" )
   oCGI:send( IF(At("<SCRIPT>",Upper(cText))=0,"<script>","") + crlf + cText + crlf + "</script>" )

RETURN NIL


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

FUNCTION cOpenModal( cName )
RETURN '$("#' + cName + '").modal("open");' + crlf

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

FUNCTION SetFocus( cName )
RETURN 'document.querySelector("#' + cName + '").focus();' + crlf

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

125

126

127

128

129

130

131

132

133

134

135

136

137

138

139

140

* Proyecto: Ejemplo1

* Fichero: MainPage.prg

* Descripción: Aplicación CGI de Ejemplo1

* Autor: usuario1

* Fecha: 10/10/2023

#include "Xailer.ch"

#include "Nefele.ch"

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

//Función principal de la app Web

PROCEDURE MainPage()

// Comenzamos instanciando la Página Web que queremos crear

WITH OBJECT TWebPage():New()

:lAlerts := .T. // Como vamos a usar alerts desde ajax, tenemos que indicarlo a webpage

CrearModal( :WO ) // Creamos la ventana modal

WITH OBJECT WBevel():New( :WO )

:cId := "myBevel"

WITH object WEdit():New( :WO )

:cId := "myEdit1"

:cTitle := "Mi Edit1"

:Create()

END WITH

WITH object WButton():New(:WO)

:cText := "Prueba abrir ventana Modal"

:aParams := { { "myEdit1", "#myEdit1"} }

:cOnClick := "AbrirModal"

:cAjaxBevel := "nflcargo"

:Create()

END

:Create()

END

oCgi:SendPage(:Create())

END WITH

RETURN

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

// creamos la ventana modal

FUNCTION CrearModal ( o )

LOCAL oBevel, oForm

WITH OBJECT oBevel := WBevel():New( o )

:cId := "modal1"

:nStyle := xc_Modal

:lTrueModal := .f.

:aWidth[ xc_S ] := 10

:aWidth[ xc_M ] := 8

WITH OBJECT WPanel():New( :WO )

:cTitle := "Edición de datos"

:aWidth[ xc_S ] := 12

WITH OBJECT oForm := WForm():New( :WO )

:cId := "frmModal1"

:cFunction := "UpdateModal"

WITH OBJECT WEdit():New( :WO )

:cId := "MyEditModal1"

:cTitle := "MyEditModal1"

:Create()

END WITH

WITH OBJECT WButton():New( :WO )

:cId := "submit"

:cText := "Aceptar"

:cOnClick := oBevel:Submit( oForm )

:Create()

END WITH

:Create()

END WITH //form

:Create()

END WITH //Panel

:Create()

END WITH //Bevel

RETURN NIL

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

FUNCTION AbrirModal()

Local cHtml := ""

Local cTextEdit1 := oCGI:GetCGIValue( "myEdit1" ) //Capturamos els valor introducido en el Edit1 de la ventana Inicial

//En Ajax, los nombres de los Id/Controles, en minúsculas

cHtml := "" // SetValueById( "myeditmodal1", cTextEdit1 )

SendAjaxScript( cHtml, "modal1", "myeditmodal1" ) //Texto, id de la ventana modal a abrir, id del control que tomarᡥl foco )

RETURN NIL

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

PROCEDURE UpdateModal

Local cHtml := ""

Local cTextEdit1 := oCGI:GetCgiValue( "myEditModal1", "" ) //Capturamos els valor introducido en el Edit1 de la ventana Modal

//En Ajax, los nombres de los Id/Controles, en minúsculas

cHtml := "" // SetValueById( "myedit1", cTextEdit1 )

SendAjaxScript( cHtml, "mybevel", .F. ) //Texto, id de la ventana modal a abrir, id del control que tomarᡥl foco )

RETURN

FUNCTION SendAjaxScript( cText, cModal, cFocus )

IF !Empty( cModal )

cText += cOpenModal( cModal )

ENDIF

IF !Empty( cFocus )

cText += SetFocus( cFocus )

ENDIF

oCGI:Send( "" )

oCGI:send( IF(At("<SCRIPT>",Upper(cText))=0,"<script>","") + crlf + cText + crlf + "</script>" )

RETURN NIL

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

FUNCTION cOpenModal( cName )

RETURN '$("#' + cName + '").modal("open");' + crlf

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

FUNCTION SetFocus( cName )

RETURN 'document.querySelector("#' + cName + '").focus();' + crlf

05-12-2023 a las 21:13 en respuesta a: Cuando vemos la nueva versión #2171

juan.novedades

Participante

Gracias Pedro ! vamos a enterarnos.

23-11-2023 a las 18:43 en respuesta a: Cuando vemos la nueva versión #2138

juan.novedades

Participante

Me uno a la petición, seria genial que nos compartieran video de lo expuesto en la reunión. Rene e Israel platiquen algo... 🙂 Saludos Cordiales.

15-11-2023 a las 23:54 en respuesta a: Notificaciones de One Signal #2125

juan.novedades

Participante

Fredy, siguiendo con las pruebas:

Con Edge, Chrome y Firefox al hacer esto:

Local cUuid := oCGI:GetCgiValue( "onesignaluser", "no" )

no me da valor:

Con Brave marca:

Pero si agrego lo siguiente en el :cOnReady

         var OneSignal = window.OneSignal || [];
         OneSignal.push(function() {
           OneSignal.init({
             appId: "d485c717-4331-498a-9d1e-3c03cfcfae97",
           });
         });

         alert("cargo el js");

         OneSignal.isPushNotificationsEnabled(function(isEnabled) {
                    alert("si");
            OneSignal.getUserId(function(userId) {
                alert(userId);
                OneSignalUser = userId;
                var a = document.getElementsByName("onesignaluser")
                for (i = 0; i < a.length; i++)
                    a[i].value = OneSignalUser;
            });

         });

var OneSignal = window.OneSignal || [];

OneSignal.push(function() {

OneSignal.init({

appId: "d485c717-4331-498a-9d1e-3c03cfcfae97",

});

alert("cargo el js");

OneSignal.isPushNotificationsEnabled(function(isEnabled) {

alert("si");

OneSignal.getUserId(function(userId) {

alert(userId);

OneSignalUser = userId;

var a = document.getElementsByName("onesignaluser")

for (i = 0; i < a.length; i++)

a[i].value = OneSignalUser;

});

Entonces si en los alerts da el valor de userId en Chrome y Firefox, en Edge da un valor Null, y sigue sin dar valor con: Local cUuid := oCGI:GetCgiValue( "onesignaluser", "no" )

En pruebas con un iphone y con un Android corriendo chrome no se muestran los alerts con el userId

Que podra ser lo que falta?

Esta respuesta fue modificada 5 meses por juan.novedades.
Esta respuesta fue modificada 5 meses por juan.novedades.

14-11-2023 a las 23:31 en respuesta a: Notificaciones de One Signal #2122

juan.novedades

Participante

Muchas Gracias Fredy, probando...

14-11-2023 a las 17:24 en respuesta a: Notificaciones de One Signal #2119

juan.novedades

Participante

Gracias Fredy, checamos y comentamos...

23-10-2023 a las 02:50 en respuesta a: Duda con web service #2097

juan.novedades

Participante

en la función del programa xailer Button1Click() en la línea 56 me pone que el error es el número 12029.

Esta respuesta fue modificada 5 meses, 4 semanas por juan.novedades.

23-10-2023 a las 02:48 en respuesta a: Duda con web service #2096

juan.novedades

Participante

en la función RestFunction() deje algunos nfl_console() pero no se ven reflejados en el "Nefele Console" como si no llegara a esa parte del codigo.

23-10-2023 a las 02:44 en respuesta a: Duda con web service #2094

juan.novedades

Participante

Pedro, buenas tardes en el ejemplo mas simple que genera el Nefelewizard, agrego en el Main.Prg lo siguiente:

Class TCgi FROM XCgi


   // Este es nuestro Router para evitar inyección de código malicioso y aportar la máxima seguridad.
   // Solo se permite la llamada a los Method de oCgi aquí nombrados que a su vez llaman a Procedure, Function o Method's
   METHOD MainFunction()                              Inline MainPage()
   METHOD RestFunction()                              INLINE RestFunction()
*   METHOD OtraMas()                                   Inline OtraMas() //Y así tantas como queramos

END CLASS

Class TCgi FROM XCgi

// Este es nuestro Router para evitar inyección de código malicioso y aportar la máxima seguridad.

// Solo se permite la llamada a los Method de oCgi aquí nombrados que a su vez llaman a Procedure, Function o Method's

METHOD MainFunction() Inline MainPage()

METHOD RestFunction() INLINE RestFunction()

* METHOD OtraMas() Inline OtraMas() //Y así tantas como queramos

END CLASS

con esta función basada en los samples en el mismo main.prg

FUNCTION RestFunction

   LOCAL aData, n,m

   nfl_Console( "linea número 346" )
   WITH OBJECT oCGI
      nfl_Console( :cRestRaw )
      IF !Empty( :cRestRaw )
         HB_JsonDecode(:cRestRaw, @aData )
         nfl_Console( AllTrim( Str( Len( aData ) ) ) )
         DO CASE        // HTTP://samples.nefele.dev/n4h/factura/13.jpg/800x600
            CASE :Route( 1,"clientes","PATCH" ) .OR. :Route( 1,"clientes","PUT" )
               nfl_Console( "linea 351" )
               IF :nRequestMode  == rmPATCH // rmPATCH NO FUNCIONA LA CONSTANTE
                  FOR  n := 1 TO Len( aData )
                     aData[n,4] = Time()
                  NEXT
               ENDIF
               :Send( "Status: 200 OK" )
               :Send( "Content-type: " + GetEnv( "CONTENT_TYPE" ) ) // ojo, puede ser, por ejemplo, un pdf o un exe
               :Send("")
               :Send(HB_JsonEncode(aData))

            CASE :Route( 1,"cliente","POST")
               TRY
                  IF :Route( 2,"RANDOM")
                     m := HB_Random(Len( aData))
                     n := Int( m )+1
                     m := Transform( n, "@e 999,999")
                  ELSE
                     m := Time()
                     n := Val(:Route(2))
                  ENDIF
                  aData[ n,4] =  m
                  :Send( "Status: 200 OK" )
                  :Send( "Content-type: " + GetEnv( "CONTENT_TYPE" ) ) // ojo, puede ser, por ejemplo, un pdf o un exe
                  :Send("")
                  :Send(HB_JsonEncode({aData[n]}))
               CATCH
                  :Send( "Status: 500 Internal Server Error" )
                  :Send("")
               END
            OTHERWISE
                  :Send( "Status: 400 Bad Request" )
                  :Send("")
         ENDCASE
      ELSE
         :Send( "Status: 500 Internal Server Error" )
         :Send("")
      ENDIF
   END

RETURN Nil

FUNCTION RestFunction

LOCAL aData, n,m

nfl_Console( "linea número 346" )

WITH OBJECT oCGI

nfl_Console( :cRestRaw )

IF !Empty( :cRestRaw )

HB_JsonDecode(:cRestRaw, @aData )

nfl_Console( AllTrim( Str( Len( aData ) ) ) )

DO CASE // HTTP://samples.nefele.dev/n4h/factura/13.jpg/800x600

CASE :Route( 1,"clientes","PATCH" ) .OR. :Route( 1,"clientes","PUT" )

nfl_Console( "linea 351" )

IF :nRequestMode == rmPATCH // rmPATCH NO FUNCIONA LA CONSTANTE

FOR n := 1 TO Len( aData )

aData[n,4] = Time()

ENDIF

:Send( "Status: 200 OK" )

:Send( "Content-type: " + GetEnv( "CONTENT_TYPE" ) ) // ojo, puede ser, por ejemplo, un pdf o un exe

:Send("")

:Send(HB_JsonEncode(aData))

CASE :Route( 1,"cliente","POST")

TRY

IF :Route( 2,"RANDOM")

m := HB_Random(Len( aData))

n := Int( m )+1

m := Transform( n, "@e 999,999")

ELSE

m := Time()

n := Val(:Route(2))

ENDIF

aData[ n,4] = m

:Send( "Status: 200 OK" )

:Send( "Content-type: " + GetEnv( "CONTENT_TYPE" ) ) // ojo, puede ser, por ejemplo, un pdf o un exe

:Send("")

:Send(HB_JsonEncode({aData[n]}))

CATCH

:Send( "Status: 500 Internal Server Error" )

:Send("")

END

OTHERWISE

:Send( "Status: 400 Bad Request" )

:Send("")

ENDCASE

ELSE

:Send( "Status: 500 Internal Server Error" )

:Send("")

ENDIF

END

RETURN Nil

por otro lado en una aplicación hecha con Xailer puro al onclick de un boton pongo lo siguiente:

METHOD Button1Click( oSender ) CLASS TForm9

LOCAL hRequest
LOCAL cBuffer := Space( 1024 )
LOCAL aDatos, cHeaders, aData, jData
LOCAL n,a
LOCAL cRead := ""

   aData := {{"alfredo Sanz" , "parque 52 "            , "50007 zaragoza", "" },;
            {"Paco Pérez"    , "paseo Independencia 24", "50004 zaragoza", "" },;
            {"Carlos Lamarte", "emilio castelar 4"     , "50002 zaragoza", "" },;
            {"Ramón Pérez"   , "Miguel servet 24"      , "50002 zaragoza", "" } }

   FOR n=5 TO ::oMaskEdit1:Value
     AAdd(aData,{"usuario Nº "+AllTrim(Str(n)),"dirección","población",""})
   NEXT

   MsgInfo("enviando")

   jData := HB_JsonEncode(aData)

   a := Seconds()

   WITH OBJECT TInternet()
      *:nPort := 44444
      :Create()
      IF :Open()
         // IF :Connect( "localhost" )
         // IF :Connect( "samples.nefele.dev" ) // "127.0.0.1" )
         IF :Connect( "127.0.0.1" )
         // IF :Connect( "localhost" )


            // hRequest := :OpenRequest("PUT", "/n4h/clientes"  )

            // hRequest := :OpenRequest("PUT", "/cgi-bin/nefele_samples.exe/clientes"  )
            hRequest := :OpenRequest("PATCH", "/cgi-bin/ejemplo1.exe/clientes"  )
            // hRequest := :OpenRequest("POST", "/cgi-bin/nefele_samples.exe/cliente/random"  )
            // hRequest := :OpenRequest("POST", "/cgi-bin/nefele_samples.exe/cliente/200"  )

            :SendRequest( hRequest,"Content-Type: application/json" , jData )
            IF GetLastError() == 0
               WHILE :ReadFile( hRequest, @cBuffer, 1024 )
                  cRead   += cBuffer
                  cBuffer := Space( 1024 )
               END
               :QueryInfo(hRequest, HTTP_QUERY_RAW_HEADERS_CRLF, @cHeaders )

               LogDebug( "cHeaders: " + cHeaders )

               ::oMemo1:nClrPane := clWindow
               ::oMemo1:Value    := cHeaders

               :CloseRequest( hRequest )
            Else
               MsgStop( AllTrim( Str( GetLastError() ) ) )
            ENDIF
         Else
            MsgStop( "no conecto" )
         ENDIF
         :Close()
      ENDIF
   END


   HB_JsonDecode(cRead, @aDatos )

   ::oArrayBrowse1:aArrayData := aDatos
   MsgInfo( cRead + ", recuperados  en "+Transform(Seconds()-a,"@e 999.99"))


RETURN Nil

METHOD Button1Click( oSender ) CLASS TForm9

LOCAL hRequest

LOCAL cBuffer := Space( 1024 )

LOCAL aDatos, cHeaders, aData, jData

LOCAL n,a

LOCAL cRead := ""

aData := {{"alfredo Sanz" , "parque 52 " , "50007 zaragoza", "" },;

{"Paco Pérez" , "paseo Independencia 24", "50004 zaragoza", "" },;

{"Carlos Lamarte", "emilio castelar 4" , "50002 zaragoza", "" },;

{"Ramón Pérez" , "Miguel servet 24" , "50002 zaragoza", "" } }

FOR n=5 TO ::oMaskEdit1:Value

AAdd(aData,{"usuario Nº "+AllTrim(Str(n)),"dirección","población",""})

MsgInfo("enviando")

jData := HB_JsonEncode(aData)

a := Seconds()

WITH OBJECT TInternet()

*:nPort := 44444

:Create()

IF :Open()

// IF :Connect( "localhost" )

// IF :Connect( "samples.nefele.dev" ) // "127.0.0.1" )

IF :Connect( "127.0.0.1" )

// IF :Connect( "localhost" )

// hRequest := :OpenRequest("PUT", "/n4h/clientes" )

// hRequest := :OpenRequest("PUT", "/cgi-bin/nefele_samples.exe/clientes" )

hRequest := :OpenRequest("PATCH", "/cgi-bin/ejemplo1.exe/clientes" )

// hRequest := :OpenRequest("POST", "/cgi-bin/nefele_samples.exe/cliente/random" )

// hRequest := :OpenRequest("POST", "/cgi-bin/nefele_samples.exe/cliente/200" )

:SendRequest( hRequest,"Content-Type: application/json" , jData )

IF GetLastError() == 0

WHILE :ReadFile( hRequest, @cBuffer, 1024 )

cRead += cBuffer

cBuffer := Space( 1024 )

END

:QueryInfo(hRequest, HTTP_QUERY_RAW_HEADERS_CRLF, @cHeaders )

LogDebug( "cHeaders: " + cHeaders )

::oMemo1:nClrPane := clWindow

::oMemo1:Value := cHeaders

:CloseRequest( hRequest )

Else

MsgStop( AllTrim( Str( GetLastError() ) ) )

ENDIF

Else

MsgStop( "no conecto" )

ENDIF

:Close()

ENDIF

END

HB_JsonDecode(cRead, @aDatos )

::oArrayBrowse1:aArrayData := aDatos

MsgInfo( cRead + ", recuperados en "+Transform(Seconds()-a,"@e 999.99"))

RETURN Nil

la aplicación nefele se llama ejemplo1.exe en el puerto 8082, pero no jala, que estoy haciendo mal, necesitas mas datos de lo que hago?

Saludos cordiales Pedro.

Esta respuesta fue modificada 5 meses, 4 semanas por juan.novedades.

17-10-2023 a las 00:53 en respuesta a: Duda con web service #2091

juan.novedades

Participante

Muchas gracias Pedro, lo preparo y les aviso.

16-10-2023 a las 05:15 en respuesta a: Duda con web service #2085

juan.novedades

Participante

una observación adicional es que usamos http no https.

11-08-2022 a las 19:41 en respuesta a: Néfele Project v0.4.0 error #1934

juan.novedades

Participante

Disculpa Alfredo, estoy creando el cgi con la libNefeleProject.a con fecha del 02/08/2022 02:12 p.m. pero aun me sigue poniendo el mensaje de la vigencia, sera que se me esta pasando hacer algo mas ? Saludos cordiales !

08-08-2022 a las 19:55 en respuesta a: Néfele Project v0.4.0 error #1933

juan.novedades

Participante

Muchas gracias Alfredo, sigo el consejo... Saludos cordiales !

02-08-2022 a las 19:47 en respuesta a: Néfele Project v0.4.0 error #1931

juan.novedades

Participante

una disculpa, este tema ya fue resuelto hace tiempo. Gracias !

27-12-2021 a las 00:03 en respuesta a: Duda en el modo responsive de cgi #1915

juan.novedades

Participante

Una disculpa, no aclare... la instalación en ese vps, tiene la configuración de apache, xailer y nefele wizard recomendadas en el blog. Saludos

26-12-2021 a las 23:13 en respuesta a: Duda en el modo responsive de cgi #1914

juan.novedades

Participante

Muchas gracias Fredy, revisamos la entrada para entender mas.

26-12-2021 a las 19:39 en respuesta a: Duda en el modo responsive de cgi #1912

juan.novedades

Participante

Muchas gracias Fredy, pues creo que siendo que andamos en temas desconocidos se esta avanzando, explico...en la configuracion de Frenom hay una sección llamada "URL Forwarding" en ella se pone la url del cgi , ademas se puede seleccionar "Frame (cloaking) (default)" ó "Redirect (HTTP 301 forwarding)" si selecciono la primera la pagina se muestra en el modo normal si selecciono la segunda si que se muestra en modo responsivo solo que en la barra se muestra la dirección completa del cgi en lugar del dominio (como que no es lo ideal), siguiendo en la "googleada" encontramos la sugerencia de configurar en la opción "Manage Freenom DNS" , se agregaron dos registros de la siguiente manera :

Name Type Ttl Target

vacio A 3600 ip del VPS

www A 3600 ip del VPS

Pero ahí no puedo poner la dirección completa del cgi, solo la ip, entonces la "solución" fue poner un index.html en htdocs que redireccionara al cgi y de esa manera funciono el modo responsivo y muestra el dominio y aunque funciona no parece que sea la solución mas "limpia", comparto el dominio y la ip del vps, aun creo que me falta mucho para el tema de seguridad así que tengan compasión jejeje .

http://www.lupitadidactica.ml http://104.129.131.115/cgi-bin/lupita2021.cgi

Se que no es tema propiamente de Nefele pero casi todos vamos a pasar por aquí en algún momento, cualquier ayuda es de agradecer. Saludos y que sean días de Familia y Amigos.

06-11-2021 a las 18:01 en respuesta a: Duda con wAttachFile #1905

juan.novedades

Participante

Muchas gracias Alfredo, estaremos al pendiente. Saludos !

11-12-2020 a las 23:17 en respuesta a: Librerías de iconos #1647

juan.novedades

Participante

Genial! Alfredo, mas opciones para nuestras aplicaciones. Saludos Cordiales.

05-12-2020 a las 00:35 en respuesta a: Imagen png, hpg o ico en wButton #1632

juan.novedades

Participante

Pedro muchas gracias por la aclaración, vamos a probar. Saludos!

13-11-2020 a las 05:12 en respuesta a: Cambiar acceso a materialize.css #1537

juan.novedades

Participante

Añadi esto: AAdd( :aHeadLinks,'<link rel="stylesheet" href="/css/materialize.css">') en seguida de definir un TWebPage y funciono! , espero no estar complicando, jejeje

10-11-2020 a las 21:58 en respuesta a: Ejemplo wCards #1534

juan.novedades

Participante

Genial Alfredo, funciono muy bien, lo puse asi: :oStyle:cHeight = "520px" y ya se muestran sin espacios pero ahora el detalle es con los botones se muestran a "alturas" diferentes, pense que quizas si uniformara el ancho de la descripción de los productos se resolviera pero de alguna manera u otra html lo recorta y termina siempre poniendo lo mismo. Alguna sugerencia para ello ? Saludos Cordiales y aprovecho para decir que esta es una herramienta que da mucha satisfaccion.

10-11-2020 a las 05:29 en respuesta a: Ejemplo wCards #1529

juan.novedades

Participante

Hola Alfredo buenas noches tengo una duda con el ejemplo si cambiamos la linea 11 con lo siguiente:

      aModel := { ;
         { "3420", "1.png", "Pijama homewear sdf sdf sdf sdfsdf sdfs df" }, ;
         { "4653", "2.png", "Pijama corazones sdf sdf sdfsdfsdfs" }, ;
         { "7689", "3.png", "Baby escolar" }, ;
         { "1234", "4.png", "Camisola verano" }, ;
         { "5323", "5.png", "Pijama caballero" }, ;
         { "7260", "6.png", "Camisa sportwear" } ;
         }

aModel := { ;

{ "3420", "1.png", "Pijama homewear sdf sdf sdf sdfsdf sdfs df" }, ;

{ "4653", "2.png", "Pijama corazones sdf sdf sdfsdfsdfs" }, ;

{ "7689", "3.png", "Baby escolar" }, ;

{ "1234", "4.png", "Camisola verano" }, ;

{ "5323", "5.png", "Pijama caballero" }, ;

{ "7260", "6.png", "Camisa sportwear" } ;

}

cambia la altura de las cards y provoca que se haga un espacio en blanco entre la tercera y la cuarda, hay una manera de obligar la misma altura para todas?

Saludos Cordiales.

15-10-2020 a las 04:49 en respuesta a: Mensajes de alerta por Ajax #1212

juan.novedades

Participante

Va a servir mucho para validaciones, solo tuve que agregar en main.prg lo siguiente:

Method Alerta1 InLine Alerta1()
Method AjaxAlerta1 InLine AjaxAlerta1()

puse en la linea #4
:lAlerts := .T.

sustitui en la linea #37

cHtml := Tag("script", "alert('Dato NO encontrado:  "+ cDato + "')" )

1	cHtml := Tag("script", "alert('Dato NO encontrado: "+ cDato + "')" )

por

      WITH OBJECT WMsgAlert():New()
         :cText := 'Dato NO encontrado: ' + cDato
         :Create()
         cHtml := :FullHtml()
      END WITH

WITH OBJECT WMsgAlert():New()

:cText := 'Dato NO encontrado: ' + cDato

:Create()

cHtml := :FullHtml()

END WITH

Muchas gracias y Saludos Cordiales!

Esta respuesta fue modificada 3 años, 6 meses por Alfredo Sanz.
Esta respuesta fue modificada 3 años, 6 meses por Alfredo Sanz.

15-10-2020 a las 04:33 en respuesta a: ArrayBrowse con mensaje de Alerta en OnClick #1211

juan.novedades

Participante

Muy bueno Xevi, solo tuve que agregar lo siguiente en main.prg:

Method ArrayBrowseAlertOnClick InLine ArrayBrowseAlertOnClick()
Method DatosRegistro InLine DatosRegistro()

Saludos Cordiales!

12-10-2020 a las 19:18 en respuesta a: Iconos en columnas de arraybrowse #1135

juan.novedades

Participante

Me fui por la solución "Imagen en Columna wArrayBrowse" que esta en el foro, las imágenes que ocupe son de : https://material.io/resources/icons/?icon=delete_outline&style=baseline

Saludos Cordiales!

07-10-2020 a las 19:55 en respuesta a: Error en runtime #1036

juan.novedades

Participante

Hola Daniel también soy nuevo en este foro pero para mostrar el código dentro de un cuadro lo que tienes que hacer (bueno a mi me funciono jejeje) es que en la edición del mensaje a publicar en la parte superior derecha están las opciones visual y HTML, te vas a HTML y te muestra una barra de herramientas como cabecera, te vas a "CRAYON" pegas tu código y listo!, espero ser correcto en la explicación. Saludos Cordiales.

07-10-2020 a las 03:23 en respuesta a: Duda para activar enlace desde navbar #1030

juan.novedades

Participante

Perfecto! Gracias.

06-10-2020 a las 20:24 en respuesta a: Duda para activar enlace desde navbar #1020

juan.novedades

Participante

Siguiendo con las pruebas me funciono asi:

  <nav>
    <div class="navbar-fixed col s12 green">
      <!-- <a href="#" rel="nofollow">Clasificaciones</a> -->
      <ul class="left">
        <li><a href="#" rel="nofollow"><i class="material-icons">keyboard_arrow_left</i></a></li>
        <li><a href="http://127.0.0.1:8080/cgi-bin/ejemplo.exe?editarclasificacion" rel="nofollow"><i class="material-icons">add</i></a></li>
        <li><a href="#" rel="nofollow"><i class="material-icons">print</i></a></li>
        <li><a href="#" rel="nofollow"><i class="material-icons">archive</i></a></li>
      
    </div>
  </nav>

<nav>

<li><a href="#" rel="nofollow"><i class="material-icons">keyboard_arrow_left</i></a></li>

<li><a href="#" rel="nofollow"><i class="material-icons">print</i></a></li>

<li><a href="#" rel="nofollow"><i class="material-icons">archive</i></a></li>

</div>

</nav>

Pero si la aplicacion la montara en otro equipo con otra ip ya no seria la solucion, hay alguna otra forma de hacerlo?

Saludos Cordiales

06-10-2020 a las 19:15 en respuesta a: Dudas con paso de parametros #1016

juan.novedades

Participante

Genial, muchas gracias por el dato! Integrada y funcionando.

Saludos cordiales.

Esta respuesta fue modificada 3 años, 6 meses por juan.novedades.

05-10-2020 a las 17:02 en respuesta a: Dudas con paso de parametros #996

juan.novedades

Participante

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

05-10-2020 a las 16:45 en respuesta a: Dudas con paso de parametros #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.

12-09-2020 a las 22:04 en respuesta a: Comportamientos wBrowse #647

juan.novedades

Participante

Muchas gracias por la aclaracion Alfredo, quedaremos al pendiente. Saludos!

12-09-2020 a las 17:58 en respuesta a: Comportamientos wBrowse #640

juan.novedades

Participante

Hola Eduardo y Alfredo, mi nombre es Juan Castillo; Lo que estan haciendo es genial y ya empece a hacer pequeñas pruebas de Nefele, pero aqui leo que tienen ejemplos de browse, "TablaSql y TablaModeloJson de la seccion pruebas basicas." pero no puedo encontrar esa seccion que mencionan, me pueden ayudar a tener esos ejemplos u otros que ya tengan para entender mas ? Saludos Cordiales!

Autor

Entradas

Viendo 36 entradas - de la 1 a la 36 (de un total de 36)