Hola,
Acabo de instalar FWH 1204, y estoy pasando los programas que ten铆a en versi贸n 806 a esta nueva versi贸n.
He tenido que hacer varios cambios, como:
// oHoja:= oExcel:Get( "ActiveSheet" ) cambiado por:
oHoja:= oExcel:ActiveSheet
// oExcel:Get( "ActiveWorkbook" ):Save() cambiado por:
oExcel:ActiveWorkbook:Save()
curDrive() cambiado por:
hb_curDrive()
GetCurDir() ahora devuelve tambi茅n la letra de la unidad
Un campo blob de sqlite devuelve una array en lugar de una cadena como antes.
oRs:ActiveConnection(oCon) cambiado por:
oRs:ActiveConnection:=oCon
etc.
Todo lo he podido solucionar con ayuda de este magn铆fico foro, pero me he quedado atrancado con el RMChart usado como activeX.
Obtengo este error:
En esta l铆nea:
Este es el c贸digo que uso.
Utilizo fwh 1204 con harbour 2012.05.31 y bcc582
Muchas gracias por adelantado,
Alvaro
Acabo de instalar FWH 1204, y estoy pasando los programas que ten铆a en versi贸n 806 a esta nueva versi贸n.
He tenido que hacer varios cambios, como:
// oHoja:= oExcel:Get( "ActiveSheet" ) cambiado por:
oHoja:= oExcel:ActiveSheet
// oExcel:Get( "ActiveWorkbook" ):Save() cambiado por:
oExcel:ActiveWorkbook:Save()
curDrive() cambiado por:
hb_curDrive()
GetCurDir() ahora devuelve tambi茅n la letra de la unidad
Un campo blob de sqlite devuelve una array en lugar de una cadena como antes.
oRs:ActiveConnection(oCon) cambiado por:
oRs:ActiveConnection:=oCon
etc.
Todo lo he podido solucionar con ayuda de este magn铆fico foro, pero me he quedado atrancado con el RMChart usado como activeX.
Obtengo este error:
Error description: (DOS Error -2147352570) WINOLE/1009 No exported method: GET
Args:
[ 1] = C REGION
[ 2] = N 1
En esta l铆nea:
聽 聽 聽 oChart:Region( 1 ):Caption:Titel := "Center of Gravity Limits"Este es el c贸digo que uso.
METHOD New( oWnd, nId ) CLASS TRMChartX
LOCAL cMsg := ""
聽 IF nId != NIL
聽 聽 聽 ::oControl := TActiveX():Redefine( nId, oWnd, "RMChart.RMChartX" )
聽 聽ELSE
聽 聽 聽 ::oControl := TActiveX():New( oWnd, "RMChart.RMChartX" )
聽 聽ENDIF
聽 聽IF !Empty( oWnd:hWnd )
聽 聽 聽 ::Activate()
聽 聽ENDIF
聽 聽RETURN SELF
/*-----------------------------------------------------------------------------------------------*/
METHOD Activate()
聽 聽::oChart 聽 := TOleAuto():New( ActXPdisp( ::oControl:hActiveX ) )
// 聽 ::oChart 聽 := TOleAuto():New( ActXPdisp( ::__hObj ) ) 聽 // fwh1204
聽 聽RETURN NILUtilizo fwh 1204 con harbour 2012.05.31 y bcc582
Muchas gracias por adelantado,
Alvaro