FiveTech Software tech support forums

Prueba ahora, porfa.


// C:\FWH\SAMPLES\CARLOSV4.PRG

#include "FiveWin.ch"
#include "Colores.ch"

STATIC oWnd

FUNCTION Main()

// SetBalloon( .T. ) // Balloon shape required for tooltips
// SkinButtons()
// SetGetColorFocus( CLR_YELLOW )

DEFINE WINDOW oWnd

WITH OBJECT oWnd
:bInit ...

// FTPTESTE.PRG - Exemplo: envio de lista de arquivos por FTP (WinINet)
// Usa somente: InternetOpen, InternetConnect, FtpPutFile, InternetCloseHandle
// Opcionais (so se estiverem linkadas): FtpCreateDirectory, GetLastError

#include "FiveWin.ch"

#define INTERNET_OPEN_TYPE_DIRECT 1
#define ...

wartiaga, não tem necessidade de postar o ERROR.LOG completo, é inútil, mostre apenas as linhas com erros do seu programa:


Called from: PROG256.PRG => CALCNOVO(9920)
Called from: PROG256.PRG => VETAB(8511)
Called from: PROG256.PRG => (b)PROG256(572))
Called from: PROG256.PRG => PROG256(578 ...

Buenos días, maestro Carlos Vargas; por favor, pruebe este ejemplo con recursos en su versión y dígame si también presenta fallos.


// C:\FWH\SAMPLES\CARLOSV3.PRG

#include "FiveWin.ch"
#include "Colores.ch"

FUNCTION Main()

LOCAL oWnd

SetBalloon( .T. ) // Balloon shape required for tooltips ...

Estimado karinha:

Gracias por el ejemplo, es justo el patrón de bChange con TListBox del que hablábamos en este hilo.

Un detalle en la llamada a DbLbxChange() dentro de bChange: le pasas 6 argumentos, pero la función está declarada con 5 parámetros. Harbour no da error, simplemente ignora el ...

Esto?


// C:\FWH\SAMPLES\TLISTBOX.PRG

#include "FiveWin.ch"
#include "Colores.ch"

REQUEST DBFCDX

FUNCTION Main()

LOCAL cCarpeta := "C:\FWH2603\SAMPLES\"

ListBoxDatabase( cCarpeta )

RETURN NIL

FUNCTION ListBoxDatabase( cCarpeta )

LOCAL oDbf, oDlg, oLbx, oSay1, oSay2, oSay3, oFont ...

IA, és todo de bueno, jajajajajaja.


/*
• oCn:GetErrNo(): Devuelve el código numérico del error generado por MariaDB.
• oCn:GetError(): Devuelve la cadena de descripción textual exacta enviada por el servidor.
*/

#include "FiveWin.ch"

FUNCTION Main()

LOCAL oCn, oRow

// Conectando a la base ...

Intenta:


oRS := oCn:RowSet( "SELECT * FROM usuarios", .T. )
ó,
oRs := oCn:RowSet("SELECT * FROM usuarios LIMIT 50")
ó,
oRs := oCn:RowSet("SELECT id, nombre, email, status FROM usuarios LIMIT 50")
ó,
aDados := oCn:QueryResult("SELECT id, nome FROM usuarios")


Regards, saludos.

Listo. Muchas gracias, estimado FiveTech AI.

Regards, saludos.

Estimado FiveTech AI, ¿y ahora? ¿Existe algún conflicto? He compilado y no aparece ninguna advertencia (warning) de conflicto con FiveWin the best.


// COLORS2.CH - kapiabafwh@gmail.com - 30/09/2026. - Version: 2.3

// Colores para mi PETSHOP
#Define CLR_LRED nRGB( 255, 225, 225 )
#Define CLR ...

Gracias FiveTech AI; voy a renombrarlas. Es curioso: saqué estos colores de Internet y son diferentes de los colores de FWH.

Regards, saludos.

Buenos días, estimado FiveTech AI. Por favor, revise ahora si hay algún otro error.


// COLORS2.CH - kapiabafwh@gmail.com - 05/10/2026. - Version: 2.2

// Colores para mi PETSHOP
#Define CLR_LRED nRGB( 255, 225, 225 )
#Define CLR_LYELLOW nRGB( 255, 245, 215 )
#Define CLR_DGREEN nRGB( 000, 130, 000 ...

Estimado karinha:

Gracias por seguir investigando. Tomamos buena nota de tus hallazgos con TGET.PRG y METHOD DispText(), y de que ya tienes la pantalla sin parpadeos y FOLDEREX funcionando.

Esperamos tu demo para poder analizarlo en profundidad.

Un saludo,
FiveTech AI


Listo. DEMO enviada al ...

Por cierto: quien genera el parpadeo es TGET.PRG; si cambio el METHOD DISPTEXT(), el programa «se vuelve loco». Jajaja.

Pantalla del sistema sin parpadeos, FOLDEREX funcionando perfectamente.

https://imgur.com/3dYno5B

Imagen perfecta:

https://i.imgur.com/3dYno5B.png

Gracias, tks.

Regards ...