Off cource, when the Veri*Factu is ready to publish, I need to change my way.
↧
Veri*Factu
↧
Ejecutar accion luego de ShellExecute
Excelente, gracias a ambos, solucionado
↧
↧
winflector???????
Muchas gracias Maestro. Creo que es la opción más viable.
Saludos y gracias gracias
Ruben Dario Fernandez
Enviado desde mi motorola edge 50 pro mediante Tapatalk
↧
On every desktop, a web server at your fingertips
Dear Antonio,
Yes, Cloudflare does not provide hosting. It is for security purposes.
In our case, we want/need in-house servers because we work simultaneously with FIVEWIN and mod_harbour on the same DBF files. To use the FIVEWIN programs from PCs (clients) outside the network, i.e., via the internet, we use Cloudflared tunnels and RDP.
Basically, it's the same as VPN but without opening ports.
mod_harbour is served via a web interface by an Apache server, which runs on the same PC as our FIVEWIN executable.
Best regards,
Otto
↧
Quitar o mostrar button action de un get
Leandro,
Muy bien!
Importante: hay que devolver .T. desde la claúsula ON INIT para no variar la secuencia de foco:
ACTIVATE DIALOG oDlg ON INIT ( oGet:oBtn:cToolTip := "El mensaje", .T. )
↧
↧
Ocultar solo algunos botones de un xbrowser
Siguiendo las indicaciones de Rao:
XBROWSER "customer.dbf" SETUP ( oBrw:bInit := { |o| o:oWnd:oBar:aControls[ 1 ]:Hide() } )
↧
Algun ejemplo de twebview2 con google chart ?
Simplemente dale el código HTML a chatgpt y pídele el tipo de gráfico que quieras
↧
New: Read/Edit/Save XLSX files without Excel/ADO
Great work from Mr. Rao as usual
Thank you very much!
↧
Open XLS without Excel
[quote="cdmmaui":2qc5z730]Hi Rao,
Thank you. However, this XLS has 494 columns and about 23,000 rows. I am looking to start reading row 2 and only retrieve about 80 columns of data so I can upload to SQL. Is there a way to read data row by row like below?
cValue01 := oSheet:Cells( nCurrentXlsRow, 2 ):Value
cValue02 := oSheet:Cells( nCurrentXlsRow, 8 ):Value
cValue03 := oSheet:Cells( nCurrentXlsRow, 18 ):Value
cValue04 := oSheet:Cells( nCurrentXlsRow, 28 ):Value
cValue05 := oSheet:Cells( nCurrentXlsRow, 88 ):Value
Thanks Again for your support![/quote:2qc5z730]
Is your Excel file XLS or XLSX ?
If this is XLSX we can use our new class:
Usage:
[code=fw:2qc5z730][/code:2qc5z730]
↧
↧
AYUDA PARA COMPILAR EN 64 HBMK2, BORLAND Y HARBOUR64
funcionando!!! gracias maestro A.L.
saludos!
↧
Felices Fiestas a todos
Que se cumplan todos vuestros sueños en este próximo año 2025
↧
Color dialogo con letras blancas, Radio tambien
mira se ayuda:
[code=fw:1f0pq2ov][/code:1f0pq2ov]
Regards, saludos.
↧
get...action
[quote="D.Fernandez":3c0j5jpi]Gracias José pero no es eso, seguire investigando,
Igualmente ya estoy cambiando los get-antion por un get y boton aparte. Me queda bien igual
y me despreocupo, hasta que tenga tiempo suficiente.
Muy amable, gracias.
Saludos
Ruben Dario Fernandez[/quote:3c0j5jpi]
Excelente!
↧
↧
Google Vision API test
Quite impressive all the information the get from a photo...
[url:a6huvssz]https://theyseeyourphotos.com/[/url:a6huvssz]
↧
VERIFACTU, criterios, dudas 10/11/2024
Sin duda.
La intención es fiscalizadora, para eso son el "fisco"
El problema es que esta fiscalización nunca antes había condicionado tanto la forma en que el fiscalizado tenía que actuar al momento de emitir la factura. Sí, era necesario calcular el iva, y el recargo de equivalencia y poner el CIF y ... pero eso se podia hacer de manera que no influyera en la organización de la empresa. Verifactu cambia eso y por mucho que nos cuenten que esto mejorará el dinamismo entre fiscalizado y fiscalizadora no es así sino más bien se "carga" el dinamismo empresarial que ahora deberá pasar por un brete para obtener la medalla de idóneo". Dicho de otra forma, la informática en este caso ha servido para que el usuario tenga más trabajo en vez de menos.
En la antigüedad, en tiempo de romanos, llegaba el publicano, el recaudador de impuestos, casa por casa, con una patrulla a cobrarlos. Ahora es tremendamente facil controlar la recaudación desde la central. Sólo se escapa el gorrilla, que por muchas denuncias que le pongan por invasión de la calzada, al ser insolvente, se va de rositas. La insolvencia es en realidad la auténtica salud.
Salu2
↧
Lost connection to MySQL server during query
Yes,
You can use [b:1kg6t52q]bOnLostServer[/b:1kg6t52q]
* FWMariaConnection:
Reconnection logic improved when the app loses connection to the server.
New data bOnLostServer: If this codeblock is specified, it is called when the
application loses connection with the server.
[quote="PAUL SIMM":1kg6t52q]Is there any way I can change the error message "Lost Connection to MySql server during query" to only log the error to a text file end return false to the calling fintion. At the moment the error is a MsgInfo and the process which is automatic with a Timer blocks the aplication.
This code do'snt do this
oCon:Execute(cQwery)
if oCon:nError != 0
MSGWAIT("Error executando query","Line 10961")
oCon:Close()
RETURN .F.
endif
I used to work with Eagle I could define what to do when an MySql error occured with this funcion.
FUNCTION MyMsgError(cArg1,cArg2 )
MSGWAIT(cArg1,cArg2+" Web2Reco")
YMENSCEN(cArg1+ ""+cArg2) //log error
RETURN NIL
******************************************************************************[/quote:1kg6t52q]
↧
Browse of my ADO Class
FWH provides Class TWebView2 for Google Chrome engine and also support for Scintilla source code editor
If you provide a drawing of what you want we can code it using FWH
↧
↧
PrinterInfo with Powershell
Hello João,
I use ps1 files for many tasks, especially for installing servers, and have automated many tasks with them.
You need to create the directory. You could use c:\temp, for example.
Best regards,
Otto
c:\fwh\samples\psfiles\
↧
AC4xBrowse
Hello Marc,
yes, you're right. I understand that in your case, you only need to solve your problem and don't need to sell your software.
But when offering software on the market, you have to push the parameters that are possible with the controls to their limits.
It was just that, after a long time, I had to make some significant changes to a FW-program again, and I already had to look up the smallest syntax settings.
I was glad to have AUTOCODE.
Autocode uses the FIVEWIN.CH files and is therefore up to date.
The first post about AUTOCODE was on Thu Apr 22, 2010, 10:49 pm:
autoCode5 – the timesaver. And that's exactly what it's been for me for almost 15 years now.
I have also posted the source code several times.
I think you misunderstood the part about the comments. The tool always only works with the control that you copy & paste into Autocode.
It also provides a clear source code formatting.
I use it and am glad to have this "competitive advantage."
HARBOURINO – mainly for mod harbour – which also doesn't interest anyone, is an even bigger "timesaver" and enables programs and programming that a beginner otherwise wouldn't be able to do.
Today, I finished the layout for the dashboard of WINHOTEL Web in terms of web technology.
I'll post screenshots later.
The Cloudflare solution for self-hosting also finds no interest. €10 and you’re securely online with a domain, have the web server on your own PC, and can access your programs via cloudflared tunnel just like with VPN from anywhere (keyword: RDP).
Best regards,
Otto
↧
To all the FW family
Wish you all a merry new year!
Roberto Chiaiese
↧
A toda la familia FW
Mis queridos compañeros, os deseo a todos SALUD durante todo el año que acabamos de estrenar. Todo lo demás es accesorio y secundario.
↧
↧
oauth for dummies
very good!
↧
Milestone Achieved: WINHOTEL as a Web Application
Happy New Year Otto!
Regards, saludos.
↧
Actualizaciones automaticas
Saludos al foro y mis mejores deseos para todos para este nuevo año 2025
He utilizado por años el magnífico sistema que propuso en su dia Biel Maimó, para las actualizaciones automáticas de nuestros programas via internet
[url:2mmh5383]https://bielsys.blogspot.com/2009/04/actualizacion-automatica-de.html[/url:2mmh5383]
Con las ultimas actualizaciones de Windows 11 y algunas de Windows 10 me encuentro con una serie de restricciones que estos sistemas van imponiendo en cuanto a seguridad
Entiendo que para actualizar un programa via internet existen almenos 2 enfoques :
1) [b:2mmh5383]Instalador externo (inno setup, nsis, ...)[/b:2mmh5383]
[list:2mmh5383] Comprobar via red que la version remota sea posterior a la version local
Bajar un programa instalador, que elimine nuestra app exe, escriba la nueva y lance de nuevo nuestro programa
Para ello, dicho instalador preguntará al usuario si acepta y que necesita cerrar el programa en ejecución para poder proceder
Si el usuario deniega, entonces la actualización no prospera
Un ejemplo lo tenemos con las actualizaciones del editor Notepad++, que nos avisa de una nueva versión pero que si no la aceptamos, no se actualiza
Como ventaja al aceptar la nueva instalación, es que el proceso se podrá realizar sin problemas de firewall, advertencias, etc[/list:u:2mmh5383]
[b:2mmh5383]2) Actualizar a la 'Biel'[/b:2mmh5383]
[list:2mmh5383] Comprobar por FTP si existe nueva version (por ejemplo, por comparacion de fecha del exe y tamaño)
Bajar por FTP el exe del programa renombrado, por ejemplo anteponiendo "_"
Lanzar un ejecutable con ShellExecute (Biel lo escribe en C) y al mismo tiempo cerrar con un PostQuitMessage nuestro programa en ejecucion
El anterior exe borra el programa en ejecución, renombra el programa bajado quitando "_" inicial y llama a ejecutar la nueva versión
Hasta ahora, este sistema aportaba la ventaja de que las actualizaciones no dependen de la aceptacion del usuario
[/list:u:2mmh5383]
Todas las operaciones del metodo 2 activan varias alertas al usuario, hay que autorizar en el firewall que se puedan ejecutar los exe
Cada vez los sistemas Windows son más restrictivos con estas prácticas, hay que dar muchas explicaciones a los usuarios, plantearse firmar digitalmente nuestros programas, etc
En definitiva, abro debate... como actualizan sus programas ?
Saludos
↧
Stored Procs + Tdolphin
Muchas Gracias Antonio
Saludos
↧
↧
Xbrowser keeps in a continious loop
I use xbrowser for debugging.
When I use this :
oKassa = TGet object
@ dialog->top ,dialog->left GET oKassa VAR hKassa["SALDO"] SIZE hDialog["BREEDTE"],hDialog["HOOGTE"] PIXEL RIGHT FONT oFontGet COLORS CLR_GET,CLR_GETBACK OF oTarget UPDATE
xbrowser(oKassa)
I see all object items and can scroll. But when it comes on
21 bDelete : it will ask to Delete the control. You can say Yes or No but it will stay in a continious loop until you kill the program.
Can someone try this and see if it is a general thing ?
↧
to Excel : using Array and "paste" it
Dear Nage
[code=fw:dgsi24zb][/code:dgsi24zb]
this problem has been resolved?
Many thanks
Marco
↧
Using Tget and Cuebanner
git clone
cd Customer-dialog
go32.bat
Excellent!!!
Many thanks Silvio!
↧
OpenAI vision API from FWH
[b:2qkytkj0]Next[/b:2qkytkj0]: our [b:2qkytkj0]first AI Agent[/b:2qkytkj0] demo
↧
↧
Por qué el oDLG cambia de color?
Prueba asi:
[code=fw:2qazuomp][/code:2qazuomp]
la función ResAllFree() era solo para 16 bits. En 32 bits ya no es necesaria pues Windows 32/64 libera todos los recursos.
function ResAllFree() ; return nil
↧