FiveTech Software tech support forums

Thanks friend

FWH1804

9335 oWin:FreezePanes := .t. //I put it as a comment it passes

9241 oSheet:Paste() //This is the problem

https://i.postimg.cc/qM6cvMNt/f.png When I Open the Window child I made CLASS TPaziente DATA oWin METHOD New() CLASS TPaziente .... if ::oWin == nil ::oPaziente := TClienti():New() ::oPaziente:SetOrder( "FIRST" ) ::oPaziente:GoTop() ::cTitulo := "" ...

if (oExcel:=ExcelObj())== nil
mensaje('Excel no esta instalado!!')
endif

oExcel:ScreenUpdating := .f.
oExcel:Application:DisplayAlerts:=.f.
..
..
..

// Congelamos encabezado
oWin := oExcel:ActiveWindow
oWin:SplitRow := 7
oWin:FreezePanes := .t.

Saludos
Joel Andujo

I tested this code. DEFINE TOOLBAR is not functioning if the OF <owin> clausula is directed to oReBar!? function Main()    local oWnd , oReBar , oFactor , nFactor , oBar , oMenu , oImagelist    DEFINE WINDOW oWnd TITLE "Test ReBar" ...

nageswaragunupudi wrote:May we know the Excel version of your customer?
The code works well from version 2003 onwards.

From customer :
newest version Office 2013

I will try to omit the line :

oWin:FreezePanes := .t. <--- Gives error

Or , can it be changed in another line ?

Frank

Hello, Without changing the code the last month's , one off mine custumers reports a error the last days in xbrowse:toexcel : oWin := oExcel:ActiveWindow oWin:SplitRow := 1 oWin:FreezePanes := .t. <--- Gives error Error description: Error Excel.Application:ACTIVEWINDOW/3 DISP_E_MEMBERNOTFOUND: ...

... clause, because the window and browse objects are still active. When we are using MDICHILD windows, the best place to close DBF is inside the oWin:bPostEnd codeblock. This codeblock is evaluated after the window is closed (and all controls are destroyed) Please close the DBF in the oWin:bPostEnd ...

... // xBROWSE Function XBRW_DB(nDBF,aDB,nFUN,nDES,nSRC,nSTA,nFIL,nBUT,oUSR,nSCH,nICO,bSALDO,nTAG,bCOLOR,bPOP,oFONT,bGO,nUFLT,bUKEY) Local oWIN,oICO,oXDBF,oBAR,oPOPEXP Local oBRW,nUSR:=0 Local oINS,oMOD,oCAN,oVIS,oANT,oSTA,oSRC,oFLT,oEXP Local nUNO:=StrTran(IIF(AT("/",nDES)>0,Left(nDES,Len(nDES)-2),nDES) ...

... so, oWnd:oTop:= oToolbar oWnd:oClient:= oBrowse ACTIVATE WINDOW oWnd Then to hide the toolbar: oWnd:oTop:=nil oWnd:resize() Or to show the toolbar oWin:oTop:= oToolbar oWnd:resize() Not tested, but I think that will work. Regards, James

... el PAINT que el INIT, por eso se pinta primero la imagen y luego hará lo que le digas en el INIT. ¿Has probado a hacer ON PAINT ABmpTiled(hDC,oWin,oBmp) sin tener todavía la imagen definida en el objeto oBmp?, ¿te funcionaría? Esto viene a cuento de la primera pregunta Estas preguntas son ...

Perdo, ya lo cambie oWin:bPainted := {|hDC| ABmpTiled(hDC,oWin,oBmp)} // Este lo quite y lo puse al ACTIVATE WINDOW oWin Maximized ON INIT PoneUsua() ON PAINT ABmpTiled(hDC,oWin,oBmp) VALID Cerrar() y lo hace correctamente Yo solo tengo ...

... me refiero al cambio del escritorio de windows, si no a la imagen que ponemos como fondo de nuestra aplicación. Javier, por lo visto en tu código, oWin:bPainted := {|hDC| ABmpTiled(hDC,oWin,oBmp)} esto es antes de hacer activar la ventana y aparte de eso tu defines la imagen antes. En mi caso no ...

Pedro yo lo tengo asi : DEFINE BitMap oBmp RESOURCE "LOGO_EMP" DEFINE WINDOW oWin Title "Sistema Empresarial" Icon "AAsesores" NOICONIZE //Menu MenuG() oWin:bPainted := {|hDC| ABmpTiled(hDC,oWin,oBmp)} FUNCTION ABmpTiled( hDC, oWnd, oBmp ...

... para generar y manejar el Browser, de esta forma: #include "Fivewin.ch" #include "xbrowse.ch" MEMVAR oApp CLASS TClientes DATA oWin DATA oBar DATA oBtn DATA oFont DATA cTitle DATA oBrw DATA oCol DATA oDbf DATA cAlias DATA oFr METHOD New() CONSTRUCTOR METHOD Activar() METHOD ...

... en concreto en la que depende de una variable que se le pasa, debera abrir el dialogo como NOWAIT o no. Hasta ahora lo he resuelto asi, MiFuncion(oWin,lSel) DEFINE DIALOG oDlg RESOURCE "MiVentana" OF oWin * Los objetos van aqui. * IF lSel ACTIVATE DIALOG CENTER ELSE ACTIVATE DIALOGO ...