FiveTech Software tech support forums

Thanks! Mr Rao. It works perfect!.

I asked Copilot to build a program to allow reorder rows in a list using drag & drop and xBrowse
This is the result:


#include "FiveWin.ch"
function Main()
local oDlg, oBrw, aData

aData := { ;
{ "Item 1", "Codigo 1", "Producto 1", 10, "Uni 1", 100, 5, 95 }, ;
{ "Item 2", "Codigo 2", "Producto ...

3) Is it possible to show the bitmap in a column ONLY when the cell is editable ?
In my sample, the field is only editable when i add a new row and field->codprd is empty.


i modified the Method PaintCell() of the class this way:
original code ...

2) Is it posible to trigger the :bEditBlock when F2 is pressed and only when the cell is editable ?

if nEditType is EDIT_GET_BUTTON, then when F2 is pressed, the Get is invoked.
if nEditType is EDIT_BUTTON, then when F2 is pressed the ButtonAction is invoked.
For your requirement use EDIT_BUTTON ...

1) when the F2 key is pressed the cell is edited even if :bEditWhen is FALSE

Please modify this like this:
case nKey == VK_F2 .and. ::lF2KeyToEdit .and. ! ::lReadOnly
if ! ::lEditMode
WITH OBJECT ::SelectedCol()
if :lEditable //! :lReadOnly
:Edit()
endif
END
endif


Yes, it works perfect ...

[*]Dear master Nages, a few questions:


...
WITH OBJECT oBrw
:nEditTypes := EDIT_GET
:lFastEdit := .t.
:lF2KeyToEdit := .t.
:bPastEof := { || iif(!empty(field->codprd),dbappend(), ), oBrw:RefreshCurrent() }
WITH OBJECT :aCols[ 1 ]
:nEditType := EDIT_GET_BUTTON
:nBtnBmp := :AddBitmap ...

Buen día:
Voto por el 9, 10 y 11 Set

Listo. Aquí el pago por mi inscripcion al curso.

Buenos días:
Aunque ya dí los primeros pasos con MySql y mod_harbour, hay algunos puntos del temario que me parecen interesantes, por lo que también estaría interesado en participar.
Ya sea virtual o presencial.

Estaré a la espera de novedades.

Me interesa participar.
Si es el próximo mes, es muy pronto para organizarme...

I tested this sample successfully. May be this can help someone:

#include "FiveWin.ch"

static oWebView

function Main()

local oWnd, cFile

DEFINE WINDOW oWnd TITLE "Consulta de Comprobantes" MENU BuildMenu()

oWnd:Center()
oWebView = TWebView():New(1, oWnd:hWnd )

oWebView:Navigate( "https ...

Is it posible to insert a value to an input using oWebView:InjectJavascript()?
I tried with no success.



#include "FiveWin.ch"

static oWebView

function Main()

local oWnd

DEFINE WINDOW oWnd TITLE "Consulta de Comprobantes"

oWnd:Center()
oWebView = TWebView():New(, oWnd:hWnd )

oWebView ...

Thanks Rao, now is working fine

I just updated to fwh2304
I got this error:
Error description: Error BASE/1102 Argument error: UPPER
Args:
[ 1] = N 0

Stack Calls
===========
Called from: => UPPER( 0 )
Called from: .\source\classes\TGET.PRG => TGET:INITIATE( 1316 )
Called from: => __OBJSENDMSG( 0 )
Called from: => HB ...

Hola Lubin:
Yo uso esa librería y te puedo comentar que estoy satisfecho.
En mi caso, genero archivos con mas de 65535 líneas y las otras opciones no resultaban practicas por su lentitud.
Esta librería es muy rápida y no requiere tener instalado Excel en el equipo.

Saludos