FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Editar sobre xbrowse Array Hash - SOLUCIONADO
Posts: 1816
Joined: Wed Oct 26, 2005 02:49 PM
Editar sobre xbrowse Array Hash - SOLUCIONADO
Posted: Sat Sep 28, 2019 02:02 AM
Amigos buenas noches desde aquí para todos,

Como dice el en encabezado, requiero hacer la edición directo sobre un registro en xbrowse, lo raro es que en columna de tipo carácter funciona, pero si la edición la hago sobre un campo numérico no funciona, alguien sane en que estoy fallando.

Code (fw): Select all Collapse
....

    oCol          = oBrwItno:AddCol()
    oCol:bStrData := {|| if(Len( aDevolu ) > 0 , aDevolu[oBrwItno:nArrayAt]["nombreproducto"] ,"" ) }
    oCol:cHeader  = "Descripción"
    oCol:nWidth   = 180
    oCol:nHeadStrAlign = AL_LEFT
    oCol:nDataStrAlign = AL_LEFT    
    oCol:oHeaderFont = oFont
    oCol:cFooter     = "TOTALES ------>"    
    oCol:oFooterFont = oFont3
    oCol:nEditType = EDIT_GET
    oCol:bOnPostEdit   = { | oCol, xVal, nKey | If( nKey == VK_RETURN, aDevolu[oBrwItno:nArrayAt]["nombreproducto"]:=xVal,) }

    oCol          = oBrwItno:AddCol()
    oCol:bStrData := {|| if(Len( aDevolu ) > 0 , aDevolu[oBrwItno:nArrayAt]["cantidad"] ,0 ) }
    oCol:cHeader  = "Cantidad"
    oCol:nWidth   = 55
    oCol:nHeadStrAlign = AL_RIGHT
    oCol:nDataStrAlign = AL_RIGHT   
    oCol:oHeaderFont = oFont
    oCol:nEditType = EDIT_GET
    oCol:bOnPostEdit   = { | oCol, xVal, nKey | If( nKey == VK_RETURN, aDevolu[oBrwItno:nArrayAt]["cantidad"]:=xVal,) }

....


De antemano gracielas
Saludos
LEANDRO AREVALO
Bogotá (Colombia)
https://hymlyma.com
https://hymplus.com/
leandroalfonso111@gmail.com
leandroalfonso111@hotmail.com

[ Turbo Incremental Link64 6.98 Embarcadero 7.70 ] [ FiveWin 25.01 ] [ xHarbour 64 bits) ]
Posts: 1710
Joined: Tue Oct 28, 2008 06:26 PM
Re: Editar sobre xbrowse Array Hash
Posted: Sat Sep 28, 2019 01:06 PM
Leandro intente con:

Code (fw): Select all Collapse
oCol:bEditValue:= {|| if(Len( aDevolu ) > 0 , aDevolu[oBrwItno:nArrayAt]["cantidad"] ,0 ) }
Saludos,



Adhemar C.
Posts: 1816
Joined: Wed Oct 26, 2005 02:49 PM
Re: Editar sobre xbrowse Array Hash
Posted: Mon Sep 30, 2019 04:50 PM

Gracias Adhemar :D

Saludos
LEANDRO AREVALO
Bogotá (Colombia)
https://hymlyma.com
https://hymplus.com/
leandroalfonso111@gmail.com
leandroalfonso111@hotmail.com

[ Turbo Incremental Link64 6.98 Embarcadero 7.70 ] [ FiveWin 25.01 ] [ xHarbour 64 bits) ]

Continue the discussion