Nefele 4 Harbour

Respuestas de foro creadas

Viendo 50 entradas - de la 1 a la 50 (de un total de 149)

1 2 3 →

Autor

Entradas

25-05-2021 a las 17:21 en respuesta a: Envio de SMS #1823

Xevi

Participante

Faltaba el envío de SMS con LleidaNet...
sustituir el If...Else por

   If cSMS = "lleidanet"
      cUser := "usuario"
      cPasw := "password"
      WITH OBJECT CreateObject("msxml2.ServerXMLHTTP")
         :Open( "POST", "https://api.lleida.net/sms/v2/", .F. )
         :SetRequestHeader( "Content-Type","application/x-www-form-urlencoded;charset=UTF-8" )
         If cSMS = "lleidanetSMS"
            :Send( 'xml=<sms>' +;
                           '<user>'     + cUser + '</user>' +;
                           '<password>' + cPasw + '</password>' +;
                           '<dst>'      + '<num>' + "+34615213232" + '</num>' + '</dst>' +;
                           '<txt>'      + "test" + '</txt>' +;
                           '</sms>' )
         Else
            :Send( 'xml=<userinfo>' +;
                  '<user>' + cUser + '</user>' +;
                  '<password>' + cPasw + '</password>' +;
                  '</userinfo>' )
         EndIf
         cHtml := :ResponseText
      END//OBJECT
oCGI:Console( cHtml )
      nAt := At( "<credit>", cHtml ) +8
      cHtml := AllTrim( Str( Val( SubStr( cHtml, nAt, At( "</credit>", cHtml ) - nAt ) ), 10 ) )

      cHtml := Tag("script", "alert('" + "Saldo SMSs LleidaNet (" +cUser+ "): " + cHtml + "')" )

If cSMS = "lleidanet"

cUser := "usuario"

cPasw := "password"

WITH OBJECT CreateObject("msxml2.ServerXMLHTTP")

:Open( "POST", "https://api.lleida.net/sms/v2/", .F. )

:SetRequestHeader( "Content-Type","application/x-www-form-urlencoded;charset=UTF-8" )

If cSMS = "lleidanetSMS"

:Send( 'xml=<sms>' +;

'<user>' + cUser + '</user>' +;

'<password>' + cPasw + '</password>' +;

'<dst>' + '<num>' + "+34615213232" + '</num>' + '</dst>' +;

'<txt>' + "test" + '</txt>' +;

'</sms>' )

Else

:Send( 'xml=<userinfo>' +;

'<user>' + cUser + '</user>' +;

'<password>' + cPasw + '</password>' +;

'</userinfo>' )

EndIf

cHtml := :ResponseText

END//OBJECT

oCGI:Console( cHtml )

nAt := At( "<credit>", cHtml ) +8

cHtml := AllTrim( Str( Val( SubStr( cHtml, nAt, At( "</credit>", cHtml ) - nAt ) ), 10 ) )

cHtml := Tag("script", "alert('" + "Saldo SMSs LleidaNet (" +cUser+ "): " + cHtml + "')" )

25-05-2021 a las 11:35 en respuesta a: Envio de SMS #1819

Xevi

Participante

Este és el código al pulsar en un boton...

FUNCTION TestSMSsAjax()
   Local cHtml, nAt
   Local cSMS := oCGI:GetCgiValue("lleidanet_descom","")
   Local aHasRes := {=>}
   Local cUser, cPasw

   If cSMS == "lleidanet"
      cUser := "usuario"
      cPasw := "password"
      WITH OBJECT CreateObject("msxml2.ServerXMLHTTP")
         :Open( "POST", "https://api.lleida.net/sms/v2/", .F. )
         :SetRequestHeader( "Content-Type","application/x-www-form-urlencoded;charset=UTF-8" )
         :Send( 'xml=<userinfo>' +;
               '<user>' + cUser + '</user>' +;
               '<password>' + cPasw + '</password>' +;
               '</userinfo>' )
         cHtml := :ResponseText
      END//OBJECT
oCGI:Console( cHtml )
      nAt := At( "<credit>", cHtml ) +8
      cHtml := AllTrim( Str( Val( SubStr( cHtml, nAt, At( "</credit>", cHtml ) - nAt ) ), 10 ) )

      cHtml := Tag("script", "alert('" + "Saldo SMSs LleidaNet (" +cUser+ "): " + cHtml + "')" )


   ElseIf cSMS = "descom"
      cUser := "usuario"
      cPasw := "password"
      WITH OBJECT CreateObject( "msxml2.ServerXMLHTTP")
         If cSMS = "descomSMS"
*https://www.descomsms.com/api-sms/llamadas/enviar-sms.html
            :Open( "POST", "https://api.descomsms.com/api/sms/send", .F. )
         Else
*https://www.descomsms.com/api-sms/llamadas/obtener-el-saldo.html
            :Open( "GET", "https://api.descomsms.com/api/balance", .F. )
         EndIf
         :SetRequestHeader( "Content-Type", "application/json" )
         :SetRequestHeader( "DSMS-User", &('"' + cUser + '"') )
         :SetRequestHeader( "DSMS-Pass", &('"' + cPasw + '"') )
         If cSMS = "descomSMS"
            :Send( '{ "dryrun":true,'+; //true simulará un envío sin que se descuente créditos en la cuenta
            '    "messages": ['+;
            '        {'+;
            '            "to": ['+;
            '                "615213232"'+;
            '            ],'+;
            '            "text": "test",'+;
            '            "senderID": "Info"'+;
            '        }'+;
            '    ]'+;
            '}' )
         Else
            :Send()
         endIf
         cHtml := :ResponseText
      END//OBJECT
oCGI:Console( cHtml )
*      //Json a Hash... http://fivetechsupport.com/forums/viewtopic.php?f=6&t=37056
      hb_jsondecode(cHtml,@aHasRes) //Parse JSON to hash
      TRY
         If cSMS = "descomSMS"
            cHtml := "Envio Ok. Saldo SMSs Descom (" +cUser+ "): " + AllTrim(Str(aHasRes["credits_after"]))
         Else
            cHtml := "Saldo SMSs Descom (" +cUser+ "): " + AllTrim(Str(aHasRes["balance"]))
         EndIf
      CATCH
         cHtml := "Error message (" +cUser+ "): " + nfl_AsciiHTML(aHasRes[1]["message"])
      END//TRY
      cHtml := Tag("script", "alert('" + cHtml + "')" )

   Else
      cHtml := Tag("script", "alert('No soportado')" )

   EndIf

   oCGI:SendScript( cHtml )

RETURN Nil

FUNCTION TestSMSsAjax()

Local cHtml, nAt

Local cSMS := oCGI:GetCgiValue("lleidanet_descom","")

Local aHasRes := {=>}

Local cUser, cPasw

If cSMS == "lleidanet"

cUser := "usuario"

cPasw := "password"

WITH OBJECT CreateObject("msxml2.ServerXMLHTTP")

:Open( "POST", "https://api.lleida.net/sms/v2/", .F. )

:SetRequestHeader( "Content-Type","application/x-www-form-urlencoded;charset=UTF-8" )

:Send( 'xml=<userinfo>' +;

'<user>' + cUser + '</user>' +;

'<password>' + cPasw + '</password>' +;

'</userinfo>' )

cHtml := :ResponseText

END//OBJECT

oCGI:Console( cHtml )

nAt := At( "<credit>", cHtml ) +8

cHtml := AllTrim( Str( Val( SubStr( cHtml, nAt, At( "</credit>", cHtml ) - nAt ) ), 10 ) )

cHtml := Tag("script", "alert('" + "Saldo SMSs LleidaNet (" +cUser+ "): " + cHtml + "')" )

ElseIf cSMS = "descom"

cUser := "usuario"

cPasw := "password"

WITH OBJECT CreateObject( "msxml2.ServerXMLHTTP")

If cSMS = "descomSMS"

*https://www.descomsms.com/api-sms/llamadas/enviar-sms.html

:Open( "POST", "https://api.descomsms.com/api/sms/send", .F. )

Else

*https://www.descomsms.com/api-sms/llamadas/obtener-el-saldo.html

:Open( "GET", "https://api.descomsms.com/api/balance", .F. )

EndIf

:SetRequestHeader( "Content-Type", "application/json" )

:SetRequestHeader( "DSMS-User", &('"' + cUser + '"') )

:SetRequestHeader( "DSMS-Pass", &('"' + cPasw + '"') )

If cSMS = "descomSMS"

:Send( '{ "dryrun":true,'+; //true simulará un envío sin que se descuente créditos en la cuenta

' "messages": ['+;

' {'+;

' "to": ['+;

' "615213232"'+;

' ],'+;

' "text": "test",'+;

' "senderID": "Info"'+;

' }'+;

' ]'+;

'}' )

Else

:Send()

endIf

cHtml := :ResponseText

END//OBJECT

oCGI:Console( cHtml )

* //Json a Hash... http://fivetechsupport.com/forums/viewtopic.php?f=6&t=37056

hb_jsondecode(cHtml,@aHasRes) //Parse JSON to hash

TRY

If cSMS = "descomSMS"

cHtml := "Envio Ok. Saldo SMSs Descom (" +cUser+ "): " + AllTrim(Str(aHasRes["credits_after"]))

Else

cHtml := "Saldo SMSs Descom (" +cUser+ "): " + AllTrim(Str(aHasRes["balance"]))

EndIf

CATCH

cHtml := "Error message (" +cUser+ "): " + nfl_AsciiHTML(aHasRes[1]["message"])

END//TRY

cHtml := Tag("script", "alert('" + cHtml + "')" )

Else

cHtml := Tag("script", "alert('No soportado')" )

EndIf

oCGI:SendScript( cHtml )

RETURN Nil

Puedes solicitar un usuario/password de pruebas en el proveedor LleidaNet o Descom.

24-05-2021 a las 23:04 en respuesta a: Envio de SMS #1817

Xevi

Participante

Tengo funcionando mensajes SMS en Xailer y lo porté a Néfele, para comprovar como se comportava, y bien.

https://xevicomas.duckdns.org/cgi-bin/xcmProves_TestSMSs.exe

Aquí puedes ver la petición de Saldo en los proveedores de servicio SMS LleidaNet y Descom, y en Descom, un envio de un mensaje (en modo prueba), con la respuesta recibida por el proveedor.

Se puede ampliar tanto como se quiera, siguiendo las pautas del API del proveedor. A mi por lo que lo estoy utilizando, me sirve como está.

Si necesitas código, te lo puedo pasar, aunque si yo he llegado hasta aquí, facil és, te lo aseguro!!!

14-05-2021 a las 10:44 en respuesta a: Control Tabs #1802

Xevi

Participante

Gabriel

Yo lo estoy utilizando, y lo que no he visto documentado, lo intento con cCss

         WITH OBJECT wTabs():New(:WO)
            :AddItem( "Paginat/Detall", "bevel_1" )
            :AddItem( "Llistat", "bevel_2" )
            WITH OBJECT :oStyle
               :cBackground_color := "transparent"
               :cHeight := "35px"
            END WITH
            :Create()
         END WITH

         :cCSS += ".tabs .tab a { font-weight: bold;color: white; }" //Texto pestaña no activa
         :cCSS += ".tabs .tab a:hover, .tabs .tab a.active { color: black !important;}" //Texto pestaña activa
         :cCSS += ".tabs .tab a:focus, .tabs .tab a:focus.active { background-color: #aaddd6; }" //Fondo pestaña activa
         :cCSS += ".tabs .indicator { background-color: black; }" //Barra indicadora pestaña activa
         :cCss += ".tabs .tab { text-transform: initial; }" //Para dejar el texto tal cual, sinó pone el texto de las etiquetas en mayúsculas

WITH OBJECT wTabs():New(:WO)

:AddItem( "Paginat/Detall", "bevel_1" )

:AddItem( "Llistat", "bevel_2" )

WITH OBJECT :oStyle

:cBackground_color := "transparent"

:cHeight := "35px"

END WITH

:Create()

END WITH

:cCSS += ".tabs .tab a { font-weight: bold;color: white; }" //Texto pestaña no activa

:cCSS += ".tabs .tab a:hover, .tabs .tab a.active { color: black !important;}" //Texto pestaña activa

:cCSS += ".tabs .tab a:focus, .tabs .tab a:focus.active { background-color: #aaddd6; }" //Fondo pestaña activa

:cCSS += ".tabs .indicator { background-color: black; }" //Barra indicadora pestaña activa

:cCss += ".tabs .tab { text-transform: initial; }" //Para dejar el texto tal cual, sinó pone el texto de las etiquetas en mayúsculas

13-04-2021 a las 10:23 en respuesta a: ejemplo paginado listview que esta en foro no paginate #1787

Xevi

Participante

Lo acabo de probar, ya desde que lo puse en ejemplos ahí se quedó el código...
Copiar-Pegar el código mismo que tienes en el mensaje anterior, y está funcionando perfectamente.

Puedes verlo en...

https://xevicomas.duckdns.org/cgi-bin/xcmProves_ListViewPaginacion.exe

Un detalle que debes de tener en cuenta, si no te está funcionando. Debes de tener enrutado la funció encargada de la paginación

// 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 Factures()
   METHOD FacturesAjaxChangePage() INLINE FacturesAjaxChangePage()

// 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 Factures()

METHOD FacturesAjaxChangePage() INLINE FacturesAjaxChangePage()

Esta respuesta fue modificada 3 años, 7 meses por Xevi.

03-03-2021 a las 00:53 en respuesta a: MariaDB #1740

Xevi

Participante

Ramon,

lo que pretendes es disponer de una clase TDataSet o TRecordSet de la base de datos o tabla... me da que no está implementada.

Pero te puedes crear una clase y vas añadiendo, ampliando a medida que vayas necesitando... y si finalmente se implementa una clase, pues todo eso que se aprende.

En acceso a DBFs lo veo muy útil, pero para SQL, como lo haces todo en una sentencia Execute o Query... de momento no lo he necesitado

Para modelo de datos para DBFs lo que hago es tener mi clase (modelo) para abrir mi base de datos, tabla y cargo en un hash los datos que voy necesitando de esa tabla.

//------------------------------------------------------------------------------
//------------------------------------------------------------------------------
// Classe Model FACTURES DBFs
//------------------------------------------------------------------------------
//------------------------------------------------------------------------------

CLASS FacturesDbfModel

	DATA cAlias

	METHOD New() CONSTRUCTOR
   METHOD GetId()
	METHOD Load()
	
ENDCLASS
*
**
***
**
*
METHOD New( cEmp, cnTag ) CLASS FacturesDbfModel
   Local cFile

   DEFAULT cEmp TO oCgi:GetUserData('gwinemp')

   cFile := oCgi:GetUserData('gwinpath') + cEmp + "\Factu."

   USE (cFile+"Dbf") SHARED NEW
	::cAlias := Alias()		

   If cnTag # Nil
      OrdListAdd( (cFile+"Cdx") )
      OrdSetFocus(cnTag)
   EndIf

RETURN SELF
*
**
***
**
*
METHOD GetId( nId ) CLASS FacturesDbfModel
	
	DEFAULT nId TO 0
	
	(::cAlias)->( DbGoTo( nId ) )

RETURN ::Load()
*
**
***
**
*
METHOD Load() CLASS FacturesDbfModel
	Local hRow := {=>}

	hRow[ 'id' ]         := (::cAlias)->( Recno() )
	hRow[ 'factura' ]    := AllTrim( (::cAlias)->FACTURA )
	hRow[ 'datafac' ]    := DtoC( (::cAlias)->datafac )
	hRow[ 'nom' ]        := AllTrim( (::cAlias)->nom )
	hRow[ 'adreca' ]     := AllTrim( (::cAlias)->adreca )
	hRow[ 'poblacio' ]   := AllTrim( (::cAlias)->poblacio )
	hRow[ 'import' ]     := Transform( (::cAlias)->tot, "@E 9,999,999.99" )
	hRow[ 'codi' ]       := AllTrim( (::cAlias)->CODI )
        hRow[ 'total' ]      := Alltrim(Transform( TotalFactura(::cAlias), "@E 999,999,999.99" ))
	hRow[ 'nif' ]        := AllTrim( (::cAlias)->DNI )

RETURN hRow

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

// Classe Model FACTURES DBFs

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

CLASS FacturesDbfModel

DATA cAlias

METHOD New() CONSTRUCTOR

METHOD GetId()

METHOD Load()

ENDCLASS

***

METHOD New( cEmp, cnTag ) CLASS FacturesDbfModel

Local cFile

DEFAULT cEmp TO oCgi:GetUserData('gwinemp')

cFile := oCgi:GetUserData('gwinpath') + cEmp + "\Factu."

USE (cFile+"Dbf") SHARED NEW

::cAlias := Alias()

If cnTag # Nil

OrdListAdd( (cFile+"Cdx") )

OrdSetFocus(cnTag)

EndIf

RETURN SELF

***

METHOD GetId( nId ) CLASS FacturesDbfModel

DEFAULT nId TO 0

(::cAlias)->( DbGoTo( nId ) )

RETURN ::Load()

***

METHOD Load() CLASS FacturesDbfModel

Local hRow := {=>}

hRow[ 'id' ] := (::cAlias)->( Recno() )

hRow[ 'factura' ] := AllTrim( (::cAlias)->FACTURA )

hRow[ 'datafac' ] := DtoC( (::cAlias)->datafac )

hRow[ 'nom' ] := AllTrim( (::cAlias)->nom )

hRow[ 'adreca' ] := AllTrim( (::cAlias)->adreca )

hRow[ 'poblacio' ] := AllTrim( (::cAlias)->poblacio )

hRow[ 'import' ] := Transform( (::cAlias)->tot, "@E 9,999,999.99" )

hRow[ 'codi' ] := AllTrim( (::cAlias)->CODI )

hRow[ 'total' ] := Alltrim(Transform( TotalFactura(::cAlias), "@E 999,999,999.99" ))

hRow[ 'nif' ] := AllTrim( (::cAlias)->DNI )

RETURN hRow

se pueden crar más métodos... como seria Add() Replace() Seek()

Igual te puede servir para guiarte en tu implementación de una clase propia.

Esta respuesta fue modificada 3 años, 8 meses por Xevi.

02-03-2021 a las 20:05 en respuesta a: MariaDB #1737

Xevi

Participante

Ramon, si no dispones de la versión Enterprise de Xailer, debes de prescindir de incluir la llamada a la clase TMariaDBDataSource()
Si dispones de la versión Enterprise, debes de incluir la lib correspondiente.

Si solo quieres utilizar el driver ODBC de Harbour/Néfele...

FUNCTION xcm_MdbConnect( cDataBase, cHost, cUser, cPassword )
   Local oObject
 
   DEFAULT cHost TO "localhost"
   DEFAULT cUser TO "miusuario"
   DEFAULT cPassword TO "mipassword"
 
oCGI:Console( "cHost = " + cHost )
   If AScan( nfl_GetDriversODBC( xc_MariaDB ), {|x| x = "MariaDB" } ) > 0
oCGI:Console( "MariaDB ODBC Driver" )
      WITH OBJECT oObject := WAdoConnect():New()
         :nEngine := xc_MariaDB
         :cDriver := "MariaDB ODBC 3.0 Driver"
         :lDisplayErrors := .F.
         :cHost     := cHost
         :cUser     := cUser
         :cPassword := cPassword
         If cDataBase # Nil
            :cDataBase := cDataBase
         EndIf
      END WITH
 
   Else
/*
oCGI:Console( "MariaDB Xailer" )
      WITH OBJECT oObject := TMariaDBDataSource():Create()
         :lDisplayErrors := .F.
         :cHost     := cHost
         :cUser     := cUser
         :cPassword := cPassword
         If cDataBase # Nil
            :cDataBase := cDataBase
         EndIf
      END WITH
*/ 
oCGI:Console( "Driver NO ENCONTRADO o NO INSTALADO" )

   EndIf
 
RETURN oObject

FUNCTION xcm_MdbConnect( cDataBase, cHost, cUser, cPassword )

Local oObject

DEFAULT cHost TO "localhost"

DEFAULT cUser TO "miusuario"

DEFAULT cPassword TO "mipassword"

oCGI:Console( "cHost = " + cHost )

If AScan( nfl_GetDriversODBC( xc_MariaDB ), {|x| x = "MariaDB" } ) > 0

oCGI:Console( "MariaDB ODBC Driver" )

WITH OBJECT oObject := WAdoConnect():New()

:nEngine := xc_MariaDB

:cDriver := "MariaDB ODBC 3.0 Driver"

:lDisplayErrors := .F.

:cHost := cHost

:cUser := cUser

:cPassword := cPassword

If cDataBase # Nil

:cDataBase := cDataBase

EndIf

END WITH

Else

oCGI:Console( "MariaDB Xailer" )

WITH OBJECT oObject := TMariaDBDataSource():Create()

:lDisplayErrors := .F.

:cHost := cHost

:cUser := cUser

:cPassword := cPassword

If cDataBase # Nil

:cDataBase := cDataBase

EndIf

END WITH

oCGI:Console( "Driver NO ENCONTRADO o NO INSTALADO" )

EndIf

RETURN oObject

Prueba así

02-03-2021 a las 00:19 en respuesta a: MariaDB #1732

Xevi

Participante

Pues, por ejemplo...

   WITH OBJECT xcm_MdbConnect()
   If :Connect()
      aBICswift := :QueryArray( "SELECT * FROM gwin.bicswift" )
      :Disconnect()
   EndIf

WITH OBJECT xcm_MdbConnect()

If :Connect()

aBICswift := :QueryArray( "SELECT * FROM gwin.bicswift" )

:Disconnect()

EndIf

         WITH OBJECT xcm_MdbConnect( "xevi", AppData:cServerMDB )
         If :Connect()
            aQuery := :QueryArray( "SELECT registre,codi FROM registresactius" )
            :Disconnect()
         Else
            Return
         EndIf

WITH OBJECT xcm_MdbConnect( "xevi", AppData:cServerMDB )

If :Connect()

aQuery := :QueryArray( "SELECT registre,codi FROM registresactius" )

:Disconnect()

Else

Return

EndIf

01-03-2021 a las 20:17 en respuesta a: MariaDB #1730

Xevi

Participante

Yo estoy trabajando PERFECTAMENTE con MariaDB

Tengo mi funcioncilla, la que llamo en cada conexión que quiero realizar.

Si a alguien puede ser de utilidad...

FUNCTION xcm_MdbConnect( cDataBase, cHost, cUser, cPassword )
   Local oObject

   DEFAULT cHost TO "localhost"
   DEFAULT cUser TO "miusuario"
   DEFAULT cPassword TO "mipassword"

oCGI:Console( "cHost = " + cHost )
   If AScan( nfl_GetDriversODBC( xc_MariaDB ), {|x| x = "MariaDB" } ) > 0
oCGI:Console( "MariaDB ODBC Driver" )
      WITH OBJECT oObject := WAdoConnect():New()
         :nEngine := xc_MariaDB
         :cDriver := "MariaDB ODBC 3.0 Driver"
         :lDisplayErrors := .F.
         :cHost     := cHost
         :cUser     := cUser
         :cPassword := cPassword
         If cDataBase # Nil
            :cDataBase := cDataBase
         EndIf
      END WITH

   Else
oCGI:Console( "MariaDB Xailer" )
      WITH OBJECT oObject := TMariaDBDataSource():Create()
         :lDisplayErrors := .F.
         :cHost     := cHost
         :cUser     := cUser
         :cPassword := cPassword
         If cDataBase # Nil
            :cDataBase := cDataBase
         EndIf
      END WITH

   EndIf

RETURN oObject

FUNCTION xcm_MdbConnect( cDataBase, cHost, cUser, cPassword )

Local oObject

DEFAULT cHost TO "localhost"

DEFAULT cUser TO "miusuario"

DEFAULT cPassword TO "mipassword"

oCGI:Console( "cHost = " + cHost )

If AScan( nfl_GetDriversODBC( xc_MariaDB ), {|x| x = "MariaDB" } ) > 0

oCGI:Console( "MariaDB ODBC Driver" )

WITH OBJECT oObject := WAdoConnect():New()

:nEngine := xc_MariaDB

:cDriver := "MariaDB ODBC 3.0 Driver"

:lDisplayErrors := .F.

:cHost := cHost

:cUser := cUser

:cPassword := cPassword

If cDataBase # Nil

:cDataBase := cDataBase

EndIf

END WITH

Else

oCGI:Console( "MariaDB Xailer" )

WITH OBJECT oObject := TMariaDBDataSource():Create()

:lDisplayErrors := .F.

:cHost := cHost

:cUser := cUser

:cPassword := cPassword

If cDataBase # Nil

:cDataBase := cDataBase

EndIf

END WITH

EndIf

RETURN oObject

Así voy probando un u otro conector a MariaDB.

Eso si, para Néfele, se ha de instalar el driver 32bits, como está descrito en el sample.

21-01-2021 a las 01:22 en respuesta a: Néfele y el control cefBrowser de Xailer #1699

Xevi

Participante

Jose,

Copiada... y sigue haciendo lo mismo, no muestra página web alguna.

Un saludo,

Xevi.

Esta respuesta fue modificada 3 años, 10 meses por Xevi.

20-01-2021 a las 21:14 en respuesta a: Néfele y el control cefBrowser de Xailer #1697

Xevi

Participante

Jose,

El sample WebView de Xailer7, no me muestra ninguna web. No se si es por ser la versión DEMO, pero no funciona el sample.

Un Saludo,

Xevi.

20-01-2021 a las 20:35 en respuesta a: Nuevo Ejemplo wArrayBrowse #1696

Xevi

Participante

Fredy,

Teneis previsto alguna actualización próxima y que incluya esta novedad y seguramente más que teneis ya preparadas???

Un Saludo,

Xevi.

15-01-2021 a las 20:55 en respuesta a: Controles sin salto de línea #1692

Xevi

Participante

Perfecto!!!

14-01-2021 a las 17:11 en respuesta a: Controles sin salto de línea #1689

Xevi

Participante

Bien, esto en cuanto a botones, pero... ¿si quiero poner un Label y seguidamente un Botón, o una imagen ???

Label e Image no disponen de la propiedad :lContainer

Alguna forma???

Un Saludo,

Xevi.

14-01-2021 a las 13:36 en respuesta a: Controles sin salto de línea #1688

Xevi

Participante

Gracias, pero con aWidth lo que hace es responder al "responsive" y me "aumenta" el tamaño a lo largo, cuando expando/reduzco el ancho de la ventana.

Lo que busco es que sin caso al responsive, poner los elementos/controles uno seguido del anterior.

Revisando, he visto que con :lContainer := .F. consigo lo que necesito, en este caso.

      WITH OBJECT WPanel():New(:WO)
         WITH OBJECT WLabel():New(:WO)
            :nFontSize  := 5
            :lBold      := .T.
            :cAlign     := xc_Left
            :cText      := "TestSMSs"
            :Create()
         END WITH

         WITH OBJECT WButton():New(:WO)
            :cText      := "LleidaNet/Saldo"
            :cOnClick   := "SMSsSaldoAjax"
            :cAjaxBevel := "nflcargo"
            :aParams := { { "lleidanet_descom", "lleidanet" } }
            :cPosition := "left"
            :oStyle:cWidth := 120
            :oStyle:cMargin_left := -4
            :oStyle:cMargin_bottom := 10
            :Create()
         END WITH //WButton

         WITH OBJECT WButton():New(:WO)
            :cText      := "Descom/Saldo"
            :cOnClick   := "SMSsSaldoAjax"
            :cAjaxBevel := "nflcargo"
            :aParams := { { "lleidanet_descom", "descom" } }
            :oStyle:cWidth := 120
            :oStyle:cMargin_bottom := 10
            :lContainer := .F.
            :Create()
         END WITH //WButton

         WITH OBJECT WButton():New(:WO)
            :cText      := "Descom/SMS"
            :cOnClick   := "SMSsSaldoAjax"
            :cAjaxBevel := "nflcargo"
            :aParams := { { "lleidanet_descom", "descomSMS" } }
            :oStyle:cWidth := 120
            :oStyle:cMargin_left := 10
            :oStyle:cMargin_bottom := 10
            :lContainer := .F.
            :Create()
         END WITH //WButton

         :Create()
      END WITH

WITH OBJECT WPanel():New(:WO)

WITH OBJECT WLabel():New(:WO)

:nFontSize := 5

:lBold := .T.

:cAlign := xc_Left

:cText := "TestSMSs"

:Create()

END WITH

WITH OBJECT WButton():New(:WO)

:cText := "LleidaNet/Saldo"

:cOnClick := "SMSsSaldoAjax"

:cAjaxBevel := "nflcargo"

:aParams := { { "lleidanet_descom", "lleidanet" } }

:cPosition := "left"

:oStyle:cWidth := 120

:oStyle:cMargin_left := -4

:oStyle:cMargin_bottom := 10

:Create()

END WITH //WButton

WITH OBJECT WButton():New(:WO)

:cText := "Descom/Saldo"

:cOnClick := "SMSsSaldoAjax"

:cAjaxBevel := "nflcargo"

:aParams := { { "lleidanet_descom", "descom" } }

:oStyle:cWidth := 120

:oStyle:cMargin_bottom := 10

:lContainer := .F.

:Create()

END WITH //WButton

WITH OBJECT WButton():New(:WO)

:cText := "Descom/SMS"

:cOnClick := "SMSsSaldoAjax"

:cAjaxBevel := "nflcargo"

:aParams := { { "lleidanet_descom", "descomSMS" } }

:oStyle:cWidth := 120

:oStyle:cMargin_left := 10

:oStyle:cMargin_bottom := 10

:lContainer := .F.

:Create()

END WITH //WButton

:Create()

END WITH

Así, pues, un boton, salto de línea y un par de botones uno al ladico del otro.

Gracias.

Un Saludo,

Xevi.

04-01-2021 a las 16:38 en respuesta a: Acceder a un archivo subido #1676

Xevi

Participante

Retomando este hilo...

Hace unos días que estoy apartado de mis prubas, y veo que en alguna actualización, algo ha variado al "subir" un fichero.

El tema por lo que concierne a la subida de fichero, al menos en este caso que estoy probando (fichero excel) no termina de funcionar correctamente, pues el fichero original y el recibido en la carpeta cgi-bin/tmp no son "iguales"

Si intento abrir el fichero recibido con excel, encuentra un error y excel informa y "repara"... cosa que no me sirve, pues debo tratar ese archivo sin abrir excel, sinó SOLO utilizando el objeto "Excel.Application"

Comparando los dos archivos, el de origen i el tmp, (con Winmerge), veo que el fichero tmp le añade un retorno de carro al final del fichero.

Anteriormente se le añadía un caracter 1A, pero por lo visto, ahora se le añade ese caracter de retorno de carro

EDITADO ***

Más concretamente, se añaden, actualmente, 2 carácteres de más, Chr(13) y Chr(10). De momento "reescribo" el archivo quitando 2 bytes, y funciona.

Local cFileTemp := GetTempFilename( oCgi:cPathTmp )
Local cMemo := HB_MemoRead( cFileFullXLS )
oCGI:Console( cFileTemp, Len(cMemo) )
HB_MemoWrit( cFileTemp, SubStr(cMemo,1,Len(cMemo)-2), .F. )
cFileFullXLS := cFileTemp

Local cFileTemp := GetTempFilename( oCgi:cPathTmp )

Local cMemo := HB_MemoRead( cFileFullXLS )

oCGI:Console( cFileTemp, Len(cMemo) )

HB_MemoWrit( cFileTemp, SubStr(cMemo,1,Len(cMemo)-2), .F. )

cFileFullXLS := cFileTemp

Un Saludo,

Xevi.

Esta respuesta fue modificada 3 años, 10 meses por Xevi.

06-12-2020 a las 21:48 en respuesta a: Ejemplo, lo más simple, para entender abrir un Modal #1636

Xevi

Participante

La ventana Modal, recibe el parámetro de la ventana Inicial, y la ventana Modal retorna el valor a la ventana Inicial

PROCEDURE ProvaModal()

   // 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

100

101

PROCEDURE ProvaModal()

// 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

Simple y con poco código... para poder empezar a manipular datos.

Un Saludo,

Xevi.

Esta respuesta fue modificada 3 años, 11 meses por Xevi.

05-12-2020 a las 15:59 en respuesta a: Botones WListView #1633

Xevi

Participante

Puestos...

Poder poner un color específico a cada boton/icono Delete/Edit ???

De momento lo pongo así, pero se podría incorporar el Nefelizado ???

               WITH OBJECT :AddItem( 1,, "Registro número 1", {"linea adicional 1"} ) AS wItemListView
                  :lEdit         := .T.
                  :cOnClickEdit   := "#alert('Modificar???')"
                  :lDelete       := .T.
                  :cOnClickDelete := "#alert('Borrar???')"
               END With
               :cCSS += "#lvw0001_1_icondelete { color: red;}"

               WITH OBJECT :AddItem( 2,, "Registro número 2", {"linea adicional 2"} ) AS wItemListView
                  :lEdit         := .T.
                  :cOnClickEdit   := "#alert('Modificar???')"
                  :lDelete       := .T.
                  :cOnClickDelete := "#alert('Borrar???')"
               END With
               :cCSS += "#lvw0001_2_icondelete { color: red;}"

WITH OBJECT :AddItem( 1,, "Registro número 1", {"linea adicional 1"} ) AS wItemListView

:lEdit := .T.

:cOnClickEdit := "#alert('Modificar???')"

:lDelete := .T.

:cOnClickDelete := "#alert('Borrar???')"

END With

:cCSS += "#lvw0001_1_icondelete { color: red;}"

WITH OBJECT :AddItem( 2,, "Registro número 2", {"linea adicional 2"} ) AS wItemListView

:lEdit := .T.

:cOnClickEdit := "#alert('Modificar???')"

:lDelete := .T.

:cOnClickDelete := "#alert('Borrar???')"

END With

:cCSS += "#lvw0001_2_icondelete { color: red;}"

Y, recuerdo, hago memoria... poner más de 2 botones. utilizar un array de botones
aButtons := { { <lVisible>, <cOnClick>, <:cAjaxBevel> } } //por ejemplo

O, de no ser posible en un array, aumentar de 2 a 5 botones, por ejemplo...
:lSpecial, :lOptional, :lSuper //o los nombres que sean

Un Saludo,

Xevi.

04-12-2020 a las 21:35 en respuesta a: Botones WListView #1626

Xevi

Participante

Pedro,

puedes probar con este ejemplo completo...

PROCEDURE ProvaListView()
   Local cHtml

   // Comenzamos instanciando la Página Web que queremos crear
   WITH OBJECT TWebPage():New()

      // Instanciamos un Panel para contener los elementos, permite poner un titulo y tiene un efecto sombra
      WITH OBJECT WPanel():New(:WO)

         // tenemos que tener un contenedor para recibir la respuesta del AJAX
         With Object WBevel():New(:WO)

            WITH OBJECT WListView():New(:WO)
               :lTitleItem := .T.

               WITH OBJECT :AddItem( 1,, "Registro número 1", {"linea adicional 1"} ) AS wItemListView
                  :lEdit         := .T.
                  :cOnClickEdit   := "#alert('Modificar???')"
                  :lDelete       := .T.
                  :cOnClickDelete := "#alert('Borrar???')"
               END With
               WITH OBJECT :AddItem( 2,, "Registro número 2", {"linea adicional 2"} ) AS wItemListView
                  :lEdit         := .T.
                  :cOnClickEdit   := "#alert('Modificar???')"
                  :lDelete       := .T.
                  :cOnClickDelete := "#alert('Borrar???')"
               END With

               :Create()
            end with

            :Create()
         End With //Bevel

         // Como ya no vamos a meter nada más dentro de wPanel lo creamos
         :Create()
      end with //Panel ListView


      // Y listo, ya tenemos nuestra página creada, como el :Create() de un tWebPage nos retorna todo el HTML de la página
      // sobre la marcha hacemos el envio de dicho HTML al navegador que nos ha realizado la conexión
      oCgi:SendPage(:Create())
   END WITH

RETURN

PROCEDURE ProvaListView()

Local cHtml

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

WITH OBJECT TWebPage():New()

// Instanciamos un Panel para contener los elementos, permite poner un titulo y tiene un efecto sombra

WITH OBJECT WPanel():New(:WO)

// tenemos que tener un contenedor para recibir la respuesta del AJAX

With Object WBevel():New(:WO)

WITH OBJECT WListView():New(:WO)

:lTitleItem := .T.

WITH OBJECT :AddItem( 1,, "Registro número 1", {"linea adicional 1"} ) AS wItemListView

:lEdit := .T.

:cOnClickEdit := "#alert('Modificar???')"

:lDelete := .T.

:cOnClickDelete := "#alert('Borrar???')"

END With

WITH OBJECT :AddItem( 2,, "Registro número 2", {"linea adicional 2"} ) AS wItemListView

:lEdit := .T.

:cOnClickEdit := "#alert('Modificar???')"

:lDelete := .T.

:cOnClickDelete := "#alert('Borrar???')"

END With

:Create()

end with

:Create()

End With //Bevel

// Como ya no vamos a meter nada más dentro de wPanel lo creamos

:Create()

end with //Panel ListView

// Y listo, ya tenemos nuestra página creada, como el :Create() de un tWebPage nos retorna todo el HTML de la página

// sobre la marcha hacemos el envio de dicho HTML al navegador que nos ha realizado la conexión

oCgi:SendPage(:Create())

END WITH

RETURN

Los dos botones lanzan el mensaje Modificar???

Estoy utilizando Néfele libs del 19/11/2020 17:29

Un Saludo,

Xevi.

Esta respuesta fue modificada 3 años, 11 meses por Xevi.

27-11-2020 a las 12:30 en respuesta a: Envio de email #1578

Xevi

Participante

Xailer y envios de eCorreos (uso GMail)

Xailer dispone de la clase TBlatMail, TCdoMail, TGmailSend y TMapi

Yo lo estoy utilizando así...

   WITH OBJECT TCDOMail():New()
   :cSubject      := cSubj
   :cFrom         := cFrom
   :cUser         := cUser
   :cPassword     := cPass
   :cTO           := ::aClient[27]
   :lHTML         := lHTML
   :lGmailOptions := .T.
   :cMessage      := cMsg
   :aAttachments  := { cFile }
   :Create()

   If :Send()
      xMsgDlg( "Correu enviat a: " + :cTO, "ENVIAMENT", mbOK,, IDI_INFORMATION )
   Else
      xMsgDlg( "No s'ha pogut enviar el correu.", "ERROR", mbOK,, IDI_ERROR )
   EndIf
   END

WITH OBJECT TCDOMail():New()

:cSubject := cSubj

:cFrom := cFrom

:cUser := cUser

:cPassword := cPass

:cTO := ::aClient[27]

:lHTML := lHTML

:lGmailOptions := .T.

:cMessage := cMsg

:aAttachments := { cFile }

:Create()

If :Send()

xMsgDlg( "Correu enviat a: " + :cTO, "ENVIAMENT", mbOK,, IDI_INFORMATION )

Else

xMsgDlg( "No s'ha pogut enviar el correu.", "ERROR", mbOK,, IDI_ERROR )

EndIf

END

Un Saludo,

Xevi.

07-11-2020 a las 16:42 en respuesta a: Agregar firma en un documento #1525

Xevi

Participante

Por mi parte, no hay problema... aunque soy usuario muy novato en este entorno.

xevicomas@gmail.com

Esta respuesta fue modificada 4 años por Xevi.

04-11-2020 a las 16:24 en respuesta a: Servidor SSL #1490

Xevi

Participante

Pedro,

Así es como finalmente SI funciona.

No se puede tener este contenido en un .htaccess en la carpeta cgi-bin, sinó que se debe de incluir en el propio httpd.conf

Yo he incluido esto en mi httpd.conf

<IfModule mod_rewrite.c>
	RewriteEngine on
	RewriteCond %{HTTPS} off
	RewriteRule ^(.*)$ https://%{HTTP_HOST}%{REQUEST_URI} [L,R=301]
</IfModule>

RewriteEngine on

RewriteCond %{HTTPS} off

RewriteRule ^(.*)$ https://%{HTTP_HOST}%{REQUEST_URI} [L,R=301]

</IfModule>

http://xevicomas.duckdns.org/@Soft ya redireccion correctamente a https://xevicomas.duckdns.org/@Soft

Gracias por vuestro tiempo.

Un Saludo,

Xevi.

04-11-2020 a las 15:56 en respuesta a: Servidor SSL #1488

Xevi

Participante

Nop... no me funciona!!!

Cualquier entrada en .htaccess

Header...

Lanzan el error 500 Internal Server Error... y no carga la página.

Algun ajuste en httpd.conf se escapa!!!

Un Saludo,

Xevi.

04-11-2020 a las 13:49 en respuesta a: Servidor SSL #1484

Xevi

Participante

No lo veo muy claro, la cosa está en que el redireccionado de

http://midominio/index.html

lo está haciendo correctamente a

https://midominio/index.html

con el ficherete .htaccess que he detallado arriba.

En cambio, una aplicación Néfele, que está en la carpeta cgi-bin NO en htdocs no se comporta igual y http://midominio/nefele_samples (con Alias) o http://midominio/cgi-bin/nefele_samples.exe (o sin Alias) NUNCA redirecciona a https://...

No se, seguro que a alguien más le debe de ocurrir, no???
¿O nadie está utilizando SSL para las webs construidas con Néfele???

Un Saludo,

Xevi.

04-11-2020 a las 11:33 en respuesta a: Servidor SSL #1480

Xevi

Participante

Es tal como tengo en httpd.conf.

Y puedo acceder desde http o https indistintamente, no me hace el redireccionamiento

Si copio el mismo .htaccess que tengo en htdocs a la carpeta cgi-bin...

<IfModule mod_rewrite.c>
	RewriteEngine on
	RewriteCond %{HTTPS} off
	RewriteRule ^(.*)$ https://%{HTTP_HOST}%{REQUEST_URI} [L,R=301]
</IfModule>

RewriteEngine on

RewriteCond %{HTTPS} off

RewriteRule ^(.*)$ https://%{HTTP_HOST}%{REQUEST_URI} [L,R=301]

</IfModule>

https://midominio/cgi-bin/miapp.exe o https://midominio/miapp

Error 403

Forbidden
You don't have permission to access this resource.

Creo que por ahí puede ser donde hay que hacer algun cambio, tener un .htaccess en cgi-bin, pero con otros parámetros/ajustes

Un Saludo,

Xevi.

04-11-2020 a las 10:33 en respuesta a: Servidor SSL #1481

Xevi

Participante

Por lo visto... al cargar el .htaccess que ubico en la carpeta cgi-bin, no carga el módulo rewite

La línea

RewriteEngine on

parece ser que no surte efecto y de ahí que surja el error 403

No se como más averiguar que está pasando y porqué no se carga el módulo rewrite

Problema de algún parámetro en httpd.conf ???

03-11-2020 a las 23:37 en respuesta a: Servidor SSL #1478

Xevi

Participante

Bien... NO SOLUCIONADO del todo, diriamos.

Redirecciona TODAS las peticiones que hago a midominio, (ficheros html en carpeta htdocs) pero hace caso omiso a las llamadas que tengo en la carpeta cgi-bin. O sea, no me funciona para los desarrollos en Néfele.

He probado de poner el fichereta .htaccess en la carpeta cgi-bin, pero no funciona correctamente.

Seguro que se trata de una tonteria, algun ajuste o parámetro que tengo que cambiar, pero no lo veo.

Un Saludo,

Xevi.

03-11-2020 a las 23:29 en respuesta a: Servidor SSL #1476

Xevi

Participante

Solucionado!!!

En httpd.conf

entrada <Directory "${SRVROOT}/htdocs">

#    AllowOverride None
AllowOverride All

1 2	# AllowOverride None AllowOverride All

y en la entrada <Directory "${SRVROOT}/cgi-bin">

# AllowOverride None
AllowOverride All

1 2	# AllowOverride None AllowOverride All

Ya me redirecciona TODAS las llamadas http:// a https://

Un Saludo,

Xevi.

30-10-2020 a las 19:59 en respuesta a: Personalizar textos en wItemListView #1459

Xevi

Participante

Daniel,

no se trata d "comandos" sinó de código html.
El entorno web "no entiende" los caracteres CRLF (Chr(10), Chr(13))
en html, <p> es un cambio/salto de línea, y <br> un salto más alto de línea.

No se html, pero los cuatro conceptos básicos de html se te van a grabar rápidamente.

Un Saludo,

Xevi.

30-10-2020 a las 19:32 en respuesta a: Personalizar textos en wItemListView #1457

Xevi

Participante

Daniel,

prueba con...

cDetalleEx := cDetalleEx + IF(!Empty(articulo->detalleing),"<br>" +StrToXml(OEMToAnsi(AllTrim(articulo->detalleing))) + ' ',' ')

1	cDetalleEx := cDetalleEx + IF(!Empty(articulo->detalleing),"<br>" +StrToXml(OEMToAnsi(AllTrim(articulo->detalleing))) + ' ',' ')

28-10-2020 a las 09:44 en respuesta a: Parámetros CallAutoForm() #1445

Xevi

Participante

Pedro,

no estan las funciones documentadas...

Array2Char( aArray, cSeparator, xCol )

¿Como se utiliza y que és xCol???

Char2Array( cChar, cSeparator, nColumnas, lUpper, lVacios)

¿?¿?

en un ejemplo sencillo...

aDatos := { "uno", "dos", "tres" }
oCGI:Console( aDatos )

cDatos := oCGI:Console( Array2Char( aDatos, "|" ) ) // 1|uno2|dos3|tres

oCGI:Console( Char2Array( cDatos, "|" ) ) //NO muestra nada

aDatos := { "uno", "dos", "tres" }

oCGI:Console( aDatos )

cDatos := oCGI:Console( Array2Char( aDatos, "|" ) ) // 1|uno2|dos3|tres

oCGI:Console( Char2Array( cDatos, "|" ) ) //NO muestra nada

Un Saludo,

Xevi

27-10-2020 a las 13:41 en respuesta a: carácteres con diéresis #1434

Xevi

Participante

Bien... haciendo pruebas, veo que lo que estoy haciendo es mezclar comillas simples con diéresis...

:cText := "S" + AsciiHTML("'") + "ha produït un error!!! aäeëiïoöuü"

1	:cText := "S" + AsciiHTML("'") + "ha produït un error!!! aäeëiïoöuü"

de esta manera obtengo el resultado esperado.

No se si habrá alguna funcioncilla para "despejar" y poder utilizar TODOS los símbolos, se que es una tarea que es complicada. De momento, creo que deberemos de lidiar cada uno con nuestra propia "guerrilla" de simbologia

Un Saludo,

Xevi.

Esta respuesta fue modificada 4 años por Xevi.

27-10-2020 a las 13:33 en respuesta a: carácteres con diéresis #1433

Xevi

Participante

Ninguna diéresis...

ä => Ã¤

ë => Ã«

ï => Ã¯

ö => Ã¶

ü => Ã¼

27-10-2020 a las 13:20 en respuesta a: Parámetros CallAutoForm() #1429

Xevi

Participante

Coooorrecto.

El error está en algunos valores al pasar esos parámetros.

De ahí, que no me esta funcionando donde lo necesito.

Por lo visto, si 1 parámetro texto de este contenido...

C:\Apache24\cgi-bin\tmp\tmp~202010276116586217.xlsx

lo envia/recibe/lee como...

C:Apache24cgi-bin mp mp~202010276116586217.xlsx

La '\' la quita, y '\t' lo sustituye por espacio

Así pues... en el sample que has puesto...

cHtml := callAutoForm( "visparam", {{ "midato", "C:\Apache24\cgi-bin\tmp\tmp~202010276116586217.xlsx" }} )

y el dato se trunca en 'visparam'

Tampoco, si ese valor del parámetro es un array...

cHtml := callAutoForm( "visparam", {{ "midato", {"uno","dos","tres"} }} )

'visparam' no muestra los valores del array

Un saludo,

Xevi.

Esta respuesta fue modificada 4 años por Xevi.
Esta respuesta fue modificada 4 años por Xevi.

27-10-2020 a las 12:46 en respuesta a: Parámetros CallAutoForm() #1423

Xevi

Participante

De momento lo solvento utilizando

oCgi:SetUserData( "midato", "mivalor" )

oCgi:GetUserData( "midato" )

Y aprovecho para... igual que podemos crear esas "variables" con SetUserData(),

¿se puede eliminar una de estas variables???

Algo así como... oCgi:DelUserData( "midato" )

Lo digo para no dejar "restos" en el cgi y poderlo limpiar/depurar

Aunque, pensándo en web... esas "variables" que se crean, se pueden utilizar SOLAMENTE en la póxima llamada a nuestro cgi, no??? luego, su vida termina y ya no la podemos "recuperar" en otra llamada al cgi a no ser que la volvamos a enviar/crear.

Un Saludo,

Xevi.

Esta respuesta fue modificada 4 años por Xevi.

26-10-2020 a las 20:09 en respuesta a: Manejo Script #1415

Xevi

Participante

Probando CallAutoForm...

PROCEDURE ProvaAlertScript()
   Local cHtml
   Local cDato := oCGI:GetCgiValue("MiEdit","")

   If cDato == "aaa"
      cHtml := CallAutoForm( "visparam", {{ "midato", "mivalor" }} )
   Else
      cHtml := Tag("script", "alert('Dato NO encontrado')" )
   EndIf
   oCGI:SendScript( cHtml )

RETURN

PROCEDURE ProvaAlertScript()

Local cHtml

Local cDato := oCGI:GetCgiValue("MiEdit","")

If cDato == "aaa"

cHtml := CallAutoForm( "visparam", {{ "midato", "mivalor" }} )

Else

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

EndIf

oCGI:SendScript( cHtml )

RETURN

Visparam no muestra / no recibe el valor aParam pasado por CallAutoForm

Un Saludo,

Xevi.

23-10-2020 a las 17:29 en respuesta a: Click y saber que está trabajando #1399

Xevi

Participante

Pedro,

He puesto lo referente al Shadow en el WForm

      WITH OBJECT WForm():New(:WO)
         :cFunction  := "Xls2Xml"
         :cAjaxBevel := "nflcargo"
         :aParams := { { "cFileXLS", cFileXLS },;
                      { "cFileNameXLS", cFileNameXLS} }
:lShadowSheet := .T.
:cShadowSheetTitle := "Treballant"
:cShadowSheetSubTitle := "Esperi uns instants"
:lAjaxWaitON := .T.

WITH OBJECT WForm():New(:WO)

:cFunction := "Xls2Xml"

:cAjaxBevel := "nflcargo"

:aParams := { { "cFileXLS", cFileXLS },;

{ "cFileNameXLS", cFileNameXLS} }

:lShadowSheet := .T.

:cShadowSheetTitle := "Treballant"

:cShadowSheetSubTitle := "Esperi uns instants"

:lAjaxWaitON := .T.

Y funciona correctamente.

Ahora bien, el circulito en movimiento se muestra SIEMPRE, esté lAjaxWaitON a .T. o a .F.

Un Saludo,

Xevi.

23-10-2020 a las 14:10 en respuesta a: Click y saber que está trabajando #1392

Xevi

Participante

Y, se podrà cambiar el color de fuente del título/subtítulo del shadow???

Cambiar la imágen del circulito por algun gif???

Un Saludo,

Xevi.

23-10-2020 a las 09:35 en respuesta a: Click y saber que está trabajando #1367

Xevi

Participante

Pedro,

Este botón ejecuta un proceso que puede tardar unos segundos o incluso un minuto...

            WITH OBJECT WButton():New(:WO)
               :cId       := "submit"
               :cText     := "Acceptar"
               :lSubmit   := .T.
               :lLarge    := .T.
               :lCenter   := .T.
               :cIcon     := "keyboard_return"
               :cIconAlign := xc_Right
               :aWidth := {12}

*:lAjaxWaitON := .T.
:lShadowSheet := .T.
:cShadowSheetTitle := "Treballant"
:cShadowSheetSubTitle := "Esperi uns instants"

               :Create()
            END WITH

WITH OBJECT WButton():New(:WO)

:cId := "submit"

:cText := "Acceptar"

:lSubmit := .T.

:lLarge := .T.

:lCenter := .T.

:cIcon := "keyboard_return"

:cIconAlign := xc_Right

:aWidth := {12}

*:lAjaxWaitON := .T.

:lShadowSheet := .T.

:cShadowSheetTitle := "Treballant"

:cShadowSheetSubTitle := "Esperi uns instants"

:Create()

END WITH

Le he añadido esos parámetros, pero no me muestra nada, ni sombra, ni texto, nada.

También he probado sin comentar la línea AjaxWaitON := .T.

Un Saludo,

Xevi.

23-10-2020 a las 09:12 en respuesta a: Manejo Script #1366

Xevi

Participante

Pedro,

PROCEDURE miAjax()
   Local cHtml
   Local cDato := oCGI:GetCgiValue("MiEdit","")

   oCgi:Console( oCgi:aParams )

   If cDato == "aaa"
*      cHtml := Tag( "script", "window.location.href = '/@Soft?visparam'" )
*      oCGI:SendScript( cHtml )
*      CallAutoForm( "visparam" ) //No me muestra la página VisParam
      CallAutoForm( "visparam",, "nflcargo" )  //No me muestra la página VisParam
   Else
      cHtml := Tag("script", "alert('Dato NO encontrado')" )
      oCGI:SendScript( cHtml )
   EndIf

RETURN

PROCEDURE miAjax()

Local cHtml

Local cDato := oCGI:GetCgiValue("MiEdit","")

oCgi:Console( oCgi:aParams )

If cDato == "aaa"

* cHtml := Tag( "script", "window.location.href = '/@Soft?visparam'" )

* oCGI:SendScript( cHtml )

* CallAutoForm( "visparam" ) //No me muestra la página VisParam

CallAutoForm( "visparam",, "nflcargo" ) //No me muestra la página VisParam

Else

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

oCGI:SendScript( cHtml )

EndIf

RETURN

21-10-2020 a las 15:51 en respuesta a: Punto de entrada de la aplicacion de usuario #1339

Xevi

Participante

Si os referís al icono que "incrusta" en el .exe, yo lo establezco en las propiedades del proyecto - Apariencia, selecciono el icono que tengo en mi .rc y veo que me cambia el Main(), dejándolo así...

#include "Xailer.ch"

Procedure Main()
   SET DATE FORMAT TO "dd/mm/yyyy"
   SET DELETE ON

   Application:cTitle := "ASoft"
   Application:oIcon := "ASoft"
   CGI_Init()
   Application:Run()

Return

#include "Xailer.ch"

Procedure Main()

SET DATE FORMAT TO "dd/mm/yyyy"

SET DELETE ON

Application:cTitle := "ASoft"

Application:oIcon := "ASoft"

CGI_Init()

Application:Run()

Return

Y me funciona perfectamente!!!

Un saludo,

Xevi

21-10-2020 a las 10:19 en respuesta a: cCookieBannerLink #1335

Xevi

Participante

Fredy,

esto no me enruta al procedure VisParam

:cCookieBannerLink := "http://xevicomas.duckdns.org/@Soft/visparam"

1	:cCookieBannerLink := "http://xevicomas.duckdns.org/@Soft/visparam"

el navegador me manda a esta dirección...

https://xevicomas.duckdns.org/@Soft/index.prg/visparam

1	https://xevicomas.duckdns.org/@Soft/index.prg/visparam

Un Saludo,

Xevi.

21-10-2020 a las 10:17 en respuesta a: cCookieBannerLink #1336

Xevi

Participante

Perdón... tenia la dirección de mi primer server, en lugar del segundo server

me está funcionando así

:cCookieBannerLink  := "http://xevicomas.duckdns.org:8069/@Soft?xcm_cookies"

1	:cCookieBannerLink := "http://xevicomas.duckdns.org:8069/@Soft?xcm_cookies"

Esta respuesta fue modificada 4 años, 1 mes por Xevi.

20-10-2020 a las 19:43 en respuesta a: WTabs se pone en mayúsculas #1330

Xevi

Participante

Ok, perfecto!!!

19-10-2020 a las 21:48 en respuesta a: Para qué sirve WArrayBrowse:lIncludeArray? #1321

Xevi

Participante

si incluyo :aParams := { { "tabla", "#table_array" } }

No pasa nada...
Esperaré a que salga una actualización para ir probando cosas nuevas.

19-10-2020 a las 18:29 en respuesta a: Para qué sirve WArrayBrowse:lIncludeArray? #1319

Xevi

Participante

Si, si... así lo tengo!!!

19-10-2020 a las 17:19 en respuesta a: Para qué sirve WArrayBrowse:lIncludeArray? #1316

Xevi

Participante

Y... cómo recuperar los valores desde el programa ???

oCGi:Console( oCGI:GetCGIValue("table_array") )

1	oCGi:Console( oCGI:GetCGIValue("table_array") )

Esto no devuelve el JSon y no veo la manera de poder "aprovechar" esos datos.

Un saludo,

Xevi

19-10-2020 a las 17:18 en respuesta a: Para qué sirve WArrayBrowse:lIncludeArray? #1315

Xevi

Participante

19-10-2020 a las 16:56 en respuesta a: WEdit con autoborrado del contenido??? #1314

Xevi

Participante

PERFECTO!!!

Un Saludo,

Xevi.

19-10-2020 a las 14:49 en respuesta a: Error al correr compilado sin Debug #1295

Xevi

Participante

Me lanza errores al linkar...

Compilant  Proves.prg...
Enllaçant  @Soft.exe...
D:/XeviXailer/Nefele/@Soft/Obj/deprecated.o:(.data+0x98): undefined reference to `HB_FUN_NFL_CHECKCLR'
D:/XeviXailer/Nefele/@Soft/Obj/deprecated.o:(.data+0xb8): undefined reference to `HB_FUN_NFL_PRELOADCSS'
D:/XeviXailer/Nefele/@Soft/Obj/deprecated.o:(.data+0xd8): undefined reference to `HB_FUN_NFL_MSGSAVE'
D:/XeviXailer/Nefele/@Soft/Obj/deprecated.o:(.data+0xf8): undefined reference to `HB_FUN_NFL_COMILLAS'
D:/XeviXailer/Nefele/@Soft/Obj/deprecated.o:(.data+0x118): undefined reference to `HB_FUN_NFL_TOWEB'
D:/XeviXailer/Nefele/@Soft/Obj/deprecated.o:(.data+0x138): undefined reference to `HB_FUN_NFL_TAG'
D:/XeviXailer/Nefele/@Soft/Obj/ArrayBrowse.o:(.data+0x318): undefined reference to `HB_FUN_NFL_TAG'
D:/XeviXailer/Nefele/@Soft/Obj/ArrayBrowse.o:(.data+0x448): undefined reference to `HB_FUN_NFL_PUTICON'
D:/XeviXailer/Nefele/@Soft/Obj/ArrayBrowse.o:(.data+0x5d8): undefined reference to `HB_FUN_NFL_GETMEASURETYPE'
D:/XeviXailer/Nefele/@Soft/Obj/ArrayBrowse.o:(.data+0x628): undefined reference to `HB_FUN_NFL_TOWEB'
D:/XeviXailer/Nefele/@Soft/Obj/ArrayBrowse.o:(.data+0x648): undefined reference to `HB_FUN_NFL_UPDATEARRAY'
1 Files, 0 Warnings, 11 Errors
Temps de compilació: 0.37s   Temps d'enllaçat: 0.43s   Temp total: 0.83s

Compilant Proves.prg...

Enllaçant @Soft.exe...

D:/XeviXailer/Nefele/@Soft/Obj/deprecated.o:(.data+0x98): undefined reference to `HB_FUN_NFL_CHECKCLR'

D:/XeviXailer/Nefele/@Soft/Obj/deprecated.o:(.data+0xb8): undefined reference to `HB_FUN_NFL_PRELOADCSS'

D:/XeviXailer/Nefele/@Soft/Obj/deprecated.o:(.data+0xd8): undefined reference to `HB_FUN_NFL_MSGSAVE'

D:/XeviXailer/Nefele/@Soft/Obj/deprecated.o:(.data+0xf8): undefined reference to `HB_FUN_NFL_COMILLAS'

D:/XeviXailer/Nefele/@Soft/Obj/deprecated.o:(.data+0x118): undefined reference to `HB_FUN_NFL_TOWEB'

D:/XeviXailer/Nefele/@Soft/Obj/deprecated.o:(.data+0x138): undefined reference to `HB_FUN_NFL_TAG'

D:/XeviXailer/Nefele/@Soft/Obj/ArrayBrowse.o:(.data+0x318): undefined reference to `HB_FUN_NFL_TAG'

D:/XeviXailer/Nefele/@Soft/Obj/ArrayBrowse.o:(.data+0x448): undefined reference to `HB_FUN_NFL_PUTICON'

D:/XeviXailer/Nefele/@Soft/Obj/ArrayBrowse.o:(.data+0x5d8): undefined reference to `HB_FUN_NFL_GETMEASURETYPE'

D:/XeviXailer/Nefele/@Soft/Obj/ArrayBrowse.o:(.data+0x628): undefined reference to `HB_FUN_NFL_TOWEB'

D:/XeviXailer/Nefele/@Soft/Obj/ArrayBrowse.o:(.data+0x648): undefined reference to `HB_FUN_NFL_UPDATEARRAY'

1 Files, 0 Warnings, 11 Errors

Temps de compilació: 0.37s Temps d'enllaçat: 0.43s Temp total: 0.83s

No pasa nada... espero a que salga la actualización

Un Saludo,

Xevi.

Autor

Entradas

Viendo 50 entradas - de la 1 a la 50 (de un total de 149)

1 2 3 →