Con la versión FWH1802
Se sale del programa a causa del oCol:nBtnBmp:=1 la comento y funciona pero no me muestra la imagen
- Code: Select all Expand view
oCol:=oBrw:AddCol()
oCol:cEditPicture := "@!"
oCol:bStrData := { || DETA->PRODUC}
oCol:cHeader := "Producto"
oCol:nWidth:=78
oCol:AddResource('B-F2')
oCol:nBtnBmp := 1
oCol:nEditType := 5
oCol:bEditBlock := { |nRow,nCol,oCol| BuscaProd(nRow,nCol,"ITEM")}
oCol:bOnPostEdit := {|o, v, n| DETA->PRODUC:=v }
Called from GDIP_DELETEIMAGE(0)
Called from PALBMPFREE(1158) in .\source\classes\BITMAP.PRG
Called from TBTNBMP:FREEBITMAPS(1035) in .\source\classes\BTNBMP.PRG
Called from TBTNBMP:DESTROY(956) in .\source\classes\BTNBMP.PRG
Called from (b)TBTNBMP(184) in .\source\classes\BTNBMP.PRG
Called from TBTNBMP:END(0) in .\source\classes\BTNBMP.PRG
Called from TXBRWCOLUMN:END(11226) in .\source\classes\XBROWSE.PRG
Called from TXBROWSE:DESTROY(896) in .\source\classes\XBROWSE.PRG
Called from TWINDOW:HANDLEEVENT(0)
Called from TCONTROL:HANDLEEVENT(1731) in .\source\classes\CONTROL.PRG
Called from TXBROWSE:HANDLEEVENT(10504) in .\source\classes\XBROWSE.PRG
Called from _FWH(3368) in .\source\classes\WINDOW.PRG
Gracias por la ayuda.
