topic-10747

Posts: 1074

Joined: Fri Oct 07, 2005 01:56 PM

DISP_E_MEMBERNOTFOUND: PASTE
Posted: Wed Apr 16, 2008 04:14 PM

Estimados

En ocasiones sale este error

Application
===========
   Path and name: C:\winvent\wcta.exe (32 bits)
   Size: 4,358,656 bytes
   Time from start: 0 hours 3 mins 48 secs 
   Error occurred at: 16/04/2008, 12:05:15
   Error description: Error 28949508/3  DISP_E_MEMBERNOTFOUND: PASTE
   Args:

Stack Calls
===========
   Called from: win32ole.prg => TOLEAUTO:PASTE(0)
   Called from: TSBROWSE.PRG => TSBROWSE:EXCELOLE(3888)
   Called from: General.PRG => (b)MENU_TSB(1096)

viendo los fuentes

Code: Select all Collapse

      IF Len( cText ) > 20000
         oClip := TClipBoard():New()
         oClip:Clear()
         oClip:SetText( cText )
         cCell := "A" + Alltrim( Str( nStart ) )
         oRange := oSheet:Range( cCell )
         oRange:Select()
         oSheet:Paste() // aqui se produce el error
         oClip:End()
         cText := ""
         nStart := nLine + 1
      EndIf

Como evitar que se caiga el sistema cuando se produce el error, ya que aveces sale....

desde ya gracias...

Saludos
Patricio

__________________________________________________________________
Version: Harbour 3.2.0dev (r1307082134),Compiler: Borland C++ 5.8.2 (32-bit)
PCode version: 0.3, FWH 13.2
http://www.sialm.cl

César E. Lozada

Posts: 128

Joined: Wed Oct 26, 2005 12:18 PM

DISP_E_MEMBERNOTFOUND: PASTE
Posted: Wed Apr 16, 2008 09:31 PM

Lo confirmo. Es un error aleatorio al hacer Paste. El Sysrefresh() después del Paste lo reduce pero no lo elimina.

¿Alguien tiene una alternativa?

César Lozada

Adolfo

Posts: 883

Joined: Tue Oct 11, 2005 11:57 AM

DISP_E_MEMBERNOTFOUND: PASTE
Posted: Wed Apr 16, 2008 09:50 PM

Holas

El error ocurre cuando se utiliza el mismo exe varias veces ?
Si se recompila completamente el exe, sucede ?
Se presenta si esta activo el firewall o el antivirus ?

y que version de xharbour, y FWH usan.

a ver si le encontramos la vuelta...

DESDE CHILE
Adolfo

;-) Ji,ji,ji... buena la cosa... "all you need is code"

http://www.xdata.cl - Desarrollo Inteligente
----------
Asus TUF F15, 32GB Ram, 2 * 1 TB NVME M.2, GTX 1650

Patricio Avalos Aguirre

Posts: 1074

Joined: Fri Oct 07, 2005 01:56 PM

DISP_E_MEMBERNOTFOUND: PASTE
Posted: Wed Apr 16, 2008 10:18 PM

Hola

Mientras se encuentra la solución, para que no se caiga

Code: Select all Collapse

TRY
  oSheet:Paste()
CATCH
   MsgInfo( "No se puede pegar datos en la planilla" + CRLF + CRLF + "Error PASTE", "Error" )
END

Saludos
Patricio

__________________________________________________________________
Version: Harbour 3.2.0dev (r1307082134),Compiler: Borland C++ 5.8.2 (32-bit)
PCode version: 0.3, FWH 13.2
http://www.sialm.cl

lubin

Posts: 467