FiveTech Software tech support forums

Prueba este ejemplo, para ver si te sirve:
#include "fivewin.ch"

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

function Main()

local aImages, oWnd, oFont, oBrush, oBrw, oImage

FW_SetUnicode( .t. )
HB_SETCODEPAGE( "UTF8" ) // Harbour (not xHarbour) to ...

Hola Willy, como llamas a los Store?
Yo lo hago así y funciona: Uso Dolphin pero intuyo que debe ser igual en la librería nativa

Feliz cumpleaños Maestro!!!

Ruben, puedes ponerle gradiente en el FOLDER y tambien a cada dialogo que incluyes en cada opcion del FOLDER

#include "Fivewin.ch"
Function Main()
LOCAL oDlg1, oFld, oFont, oBrush, oGet := ARRAY (4), oBot := ARRAY(2), aVar := ARRAY(4), lRta := .f.
afill(aVar, space(10))

DEFINE FONT oFont NAME ...

Param 1: C "SELECT * FROM nfsaida AS nf LEFT JOIN pedidos AS p ON (nf.chave=p.chave) LEFT JOIN clientes AS c ON (nf.cliente = c.codigo) WHERE IF(nf.filialfiscal!=0,nf.filialfiscal,nf.filial) = 1 AND nf.emissao BETWEEN '2024-11-01' AND '2024-11-30' AND COALESCE(nf.notaservico, 0 ) = 0 ORDER BY ...

Esto no me produce error:
#include "FiveWin.ch"
#include "xBrowse.ch"
#include "tdolphin.ch"

function Main()
LOCAL oForm, oServer, oQry, oBrw
CONNECT oServer HOST 'localhost' ;
USER 'root' ;
PASSWORD 'miclave' ;
PORT 3306 ;
FLAGS 0;
DATABASE 'test'
oQry := oServer:Query('SELECT p.chave as ...

Moving from DBF to MySql is not only a question of can access database on-line. MySql is stronger, safer and thanks to Mr Rao's work, easier to use than DBF.

Eso sin dudas, MySql y MariaDB nos dan muchas herramientas para la optimizacion del manejo de los datos, que con dbf serían tarea del ...

Prueba de esta forma:

#include "FiveWin.ch"
#include "xBrowse.ch"
#include "tdolphin.ch"
function Main()
LOCAL oForm, oServer, oQry, oBrw
CONNECT oServer HOST 'localhost' ;
USER 'root' ;
PASSWORD 'miclave' ;
PORT 3306 ;
FLAGS 0;
DATABASE 'test'
oQry := oServer:Query('SELECT p.chave as chave ...

Willi, hecha un vistazo aquí:
https://bitingenieria.com.ar/sdk-mercadopago/
Posible es posible, hay que hacer el programa o pagar por la librería.
No se si Mercado Pago estará disponible en Peru.

Prueba así:

#include "Fivewin.ch"
#include "print.ch"
FUNCTION Main()
LOCAL oPrn, i, oFont
DEFINE FONT oFont NAME "ARIAL" SIZE 60,120
FOR i := 1 TO 5
PRINT oPrn ;
NAME "Pdf Nro "+str(i,2) ;
FILE "pdf"+STR(i,1)+".pdf" PREVIEW
oPrn:SetPage(5) // LEGAL
oPrn:SetPortrait() //Vertical
PAGE ...

Puedes cambiar
oBrw:bClrStd := {|| { iif(empty(_ActxCoe->FecAct),CLR_GREEN,CLR_RED),CLR_WHITE } }
oBrw:bclrSel := {|| { iif(empty(_ActxCoe->FecAct),CLR_GREEN,CLR_RED),CLR_WHITE } } // color del focus
Por esto:
oBrw:bClrStd := {|| { iif(empty((cAlias)->FecAct),CLR_GREEN,CLR_RED),CLR_WHITE } }
oBrw ...

Armando, en algun momento le haces oRsBit:End() ?
No uso ADO pero en Dolphin lo hago así como vos y funciona bien

**Editado** (Perdon, no habia visto que ya lo habias solucionado)

Una idea:
REPORT oReport ;
TITLE "*** LISTADO DE PRUEBA ***","","FiveTech Software","" ;
HEADER "Fecha: "+dtoc(date())+space(44)+"Hora: "+time() ;
FOOTER "Página: "+str(oReport:nPage,3) PREVIEW

GROUP ON Customer->State ;
HEADER " " ;
FOOTER "Total Estado "+oReport:aGroups[1]:cValue+" "+STR ...

bEditValid es un metodo de la clase TXBrwColumn no de la clase TXBrowse
Debes ponerlo a cada columna que desees

Muchas gracias por compratirlo Marcelo