FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour Actualizar xBrowse con un Clic del rat贸n?
Armando
Posts: 3358
Joined: Fri Oct 07, 2005 08:20 PM
Actualizar xBrowse con un Clic del rat贸n?
Posted: Fri Aug 18, 2023 01:06 AM

Saludos amigos del foro:

Es posible actualizar la celda de un xBrowse (FastEdit) con solo un clic del rat贸n?

Pretendo que con un solo clic se actualice la celda con el valor que traigo

en una variable.

No me vale utilizar el RETURN para entrar a la celda, teclear el valor y luego RETURN

para salir de la celda editada.

Saludos y muchas gracias de antemano

SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero
carlos vargas
Posts: 1789
Joined: Tue Oct 11, 2005 05:01 PM
Re: Actualizar xBrowse con un Clic del rat贸n?
Posted: Fri Aug 18, 2023 02:07 AM

Armando, y como truco el copy/paste no te funcionara?

si no estoy mal el xbrowse tiene m茅todos para pegar el contenido del portapapeles a una celda.

Salu2

Carlos Vargas

Desde Managua, Nicaragua (CA)
Armando
Posts: 3358
Joined: Fri Oct 07, 2005 08:20 PM
Re: Actualizar xBrowse con un Clic del rat贸n?
Posted: Fri Aug 18, 2023 02:53 AM

Carlos:

Suena bien, agradecer茅 un ejemplo pues a煤n soy 帽o帽o en el tema.

Mientras tanto, voy a buscar en el foro.

Saludos

SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero
nageswaragunupudi
Posts: 10733
Joined: Sun Nov 19, 2006 05:22 AM
Re: Actualizar xBrowse con un Clic del rat贸n?
Posted: Fri Aug 18, 2023 12:40 PM
Code (fw): Select all Collapse
oCol:VarPut( newValie _
For pasting initially set
Code (fw): Select all Collapse
oBrw:lCanPaste := .t.
Then, you can copy any text any where and then press Ctrl-V in the active cell. The value is pasted and browse updated.
This applies even for pasting images in memo fields.
Regards



G. N. Rao.

Hyderabad, India
cmsoft
Posts: 1344
Joined: Wed Nov 16, 2005 09:14 PM
Re: Actualizar xBrowse con un Clic del rat贸n?
Posted: Fri Aug 18, 2023 03:26 PM
Then, you can copy any text any where and then press Ctrl-V in the active cell. The value is pasted and browse updated.
This applies even for pasting images in memo fields.
Aprovechado el hilo, como deber铆a definirse si quiero hacerlo con un Xbrowse con Array?
Salu2
Cesar Gomez
https://www.bcnsoft.com.ar
https://www.pedidosbcn.com
Armando
Posts: 3358
Joined: Fri Oct 07, 2005 08:20 PM
Re: Actualizar xBrowse con un Clic del rat贸n?
Posted: Fri Aug 18, 2023 03:44 PM

Mr. Rao:

Thank you so much, I'll try it.

With best regards

SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero
nageswaragunupudi
Posts: 10733
Joined: Sun Nov 19, 2006 05:22 AM
Re: Actualizar xBrowse con un Clic del rat贸n?
Posted: Fri Aug 18, 2023 05:43 PM
Aprovechado el hilo, como deber铆a definirse si quiero hacerlo con un Xbrowse con Array?
Code (fw): Select all Collapse
function XbrPaste()

聽 聽local aData := { { "olga 聽 聽 ", MEMOREAD( "c:\fwh\bitmaps\olga1.jpg" ) }, ;
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 { "Two 聽 聽 聽", "" }, { "Three 聽 聽 聽", "" } }

聽 聽XBROWSER aData FASTEDIT SETUP ( ;
聽 聽 聽 oBrw:lCanPaste 聽 聽:= .t., ;
聽 聽 聽 oBrw:nRowHeight 聽 := 100, ;
聽 聽 聽 oBrw:aCols[ 2 ]:cDataType:= "P" )

return nil
Regards



G. N. Rao.

Hyderabad, India
cmsoft
Posts: 1344
Joined: Wed Nov 16, 2005 09:14 PM
Re: Actualizar xBrowse con un Clic del rat贸n?
Posted: Fri Aug 18, 2023 08:31 PM

Excelente, como siempre Mr. Rao.

Muchas gracias!

Consulta. Si el arreglo inicial esta vacio, puede ser que no me deje pegar?

Salu2
Cesar Gomez
https://www.bcnsoft.com.ar
https://www.pedidosbcn.com
cmsoft
Posts: 1344
Joined: Wed Nov 16, 2005 09:14 PM
Re: Actualizar xBrowse con un Clic del rat贸n?
Posted: Fri Aug 18, 2023 09:03 PM
Si lo quiero hacer desde un xbrowse por codigo me da este error
Code (fw): Select all Collapse
Error description: Error BASE/44 聽Assigned value is wrong class: TXBRWCOLUMN:HEDITTYPE
聽 聽Args:
聽 聽 聽[ 聽 1] = C 聽 P

Stack Calls
===========
聽 聽Called from: 聽=> TXBRWCOLUMN:_HEDITTYPE( 0 )
聽 聽Called from: .\source\classes\XBROWSE.PRG => TXBRWCOLUMN:_NEDITTYPE( 15905 )
聽 聽Called from: prueba.prg => MAIN( 19 )
Con este codigo
Code (fw): Select all Collapse
#include "Fivewin.ch"
#include "xbrowse.ch"
*****************************************************************
** Importar Articulos
FUNCTION Main()
LOCAL oDlg1, acor:= ARRAY(4), mrta:=.F., oBot1, oBot2, oBrwTmp,;
聽 聽 聽 aCols := {{0,SPACE(50),0,0,0,0,0,0,""}},;
聽 聽 聽 i, cError, cSql,cSql2
聽 聽 聽 聽
DEFINE DIALOG oDlg1 TITLE "Importar" FROM 03,15 TO 35,140
聽 聽@ 20, 05 XBROWSE oBrwTmp SIZE 465,180 pixel OF oDlg1 ARRAY aCols ;
聽 聽 聽 HEADERS "Codigo", "Descripcion","Costo","Utilidad","Precio Venta","Stock","Depto","IVA","Foto";
聽 聽 聽 COLUMNS 1, 2 ,3, 4, 5,6,7,8, 9;
聽 聽 聽 SIZES 60,250,70,70,70,50,50,50,100;
聽 聽 聽 CELL LINES NOBORDER FASTEDIT
聽 聽WITH OBJECT oBrwTmp
聽 聽 聽 :lCanPaste 聽 聽:= .t.
聽 聽 聽 :nRowHeight 聽 := 100
聽 聽 聽 :aCols[ 9 ]:nEditType 聽:= "P" 聽
聽 聽 聽 :bKeyDown := { |nKey| IF (nKey == VK_DELETE,oBrwTmp:Delete(),)} 聽 聽
聽 聽 聽 :CreateFromCode() 聽 聽 聽
聽 聽END 聽 聽 
ACTIVATE DIALOG oDlg1 CENTER 
RETURN nil
Algo estoy haciendo mal pero no puedo darme cuenta que
Salu2
Cesar Gomez
https://www.bcnsoft.com.ar
https://www.pedidosbcn.com
nageswaragunupudi
Posts: 10733
Joined: Sun Nov 19, 2006 05:22 AM
Re: Actualizar xBrowse con un Clic del rat贸n?
Posted: Fri Aug 18, 2023 09:38 PM
Not
Code (fw): Select all Collapse
 聽 聽 :aCols[ 9 ]:nEditType 聽:= "P"
Correct:
Code (fw): Select all Collapse
 聽 聽 :aCols[ 9 ]:cDataType 聽:= "P"
Regards



G. N. Rao.

Hyderabad, India
nageswaragunupudi
Posts: 10733
Joined: Sun Nov 19, 2006 05:22 AM
Re: Actualizar xBrowse con un Clic del rat贸n?
Posted: Fri Aug 18, 2023 09:52 PM
Consulta. Si el arreglo inicial esta vacio, puede ser que no me deje pegar?
Sorry, this was due to the mistake in my post.
Now corrected.
It will work now.
Set
oCol:cDataType := "P"
Regards



G. N. Rao.

Hyderabad, India
cmsoft
Posts: 1344
Joined: Wed Nov 16, 2005 09:14 PM
Re: Actualizar xBrowse con un Clic del rat贸n?
Posted: Fri Aug 18, 2023 10:44 PM
Perfecto, ahi funciona.
Tuve que agregar la clausula :nEditTypes := 1 para que permitiera editar y pegar
Code (fw): Select all Collapse
#include "Fivewin.ch"
#include "xbrowse.ch"
*****************************************************************
** Importar Articulos
FUNCTION Main()
LOCAL oDlg1, acor:= ARRAY(4), mrta:=.F., oBot1, oBot2, oBrwTmp,;
聽 聽 聽 aCols := {{0,SPACE(50),0,0,0,0,0,0,""}},;
聽 聽 聽 i, cError, cSql,cSql2
聽 聽 聽 聽
DEFINE DIALOG oDlg1 TITLE "Importar" FROM 03,15 TO 35,140
聽 聽@ 20, 05 XBROWSE oBrwTmp SIZE 465,180 pixel OF oDlg1 ARRAY aCols ;
聽 聽 聽 HEADERS "Codigo", "Descripcion","Costo","Utilidad","Precio Venta","Stock","Depto","IVA","Foto";
聽 聽 聽 COLUMNS 1, 2 ,3, 4, 5,6,7,8, 9;
聽 聽 聽 SIZES 60,250,70,70,70,50,50,50,100;
聽 聽 聽 CELL LINES NOBORDER FASTEDIT
聽 聽WITH OBJECT oBrwTmp
聽 聽 聽 :lCanPaste 聽 聽:= .t.
聽 聽 聽 :nEditTypes 聽 := 1
聽 聽 聽 :nRowHeight 聽 := 100
聽 聽 聽 :aCols[ 9 ]:cDataType 聽:= "P" 聽
聽 聽 聽 :bKeyDown := { |nKey| IF (nKey == VK_DELETE,oBrwTmp:Delete(),)} 聽 聽
聽 聽 聽 :CreateFromCode() 聽 聽 聽
聽 聽END 聽 聽 
ACTIVATE DIALOG oDlg1 CENTER 
RETURN nil
Salu2
Cesar Gomez
https://www.bcnsoft.com.ar
https://www.pedidosbcn.com
cmsoft
Posts: 1344
Joined: Wed Nov 16, 2005 09:14 PM
Re: Actualizar xBrowse con un Clic del rat贸n?
Posted: Fri Aug 18, 2023 11:20 PM
Mr. Rao, abusando de su conocimiento, como puedo hacer para que si pongo una url en una celda para que traiga una imagen, y esa imagen no existe en el servidor web, que me muestre una imagen por default (o nada), ya que sino, da error
Este es el ejemplo:
Code (fw): Select all Collapse
#include "Fivewin.ch"
#include "xbrowse.ch"
*****************************************************************
** Vista de articulos
FUNCTION Main()
LOCAL oDlg1, oBrwTmp,;
聽 聽 聽 aCols := {;
{'VIRTUOSA CLASICA', 聽1900.00, 'Carne 120 grs. Cheddar, Lechuga, Tomate y Mayonesa, Mostaza y K茅tchup. Incluye Papas Fritas.','https://bcnresto.com/img/000010/00010110.jpg'},;
{'VIRTUOSA CLASICA 2', 聽1900.00, 'Carne 120 grs. Cheddar, Lechuga, Tomate y Mayonesa, Mostaza y K茅tchup. Incluye Papas Fritas.','https://bcnresto.com/img/000010/00010114.jpg'},;
{'VIRTUOSA MIX', 聽1900.00, 'Carne 120 grs. Cheddar, Huevo Bacon y BBQ. Incluye Papas Fritas.','https://bcnresto.com/img/000010/00000020.jpg'},;
{'VIRTUOSA CHEESE ONION', 1900.00, 'Carne 120 grs. Cheddar, Cebolla Caramelizada Bacon y BBQ. Incluye Papas Fritas.','https://bcnresto.com/img/000010/00000021.jpg'},;
{'VIRTUOSA MEGA', 1900.00, 'Carne 120grs. Cheddar, lechuga, pepinos, cebolla picada y salsa mil islas. Incluye papas fritas.','https://bcnresto.com/img/000010/00000022.jpg'},;
{'VIRTUOSA NAPO', 1900.00, 'Carne 120 grs. Jam贸n, Queso, Tomate y Mayonesa. Incluye Papas Fritas.','https://bcnresto.com/img/000010/00000023.jpg'},;
{'BRAHMA 1 L.', 300.00 , 'Bien fria','https://bcnresto.com/img/000010/00000054.jpg'};
}
聽 聽 聽 聽
DEFINE DIALOG oDlg1 TITLE "Visor de productos" FROM 03,15 TO 35,140 
聽 聽@ 20, 05 XBROWSE oBrwTmp SIZE 465,180 pixel OF oDlg1 ARRAY aCols 聽;
聽 聽 聽 HEADERS "Producto", "Descripcion","Precio","Foto";
聽 聽 聽 COLUMNS 1,2,3,4;
聽 聽 聽 SIZES 250,250,100,250;
聽 聽 聽 CELL LINES NOBORDER 
聽 聽WITH OBJECT oBrwTmp
聽 聽 聽 :nRowHeight 聽 := 100 
聽 聽 聽 :aCols[4]:cDataType := "P"
聽 聽 聽 :CreateFromCode() 聽 聽 聽
聽 聽END 聽 
ACTIVATE DIALOG oDlg1 聽 
RETURN nil
El error lo da aqui
Code (fw): Select all Collapse
Error description: Error BASE/1109 聽Argument error: $
聽 聽Args:
聽 聽 聽[ 聽 1] = C 聽 base64
聽 聽 聽[ 聽 2] = U 聽 

Stack Calls
===========
聽 聽Called from: .\source\function\IMGTXTIO.PRG => WEBIMAGE( 2615 )
聽 聽Called from: .\source\function\IMGTXTIO.PRG => FW_READIMAGE( 1359 )
聽 聽Called from: .\source\classes\WINDOW.PRG => (b)TWINDOW( 602 )
聽 聽Called from: .\source\classes\WINDOW.PRG => TXBROWSE:READIMAGE( 0 )
Salu2
Cesar Gomez
https://www.bcnsoft.com.ar
https://www.pedidosbcn.com
nageswaragunupudi
Posts: 10733
Joined: Sun Nov 19, 2006 05:22 AM
Re: Actualizar xBrowse con un Clic del rat贸n?
Posted: Sat Aug 19, 2023 02:40 AM
First thing is to fix the runtime error in our library function. It is failing with non-existent URLs.

Please apply this fix in the file \fwh\source\function\imgtxtio.prg:
Please locate
Code (fw): Select all Collapse
function WebPageContents( cUrl, lText )
At the end of this function, you will see:
Code (fw): Select all Collapse
return cContents
Please change this like as:
Code (fw): Select all Collapse
return IfNil( cContents, "" )
Now, this fixes the runtime error.
Instead of getting runtime error, you will see a blank space instead of image.

Now how to use a default image?
Please wait for my next post.
Regards



G. N. Rao.

Hyderabad, India
nageswaragunupudi
Posts: 10733
Joined: Sun Nov 19, 2006 05:22 AM
Re: Actualizar xBrowse con un Clic del rat贸n?
Posted: Sat Aug 19, 2023 08:14 AM
Code (fw): Select all Collapse
FUNCTION cmsoft()
LOCAL oDlg1, oBrwTmp,;
聽 聽 聽 aCols := {;
{'VIRTUOSA CLASICA', 聽1900.00, 'Carne 120 grs. Cheddar, Lechuga, Tomate y Mayonesa, Mostaza y K茅tchup. Incluye Papas Fritas.','https://bcnresto.com/img/000010/00010110.jpg'},;
{'VIRTUOSA CLASICA 2', 聽1900.00, 'Carne 120 grs. Cheddar, Lechuga, Tomate y Mayonesa, Mostaza y K茅tchup. Incluye Papas Fritas.','https://bcnresto.com/img/000010/00010114.jpg'},;
{'VIRTUOSA MIX', 聽1900.00, 'Carne 120 grs. Cheddar, Huevo Bacon y BBQ. Incluye Papas Fritas.','https://bcnresto.com/img/000010/00000020.jpg'},;
{'VIRTUOSA CHEESE ONION', 1900.00, 'Carne 120 grs. Cheddar, Cebolla Caramelizada Bacon y BBQ. Incluye Papas Fritas.','https://bcnresto.com/img/000010/00000021.jpg'},;
{'VIRTUOSA MEGA', 1900.00, 'Carne 120grs. Cheddar, lechuga, pepinos, cebolla picada y salsa mil islas. Incluye papas fritas.','https://bcnresto.com/img/000010/00000022.jpg'},;
{'VIRTUOSA NAPO', 1900.00, 'Carne 120 grs. Jam贸n, Queso, Tomate y Mayonesa. Incluye Papas Fritas.','https://bcnresto.com/img/000010/00000023.jpg'},;
{'BRAHMA 1 L.', 300.00 , 'Bien fria','https://bcnresto.com/img/000010/00000054.jpg'};
}
聽 聽local cDefault := MEMOREAD( "c:\fwh\bitmaps\sea.bmp" )

聽 聽AEval( aCols, { |a,i| a[ 4 ] := WebPageContents( a[ 4 ] ), ;
聽 聽 聽 聽 聽 聽 聽 聽 聽If( Empty( a[ 4 ] ), a[ 4 ] := cDefault, nil ) } )

DEFINE DIALOG oDlg1 TITLE "Visor de productos" SIZE 700,700 PIXEL TRUEPIXEL RESIZABLE
聽 聽@ 20, 20 XBROWSE oBrwTmp SIZE -20,-20 pixel OF oDlg1 ARRAY aCols 聽;
聽 聽 聽 HEADERS "Producto", "Precio", "Descripcion","Foto";
聽 聽 聽 COLUMNS 1,2,3,4;
聽 聽 聽 SIZES nil, nil, 150,200;
聽 聽 聽 CELL LINES NOBORDER
聽 聽WITH OBJECT oBrwTmp
聽 聽 聽 :nStretchCol 聽 := 3
聽 聽 聽 :nRowHeight 聽 聽:= 150
聽 聽 聽 :aCols[4]:cDataType := "P"
聽 聽 聽 :CreateFromCode()
聽 聽END
ACTIVATE DIALOG oDlg1 CENTERED
RETURN nil
Regards



G. N. Rao.

Hyderabad, India
Static archive 路 New replies & topics via GitHub Discussions