Nefele 4 Harbour

Respuestas de foro creadas

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

Autor

Entradas

17-12-2020 a las 21:41 en respuesta a: Comportamientos WEdit #1655

Eduardo Trasviña

Participante

Muchas gracias Alfredo.

Saludos!!

12-12-2020 a las 18:06 en respuesta a: setrequired wedit #1649

Eduardo Trasviña

Participante

Bien! Alfredo, se que encontraran una solucion practica a este tema.

Saludos!

04-12-2020 a las 21:59 en respuesta a: Botones WListView #1625

Eduardo Trasviña

Participante

Buen día.

Tengo el mismo comportamiento que reporto Xevi, esta es i definicion del listview.

y el html da esto.

Ya revise y confirme que tengo la version 1.3.5 de Nefele.

04-12-2020 a las 18:09 en respuesta a: paginacion offline #1624

Eduardo Trasviña

Participante

Ya probe la configuracion de bancos.dbf, todo bien, ya funciono!!

Orale, ya revise en el wiki y esta documentado, se me paso 🙁

Muchas gracias Pedro.

Saludos!

04-12-2020 a las 09:42 en respuesta a: paginacion offline #1620

Eduardo Trasviña

Participante

Lo hice asi como me lo indicaste.

y me arroja esto:

Pense que por alguna razon el archivo se corrompio, entonces lo copie de nuevo desde el zip de nefele samples 1-0-1-4 y obtuve el mismo resultado.

Por otro lado me puse a probar la conexion con MariaDB, lo hice con un proyecto mio, no tuve problemas, todo funciono bien, solo un par de comentarios.

1.- Deliberadamente cometi un error en el cSelect de una consulta, al ejecutarla no obtuve informacion (obvio) y el cgi siguio corriendo, me di cuenta mediante la consola de nefele que el cgi arrojo el siguiente mensaje.

Creo que debemos tener alguna manera de consultar los errores al ejecutar la conexcion, existe alguna funcion o metodo para obtenerlos ?

2.- Cuando corregi mi cSelect ya obtuve una respuesta, la envie a la consola de nefele, pero me aparecen varios renglones en blanco, en la reunion de hoy comentaron que hay que convertir (hash creo) a formato de array, tienen alguna funcion en nefele para esto ? en caso de no tenerlo podrias darme una sugerencia o ejemplo de como recuperar la informacion ?

De antameno gracias por sus respuestas.

Saludos!

03-12-2020 a las 22:49 en respuesta a: paginacion offline #1618

Eduardo Trasviña

Participante

Gracias Pedro, el archivo bancos.db esta en c:\apache24\cgi-bin que es donde esta el cgi de samples, va en otro lado ?

Saludos!

02-12-2020 a las 19:36 en respuesta a: combobox browse uncaught #1611

Eduardo Trasviña

Participante

Gracias Alfredo, Pedro, todo solucionado.

Creo que estaba cometiendo errores básicos, hay veces que se cierran las ideas jeje.

Saludos!

26-11-2020 a las 01:36 en respuesta a: nefele-samples-1-0-1-4 #1575

Eduardo Trasviña

Participante

Hola.

Ejecute el Néfele Wizard como lo indicaste y funciono correctamente, gracias Alfredo.

Saludos!

25-11-2020 a las 22:55 en respuesta a: nefele-samples-1-0-1-4 #1569

Eduardo Trasviña

Participante

Gracias por tu pronta respuesta Alfredo.

Baje de nuevo el proyecto y ahora me da estos errores:

Saludos!!

09-11-2020 a las 20:22 en respuesta a: Servidor IIS #1528

Eduardo Trasviña

Participante

Listo! ya envie el documento en formato doc, se que con su aportación este documento se enriquecerá para el beneficio de todos en el foro.

Gracias por su tiempo.

Saludos Cordiales.

05-11-2020 a las 18:21 en respuesta a: Menu lateral largo #1511

Eduardo Trasviña

Participante

Excelente! Alfredo.

Buena noticia, estuve fuera del aire de Nefele unos dias por compromisos con otros proyectos, desde ayer regrese de lleno a Nefele.

Creo que como todos, espero atento la proxima reunion y/o liberacion de una nueva version de Nefele.

Como siempre, agradezco las respuestas y el tiempo que se toman para atender las peticiones.

Saludos!!

26-10-2020 a las 20:55 en respuesta a: Descargar Archivo PDF #1416

Eduardo Trasviña

Participante

Si, claro, te anticipo que mis pantallas son muy basicas, no tengo grandes conocimientos en html, css, js, ajax.

Te cuento que tanto me gusto como hicieron y funciona Nefele que estoy haciendo un proyecto piloto sobre algo real tal vez ya un poco grande, es mas que un "hola mundo" jeje, pero de momento el paciente esta en quirofano no muy presentable todavia.

Voy a preparar alguna imagenes para compartir, con mucho gusto.

Aprovecho para comentar que el espacio que abrieron en este foro para los ejemplos esta buenisimo!!, los felicito.

Saludos!!

24-10-2020 a las 22:33 en respuesta a: Descargar Archivo PDF #1410

Eduardo Trasviña

Participante

Aunado al cambio que me señalaste le quite la propiedad :cAjaxBevel := "nflcargo" que tenia declarado en el ListView y asi ya funciono, solucionado Alfredo, mil gracias.

Saludos!!

24-10-2020 a las 19:35 en respuesta a: Descargar Archivo PDF #1407

Eduardo Trasviña

Participante

Gracias por tu rapida respuesta Alfredo.

Mi proyecto esta un poco grande, tiene dependencias de varias funciones que hacen llamadas a la base de datos (MariaDB), para hacerlo mas practico hice un pequeño proyecto, que solo tuviera la prueba de la descarga de PDF, en esta prueba mando llamar al evento de generacion y descarga de pdf desde diferentes eventos.

1.- llamada desde un ;:cOnClickEdit de un elemento de listview, NO funciono, observando con el inspector (F12) del navegador veo esto

2.- llamada desde un :cOnClick de un button, SI funciono, lo crea y lo descarga.

Comparto el codigo del proyecto de prueba, este es el MainPage.

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

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

   LOCAL adatos:={}, alinea

   AAdd(adatos,{"Juan lopez"       , "Rio Fuerte"            , "345" , "Caborca"         , "6688231245"})
   AAdd(adatos,{"Salvador Perez"   , "Av. insurgentes"       , "4112", "Ciudad de Mexico", "5514359845"})
   AAdd(adatos,{"Francisco Apodaca", "Blvd. Antonio Rosales" , "33"  , "Cd. Obregon"     , "6482402519"})
   AAdd(adatos,{"Arturo Artola"    , "Blvd. Francisco Madero", "555" , "Guadalajara"     , "3332854604"})

   // Comenzamos instanciando la Página Web que queremos crear
   With Object TWebPage():New()
      :lValign          := .f.
      :lContainer       := .f.
      :lAlerts          := .f.

      WITH object WPanel():New(:WO)
         :cTitle                := "Clientes"
         :aWidth[ _grande ]     := 10
         :aOffset[ _grande ]    := 1
         :oStyle:cPadding       := 0
         :oStyle:cBorder_radius := "10px"

         WITH OBJECT WForm():New( :WO )
            :cId       := "forma_clientes"
            :cFunction := "#alert('Saliendo')"

            WITH OBJECT WBevel():New(:WO)
               :cId       := "bevel_uno"
               :nStyle    := xc_Row

               WITH OBJECT WListView():New(:WO)
                  :cId           := "lista_clientes"
                  :cType         := xc_Popout
                  :lTitleItem    := .t.
                  :nItemInPage   := 8
                  :cAjaxBevel    := "nflcargo"

                  for each alinea IN adatos

                     WITH OBJECT :AddItem() AS wItemListView
                        :cId            := alinea:__enumindex
                        :cIcon          := "person"
                        :cTitle         := alinea[1]
                        :nRowId         := alinea[1]
                        :cIconEdit      := "edit"
                        :lEdit          := .t.
                        :cOnClickEdit   := "envia_pdf"
                        :aText          := {"Calle: "+alinea[2], "Numero: "+alinea[3], "Ciudad: "+alinea[4], "Telefono: "+alinea[5]}
                     END WITH // ITEM DE LISTVIEW

                  NEXT

                  :Create()

               END WITH

              :Create()

            END WITH

            WITH OBJECT WBevel():New(:WO)
               :cId       := "bevel_dos"
               :nStyle    := xc_Row

               WITH object WEdit():New( :WO )
                  :cId                := "cliente"
                  :cHint              := "."
                  :cTitle             := "cliente"
                  :nLength            := 4
                  :Create()
               END WITH

               WITH object WEdit():New( :WO )
                  :cId                := "nombre"
                  :cHint              := "."
                  :cTitle             := "Nombre"
                  :nLength            := 50
                  :Create()
               END WITH

               :Create()
            END WITH

            WITH object WButton():New(:WO)
               :cText                    := "es el submit"
               :cIcon                    := "addbox"
               :lLarge                   := .T.
               :lSubmit                  := .T.
               :nFix                     := "100%"
               :cOnClick                 := "envia_pdf"
               :Create()
            END

            WITH object WButton():New(:WO)
               :cText                    := "Genera PDF"
               :cIcon                    := "pdf"
               :lLarge                   := .T.
               :nFix                     := "100%"
               :cOnClick                 := "envia_pdf"
               :Create()
            END

            :Create()

         END WITH   // Form

         :Create()

      END WITH   // Listview principal

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

   End With

RETURN

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

CLASS TFastReport FROM XFastReport

   PROPERTY cDllPath   INIT Application:cDirectory // Se debe especificar el Path de la DLL
   PROPERTY cResIco    INIT "aaSistema"            // Se especifica Icono para que FastReport No lo busque por default en Application:oMainForm:oIcon porque truena

END CLASS

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

FUNCTION envia_pdf()

   LOCAL oFr, cpaso, cfile, cerrores

   oCGI:console("En prueba_impresion,  antes de iniciar objeto fr")

   cfile := "orale.pdf" // Se almacena el nombre del archivo en variable, porque si se manda directamente No lo crea: SetProperty("PDFExport", "FileName", ::oDataSet:FilePDF)

   WITH OBJECT oFr := TFastReport():New()
      :lAbortOnErrors := .t.
      :cResIco    := "nefele"
      :lDelFRVars := .T.
      :Create()
      :oEngineOptions:lSilentMode := .t.  // EVITA QUE: Si hay errores FR intenta presentarlos en pantalla y ocasiona que se congele el CGI (mejor se consulten los errores con :cLastError)
      :cFileName := "primero.fr3"
      :AddVariable("nombre", "prueba de campo nombre")
      :AddVariable("segundo", "segunda linea")
      :PrepareReport()
      :SetProperty( "PDFExport", "ShowDialog",    .F. )
      :SetProperty( "PDFExport", "FileName",      cfile )
      :SetProperty( "PDFExport", "Compressed",    .T. )
      :SetProperty( "PDFExport", "EmbeddedFonts", .T. ) // En TRUE aumenta mucho el tamaÃ±o del PDF
      :SetProperty( "PDFExport", "PrintOptimized",.T. ) // En TRUE aumenta mucho el tamaÃ±o del PDF
      :SetProperty( "PDFExport", "Subject",       "Pruebas Lalo" )
      :DoExport( "PDFExport" )

      cerrores :=  aJoin(:GetErrors)

      :End()

   END WITH

   IF Empty(cerrores)
      oCGI:console(Application:cDirectory)
      oCGI:SendFile(Application:cDirectory, cfile)
   ELSE
      oCGI:console(cerrores)
      oCGI:SendPage( cerrores)
   ENDIF

   oCGI:console("En prueba_impresion,  ya enviada la exportacion")

RETURN (nil)

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

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

141

142

143

144

145

146

147

148

149

150

151

152

153

154

155

156

157

158

159

160

161

162

163

164

165

166

167

168

169

170

171

172

173

174

175

176

177

#include "Xailer.ch"

#include "Nefele.ch"

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

//Función principal de la app Web

PROCEDURE MainPage()

LOCAL adatos:={}, alinea

AAdd(adatos,{"Juan lopez" , "Rio Fuerte" , "345" , "Caborca" , "6688231245"})

AAdd(adatos,{"Salvador Perez" , "Av. insurgentes" , "4112", "Ciudad de Mexico", "5514359845"})

AAdd(adatos,{"Francisco Apodaca", "Blvd. Antonio Rosales" , "33" , "Cd. Obregon" , "6482402519"})

AAdd(adatos,{"Arturo Artola" , "Blvd. Francisco Madero", "555" , "Guadalajara" , "3332854604"})

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

With Object TWebPage():New()

:lValign := .f.

:lContainer := .f.

:lAlerts := .f.

WITH object WPanel():New(:WO)

:cTitle := "Clientes"

:aWidth[ _grande ] := 10

:aOffset[ _grande ] := 1

:oStyle:cPadding := 0

:oStyle:cBorder_radius := "10px"

WITH OBJECT WForm():New( :WO )

:cId := "forma_clientes"

:cFunction := "#alert('Saliendo')"

WITH OBJECT WBevel():New(:WO)

:cId := "bevel_uno"

:nStyle := xc_Row

WITH OBJECT WListView():New(:WO)

:cId := "lista_clientes"

:cType := xc_Popout

:lTitleItem := .t.

:nItemInPage := 8

:cAjaxBevel := "nflcargo"

for each alinea IN adatos

WITH OBJECT :AddItem() AS wItemListView

:cId := alinea:__enumindex

:cIcon := "person"

:cTitle := alinea[1]

:nRowId := alinea[1]

:cIconEdit := "edit"

:lEdit := .t.

:cOnClickEdit := "envia_pdf"

:aText := {"Calle: "+alinea[2], "Numero: "+alinea[3], "Ciudad: "+alinea[4], "Telefono: "+alinea[5]}

END WITH // ITEM DE LISTVIEW

:Create()

END WITH

:Create()

END WITH

WITH OBJECT WBevel():New(:WO)

:cId := "bevel_dos"

:nStyle := xc_Row

WITH object WEdit():New( :WO )

:cId := "cliente"

:cHint := "."

:cTitle := "cliente"

:nLength := 4

:Create()

END WITH

WITH object WEdit():New( :WO )

:cId := "nombre"

:cHint := "."

:cTitle := "Nombre"

:nLength := 50

:Create()

END WITH

:Create()

END WITH

WITH object WButton():New(:WO)

:cText := "es el submit"

:cIcon := "addbox"

:lLarge := .T.

:lSubmit := .T.

:nFix := "100%"

:cOnClick := "envia_pdf"

:Create()

END

WITH object WButton():New(:WO)

:cText := "Genera PDF"

:cIcon := "pdf"

:lLarge := .T.

:nFix := "100%"

:cOnClick := "envia_pdf"

:Create()

END

:Create()

END WITH // Form

:Create()

END WITH // Listview principal

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

End With

RETURN

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

CLASS TFastReport FROM XFastReport

PROPERTY cDllPath INIT Application:cDirectory // Se debe especificar el Path de la DLL

PROPERTY cResIco INIT "aaSistema" // Se especifica Icono para que FastReport No lo busque por default en Application:oMainForm:oIcon porque truena

END CLASS

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

FUNCTION envia_pdf()

LOCAL oFr, cpaso, cfile, cerrores

oCGI:console("En prueba_impresion, antes de iniciar objeto fr")

cfile := "orale.pdf" // Se almacena el nombre del archivo en variable, porque si se manda directamente No lo crea: SetProperty("PDFExport", "FileName", ::oDataSet:FilePDF)

WITH OBJECT oFr := TFastReport():New()

:lAbortOnErrors := .t.

:cResIco := "nefele"

:lDelFRVars := .T.

:Create()

:oEngineOptions:lSilentMode := .t. // EVITA QUE: Si hay errores FR intenta presentarlos en pantalla y ocasiona que se congele el CGI (mejor se consulten los errores con :cLastError)

:cFileName := "primero.fr3"

:AddVariable("nombre", "prueba de campo nombre")

:AddVariable("segundo", "segunda linea")

:PrepareReport()

:SetProperty( "PDFExport", "ShowDialog", .F. )

:SetProperty( "PDFExport", "FileName", cfile )

:SetProperty( "PDFExport", "Compressed", .T. )

:SetProperty( "PDFExport", "EmbeddedFonts", .T. ) // En TRUE aumenta mucho el tamaÃ±o del PDF

:SetProperty( "PDFExport", "PrintOptimized",.T. ) // En TRUE aumenta mucho el tamaÃ±o del PDF

:SetProperty( "PDFExport", "Subject", "Pruebas Lalo" )

:DoExport( "PDFExport" )

cerrores := aJoin(:GetErrors)

:End()

END WITH

IF Empty(cerrores)

oCGI:console(Application:cDirectory)

oCGI:SendFile(Application:cDirectory, cfile)

ELSE

oCGI:console(cerrores)

oCGI:SendPage( cerrores)

ENDIF

oCGI:console("En prueba_impresion, ya enviada la exportacion")

RETURN (nil)

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

Este es el Main.

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

//------------------------------------------------------------------------------
//Arranque y parametrización del CGI. Cada vez que se llama al CGI entra por aquí
PROCEDURE CGI_Init()

   // Instanciamos el Objeto TCGI que se encargara de procesar la llamada recibida desde el navegador y
   // que nos ha suministrado Apache al llamar al ejecutable
   oCgi := TCgi():New()

   // Ejecutamos el objecto
   oCgi:Run()

RETURN

//------------------------------------------------------------------------------
// El RUN anterior entra por aquí y llama al Method correspondiente
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 envia_pdf()                                 Inline envia_pdf()

END CLASS

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

#include "Xailer.ch"

#include "Nefele.ch"

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

//Arranque y parametrización del CGI. Cada vez que se llama al CGI entra por aquí

PROCEDURE CGI_Init()

// Instanciamos el Objeto TCGI que se encargara de procesar la llamada recibida desde el navegador y

// que nos ha suministrado Apache al llamar al ejecutable

oCgi := TCgi():New()

// Ejecutamos el objecto

oCgi:Run()

RETURN

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

// El RUN anterior entra por aquí y llama al Method correspondiente

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 envia_pdf() Inline envia_pdf()

END CLASS

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

Aprovechando el espacio, si pudieran orientarme en como hacer que lo abra en el mismo navegador chrome, que no lo descargue.

gracias por su tiempo y las atenciones.

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

13-10-2020 a las 21:41 en respuesta a: Componente Tabs #1156

Eduardo Trasviña

Participante

Listo! Gracias Alfredo, funciona a la perfeccion, ya lo probe en mi proyecto real y anda de maravilla!.

Ahora a dar unos toques de color y otras menudencias, pero eso ya esta de mi lado, algo tengo que hacer yo jeje.

Como siempre, las respuestas precisas y cordiales, no cambien equipo Nefele. 🙂

Saludos!!

23-09-2020 a las 23:48 en respuesta a: Néfele funcionando en IIS como servidor #749

Eduardo Trasviña

Participante

Hola equipo nefele.

He probado mi proyecto inicial con el servidor Apache sin problema, solo tuve que configurar Apache en otro puerto ya que tenia instalado IIS en mi equipo utilizando el puerto 80, mi duda es si para probar con IIS tengo que cambiar algo en el proyecto o en alguna configuracion especial para cgi en IIS ?

De antemano gracias por su tiempo.

Saludos!

05-09-2020 a las 03:36 en respuesta a: Ejemplo de formularios con Néfele #602

Eduardo Trasviña

Participante

Muchas gracias por el material, he avanzado algo lento pero convencido del valor que tiene Nefele, afortunadamente nuestro amigo Israel Solis me tiro cable y he podido hacer algo, espero la siguiente entrega que tengan bien a publicar.

Saludos Cordiales.

19-08-2020 a las 17:40 en respuesta a: WMsgAlert y Ajax #423

Eduardo Trasviña

Participante

Hola Alfredo, Ramon, soy nuevo en este foro, estoy interesado en esta herramienta, si es posible me gustaria asistir a la reunion sobre nefele programada al parecer para este 20 de agosto, soy de Mexico.

Autor

Entradas

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