Nefele 4 Harbour

Respuestas de foro creadas

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

Autor

Entradas

28-11-2023 a las 05:33 en respuesta a: Base de Datos a WCombobox #2150

Gabriel Ornelas

Participante

Hola vicente.. te pongo como lo estoy haciendo y me muestra los datos completos del query

   cSQLQuery:= "SELECT id_salon,nombre_salon,salon_eventos FROM areas_salones WHERE "+ ;
               "id_empresa='" + cIdCompany +"'"
   oCGI:console( "QUERY " + cSQLQuery )
   aSalones:= oMySQLDB:QueryArray( cSQLQuery )

   WITH OBJECT WComboBox():New( :WO )
        cID      := "cbx_salones"
        aItems   := aSalones
        aWidth[ xc_S ]:= 8
        aWidth[ xc_M ]:= 8
        aWidth[ xc_L ]:= 8

        cText    := "<strong>"+nfl_AsciiHtml("Seleccione el salón o área")+"</strong>"
        cIcon    := "beach_access"
        cTitle   := nfl_AsciiHtml("Zona, Salón o área")
        oStyle:cFont_weight:= "700"
        cSelected:= cId_Salon
        cOnChange:= "ActualizaMesas" // al seleccionar una opción nos llama a este Metodo de
                                                // nuestro CGI
        cAjaxBevel := "bv_mesas"
        AddParam( { "cSalon", cId_Salon } )
        Create()
   END WITH

cSQLQuery:= "SELECT id_salon,nombre_salon,salon_eventos FROM areas_salones WHERE "+ ;

"id_empresa='" + cIdCompany +"'"

oCGI:console( "QUERY " + cSQLQuery )

aSalones:= oMySQLDB:QueryArray( cSQLQuery )

WITH OBJECT WComboBox():New( :WO )

cID := "cbx_salones"

aItems := aSalones

aWidth[ xc_S ]:= 8

aWidth[ xc_M ]:= 8

aWidth[ xc_L ]:= 8

cText := "<strong>"+nfl_AsciiHtml("Seleccione el salón o área")+"</strong>"

cIcon := "beach_access"

cTitle := nfl_AsciiHtml("Zona, Salón o área")

oStyle:cFont_weight:= "700"

cSelected:= cId_Salon

cOnChange:= "ActualizaMesas" // al seleccionar una opción nos llama a este Metodo de

// nuestro CGI

cAjaxBevel := "bv_mesas"

AddParam( { "cSalon", cId_Salon } )

Create()

END WITH

26-11-2023 a las 07:37 en respuesta a: WTABS CON WDATATABLE POSIBLE BUG #2144

Gabriel Ornelas

Participante

         // Instanciamos el Formulario propiamente dicho
         WITH OBJECT WTabs():New( :WO )
            :nDefaultTab := HB_randInt(0,4)
            :AddItem( "Formulario", "tab1",, .T.,, "info" )
            :AddItem( "Imagen", "tab2",,,, "photo_camera" )
            WITH OBJECT :AddItem( "", "tab3",,,, "picture_as_pdf" )
               :oIcon:cAlign := xc_Center
            END WITH
            :AddItem( "Anexo", "tab4",,,, "Tab Nuevo" )
            :Create()
         END WITH

// Instanciamos el Formulario propiamente dicho

WITH OBJECT WTabs():New( :WO )

:nDefaultTab := HB_randInt(0,4)

:AddItem( "Formulario", "tab1",, .T.,, "info" )

:AddItem( "Imagen", "tab2",,,, "photo_camera" )

WITH OBJECT :AddItem( "", "tab3",,,, "picture_as_pdf" )

:oIcon:cAlign := xc_Center

END WITH

:AddItem( "Anexo", "tab4",,,, "Tab Nuevo" )

:Create()

END WITH

Agregando un Tab se ve de esta manera.

Aparte existe el evento OnChange de manera de poner controles dinamicos en cada Tabs o de que manera se puede hacer?

16-11-2023 a las 03:04 en respuesta a: Enviar los valores de un boton creados dinamicamete a una ventana modal.. #2128

Gabriel Ornelas

Participante

Muy agradecido, Pedro..

Funcionando perfecto.. Nefele cada vez me va gustando más! 🙂

04-01-2023 a las 15:46 en respuesta a: Cambiar el valor de un WLabel no puedo lograrlo #2010

Gabriel Ornelas

Participante

Hola Pedro..

https://nefele.dev/blog/download/nefele-lib-v-0-4-1-0/

Descargue y lo remplaze en C:\Xailer_7.1.1\Lib

y no lo encuentra probare con la funcion que me indicas.. Gracias!

03-01-2023 a las 05:34 en respuesta a: Cambiar el valor de un WLabel no puedo lograrlo #2008

Gabriel Ornelas

Participante

Gracias Vicente, Pedro

Enlazando tokens.exe...
undefined reference to HB_FUN_NFL_UPDATEBYID

🙁

29-07-2021 a las 16:33 en respuesta a: Device Name similar a GetComputerName() #1867

Gabriel Ornelas

Participante

Hola Pedro,

Efectivamente buscando por toda la web, no existe algo parecido, la sugerencia que encontre fue generar un UUID y opte por esa solucion y como tu dices sumado al usuario y correo ya obtengo un codigo unico como ID.. Dejo el codigo JS para generar el uuid por si alguien tambien le sirve

Saludos!

/**
 * Fast UUID generator, RFC4122 version 4 compliant.
 * @author Jeff Ward (jcward.com).
 * @license MIT license
 * @link http://stackoverflow.com/questions/105034/how-to-create-a-guid-uuid-in-javascript/21963136#21963136
 * LLamar UUID.generate()
 **/
var UUID = (function() {
  var self = {};
  var lut = []; for (var i=0; i<256; i++) { lut[i] = (i<16?'0':'')+(i).toString(16); }
  self.generate = function() {
    var d0 = Math.random()*0xffffffff|0;
    var d1 = Math.random()*0xffffffff|0;
    var d2 = Math.random()*0xffffffff|0;
    var d3 = Math.random()*0xffffffff|0;
    return lut[d0&0xff]+lut[d0>>8&0xff]+lut[d0>>16&0xff]+lut[d0>>24&0xff]+'-'+
      lut[d1&0xff]+lut[d1>>8&0xff]+'-'+lut[d1>>16&0x0f|0x40]+lut[d1>>24&0xff]+'-'+
      lut[d2&0x3f|0x80]+lut[d2>>8&0xff]+'-'+lut[d2>>16&0xff]+lut[d2>>24&0xff]+
      lut[d3&0xff]+lut[d3>>8&0xff]+lut[d3>>16&0xff]+lut[d3>>24&0xff];
  }
  return self;
})();

/**

* Fast UUID generator, RFC4122 version 4 compliant.

* @author Jeff Ward (jcward.com).

* @license MIT license

* @link http://stackoverflow.com/questions/105034/how-to-create-a-guid-uuid-in-javascript/21963136#21963136

* LLamar UUID.generate()

**/

var UUID = (function() {

var self = {};

var lut = []; for (var i=0; i<256; i++) { lut[i] = (i<16?'0':'')+(i).toString(16); }

self.generate = function() {

var d0 = Math.random()*0xffffffff|0;

var d1 = Math.random()*0xffffffff|0;

var d2 = Math.random()*0xffffffff|0;

var d3 = Math.random()*0xffffffff|0;

return lut[d0&0xff]+lut[d0>>8&0xff]+lut[d0>>16&0xff]+lut[d0>>24&0xff]+'-'+

lut[d1&0xff]+lut[d1>>8&0xff]+'-'+lut[d1>>16&0x0f|0x40]+lut[d1>>24&0xff]+'-'+

lut[d2&0x3f|0x80]+lut[d2>>8&0xff]+'-'+lut[d2>>16&0xff]+lut[d2>>24&0xff]+

lut[d3&0xff]+lut[d3>>8&0xff]+lut[d3>>16&0xff]+lut[d3>>24&0xff];

}

return self;

})();

03-07-2021 a las 16:50 en respuesta a: Ejemplo de Webservices #1835

Gabriel Ornelas

Participante

Hola tengo este errro con los nuevos ejemplos..

Error en /nefele_samples
El siguiente error ha ocurrido: Message not found
WItemSideNav:_CTOOLTIP
BASE 1005
Arguments: [ 1] = Tipo: O Valor:
Error code: 0
Llamado desde __ERRRT_SBASE(0)
Llamado desde WITEMSIDENAV:ERROR(0)
Llamado desde (b)HBOBJECT(0)
Llamado desde WITEMSIDENAV:MSGNOTFOUND(0)
Llamado desde WITEMSIDENAV:_CTOOLTIP(0)
Llamado desde APPMENU(137)
Llamado desde MAINPAGE(34)
Llamado desde (b)TCGI(38)
Llamado desde TCGI:MAINFUNCTION(0)
Llamado desde __OBJSENDMSG(0)
Llamado desde TCGI:RUN(1214)
Llamado desde CGI_INIT(26)
Llamado desde MAIN(20)

25-05-2021 a las 12:30 en respuesta a: Envio de SMS #1822

Gabriel Ornelas

Participante

Xevi

Muchas Gracias!

25-05-2021 a las 02:31 en respuesta a: Envio de SMS #1818

Gabriel Ornelas

Participante

Xavi,

Si probablemente el camino no sea muy complicado, pero ni idea por donde empezar, si es posible compartir el codigo seria excelente!

23-05-2021 a las 20:17 en respuesta a: Descargar la nueva version de Ejemplo #1815

Gabriel Ornelas

Participante

Igual, para mi. tampoco lo he recibido, hasta desistale el cliente de Microsoft 😳

14-05-2021 a las 14:24 en respuesta a: Control Tabs #1803

Gabriel Ornelas

Participante

Alfredo,Xevi

Gracias! Ya tiene mejor pinta 😀

14-05-2021 a las 03:42 en respuesta a: Control Tabs #1800

Gabriel Ornelas

Participante

Alfredo

Muchas Gracias!!

Solo un detalle no acepta Minusculas en el texto de los tabs, todo lo convierte a mayusculas..

23-10-2020 a las 14:57 en respuesta a: LigthtBox #1393

Gabriel Ornelas

Participante

Wow! Que sencillo lo hace Nefele. Gracias a ustedes por todo

20-10-2020 a las 01:36 en respuesta a: Ejemplo wCards #1322

Gabriel Ornelas

Participante

Estoy leyendo que se pueden aplicar temas a las Cards.. Nefele ya lo tiene implementado ?

15-10-2020 a las 23:04 en respuesta a: Cual es la forma correcta de llamar procedimientos al dar click en un control ? #1248

Gabriel Ornelas

Participante

Gracias por tu paciencia 🙁

Esta respuesta fue modificada 3 años, 6 meses por Gabriel Ornelas.
Esta respuesta fue modificada 3 años, 6 meses por Gabriel Ornelas.

15-10-2020 a las 21:02 en respuesta a: Cual es la forma correcta de llamar procedimientos al dar click en un control ? #1234

Gabriel Ornelas

Participante

Hola Alfredo

Y para pasarle un parametro al procedimiento

:aLinks:= { {"Los mejores desayunos", oCGI:GetEnv("HTTP_REFERER")+"?tuprocedure" }}
// Ahora quiero hacer un solo procedimento y pasarle un parametro.. 
// Seria asi ?
:aLinks:= { {"Los mejores desayunos", oCGI:GetEnv("HTTP_REFERER")+"?tuprocedure(1)" }}

:aLinks:= { {"Los mejores desayunos", oCGI:GetEnv("HTTP_REFERER")+"?tuprocedure" }}

// Ahora quiero hacer un solo procedimento y pasarle un parametro..

// Seria asi ?

:aLinks:= { {"Los mejores desayunos", oCGI:GetEnv("HTTP_REFERER")+"?tuprocedure(1)" }}

Saludos!

07-10-2020 a las 02:27 en respuesta a: Error en runtime #1029

Gabriel Ornelas

Participante

Daniel al igual que tu estamos empezando este es mi codigo que de igual manera son pegados de los ejemplos

   // Comenzamos instanciando la Página Web que queremos crear
   With Object TWebPage():New()
      :lValign:= .T.
      :lContainer:= .T.
      :lFooter:= .T. // Incluir Footer estandar de Materialize 0.1 por defecto .T.
      :aLinks := {}  // Lista de Links en el Footer Estandar, es un array de arays {cURL,cText} 0.1
      :cTitleFooter:= ""
      :cClrFootText:= 'white'       // Color del Titulo del Footer 0.1
      :cClrFootPane:= 'amber'       // Color del fondo del Footer 0.1
      :cSubTitle   := ""
      // :cCopyright  := ""
      :cTitle      := "Cafe Selecto, Carta Digital (c)"
      :cBackground         := "images/cafe_selecto480.jpg"
      :cBackgroundSize     := "cover"
      :lBackgroundRepeat   := .F.
      :cBackgroundColor    := "transparent"
      :cBodyBackgroundColor:= "radial-gradient(#0000001f, #ffffff)"
      :cShadowSheetTitle   := "Un Momento.."
      :cShadowSheetSubTitle:= ""
      AppMenu(:WO)
      WITH OBJECT WBevel():New(:WO)
         // Por cuestiones esteticas vamos a poner un wSeparator puede tener una Linea horizontal
         WITH OBJECT WSeparator():New(:WO)
            :lLine := .T.
            :lBR   := .T.
            :Create()
         END WITH
         //Un botón para ver como ejecutar un action y llamar a una nueva WebPage
         With Object WButton():New(:WO)
            :cId           := "BtnLineas"
            :cText         := "Conoce nuestra carta"
            :cOnClick      := "Lineas"     // Method de nuestro CGI que se ejecuta al pulsar en el boton
            :cIcon         := "apps"       // Icono a mostrar ver lista en https://materializecss.com/icons.html
            :lLarge        := .T.          // Grande
            :lPulse        := .T.          // Destella
            :nfix          := "100%"
            :lShadowSheet  := .T.
            :cClrPane      :=  "deep-orange lighten-2"
            :cTextAlign    := xc_Center
            :Create()
         End With
         :Create()
      END WITH
      oCGI:SendPage( :Create() )
   End With

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

With Object TWebPage():New()

:lValign:= .T.

:lContainer:= .T.

:lFooter:= .T. // Incluir Footer estandar de Materialize 0.1 por defecto .T.

:aLinks := {} // Lista de Links en el Footer Estandar, es un array de arays {cURL,cText} 0.1

:cTitleFooter:= ""

:cClrFootText:= 'white' // Color del Titulo del Footer 0.1

:cClrFootPane:= 'amber' // Color del fondo del Footer 0.1

:cSubTitle := ""

// :cCopyright := ""

:cTitle := "Cafe Selecto, Carta Digital (c)"

:cBackground := "images/cafe_selecto480.jpg"

:cBackgroundSize := "cover"

:lBackgroundRepeat := .F.

:cBackgroundColor := "transparent"

:cBodyBackgroundColor:= "radial-gradient(#0000001f, #ffffff)"

:cShadowSheetTitle := "Un Momento.."

:cShadowSheetSubTitle:= ""

AppMenu(:WO)

WITH OBJECT WBevel():New(:WO)

// Por cuestiones esteticas vamos a poner un wSeparator puede tener una Linea horizontal

WITH OBJECT WSeparator():New(:WO)

:lLine := .T.

:lBR := .T.

:Create()

END WITH

//Un botón para ver como ejecutar un action y llamar a una nueva WebPage

With Object WButton():New(:WO)

:cId := "BtnLineas"

:cText := "Conoce nuestra carta"

:cOnClick := "Lineas" // Method de nuestro CGI que se ejecuta al pulsar en el boton

:cIcon := "apps" // Icono a mostrar ver lista en https://materializecss.com/icons.html

:lLarge := .T. // Grande

:lPulse := .T. // Destella

:nfix := "100%"

:lShadowSheet := .T.

:cClrPane := "deep-orange lighten-2"

:cTextAlign := xc_Center

:Create()

End With

:Create()

END WITH

oCGI:SendPage( :Create() )

End With

Y la funcion donde pone wRebar

//------------------------------------------------------------------------------
PROCEDURE AppMenu(oParent, cTitle, lBack)
   DEFAULT cTitle TO "Café Selecto, H. Cárdenas Tabasco, México"
   DEFAULT lBack  TO .F.

   with object WRebar():New(oParent)
      :cClrPane    := "amber accent-4"
      :lBeforeMain := .T.
      :lMenuNav    := .F.
      :lBlock      := .T.
      :cTitle      := cTitle
      :cClrTitle   := "black"
      :cTitleAlign := xc_Center
      IF lBack
         WITH OBJECT WButton():New( :WO)
             :cId      := "back_lineas"
             :cText    := ""
             :cIcon    := "reply"
             :lBack    := .T.
             :lFloating:= .T.
             :lContainer:= .F.
             :cIconAlign:= xc_Center
             :cPosition:= xc_Right
             :lCenter  := .F.
             :cClrPane := "deep-orange accent-3"
             WITH OBJECT :oStyle
                  :cposition:= "absolute"
                  :cright   := "0px"
                  :ctop     := "0px"
                  :cmargin_top    := "13px"
                  :cmargin_bottom := "15px"
                  :cmargin_right  := "25px"
                  :cmargin_left   := "15px"
             END WITH
             :Create()
         END WITH
      ENDIF
      :Create()
   end with
RETURN

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

PROCEDURE AppMenu(oParent, cTitle, lBack)

DEFAULT cTitle TO "Café Selecto, H. Cárdenas Tabasco, México"

DEFAULT lBack TO .F.

with object WRebar():New(oParent)

:cClrPane := "amber accent-4"

:lBeforeMain := .T.

:lMenuNav := .F.

:lBlock := .T.

:cTitle := cTitle

:cClrTitle := "black"

:cTitleAlign := xc_Center

IF lBack

WITH OBJECT WButton():New( :WO)

:cId := "back_lineas"

:cText := ""

:cIcon := "reply"

:lBack := .T.

:lFloating:= .T.

:lContainer:= .F.

:cIconAlign:= xc_Center

:cPosition:= xc_Right

:lCenter := .F.

:cClrPane := "deep-orange accent-3"

WITH OBJECT :oStyle

:cposition:= "absolute"

:cright := "0px"

:ctop := "0px"

:cmargin_top := "13px"

:cmargin_bottom := "15px"

:cmargin_right := "25px"

:cmargin_left := "15px"

END WITH

:Create()

END WITH

ENDIF

:Create()

end with

RETURN

Espero y te pueda dar una luz

Saludos!

06-10-2020 a las 19:27 en respuesta a: Argument error < En ListView con avatar #1018

Gabriel Ornelas

Participante

Corregido! 🙂

1.- Ahora las imagenes (avatar) me los muestra Redondas como le hago para que las muestre de forma rectangular ,

2.- Como recupero el click en el avatar (o imagen) ?

Saludos!

04-10-2020 a las 00:55 en respuesta a: Imagen en Columna wArrayBrowse #963

Gabriel Ornelas

Participante

Gracias pedro.. exactamente es lo que quiero hacer 🙂

Muy Agradecido

30-09-2020 a las 19:46 en respuesta a: Acceder al servidor apache desde otro equipo de la red #901

Gabriel Ornelas

Participante

Xavi,

Es necesario abrir el puerto en el Firewall de windows, yo use el puerto 1080, ademas tienes que dar permisos a la carpeta de apache. yo hice los siguientes cambios y ya con eso me funciona en red local y wan

<Directory "${SRVROOT}/htdocs">
    Options Indexes FollowSymLinks Includes ExecCGI
    AllowOverride All
    Require all granted
</Directory>

<Directory "${SRVROOT}/cgi-bin">
    AllowOverride All
    Options None
    Require all granted
</Directory>