FiveTech Software tech support forums

SYSREFRESH():

• Evitar el estado de "No responde" (Not Responding): Cuando el programa se queda bloqueado en un bucle DO WHILE intensivo (como una reindexación, una importación de XML/NFe o un cálculo complejo), Windows interpreta que la aplicación se ha bloqueado si la cola de mensajes no se vacía ...

Tal vez,


cSql := "UPDATE centrocosto SET nombre_cc = " + oCon:SqlTimeStamp(ALLTRIM(cDescri)) + " WHERE codigo_cc = " + cCodigo
oCon:Execute( cSql )

ó

oRS := oCon:RowSet( "SELECT codigo_cc, nombre_cc FROM centrocosto WHERE codigo_cc = " + xValue )


oRS := oCon:RowSet( "SELECT * FROM centrocosto ...

Resumen de diferencias:


Característica SysWait() Wait() / Inkey()

Entorno recomendado Interfaces Gráficas (GUI / FiveWin) Modo Consola / Procesos en lote

Estado de la Pantalla Mantiene la ventana activa y se repinta Puede congelar el repintado de la interfaz

Uso de CPU Optimizado para ceder ...

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 - [email protected] - 30/09/2026. - Version: 2.3

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