FiveTech Software tech support forums

My best wishes for his soon recovery!

Me pasaba lo mismo.
Le quité la clausula ON RESIZE y ya no se sale del sistema.

Antonio, te envié el pago de mi inscripcion por Wsp

Saludos

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 ...