Hello

I have a problem with Ole syntax concerning Harbour

with xharbour the syntax is

       <!-- s:D --><img src="{SMILIES_PATH}/icon_biggrin.gif" alt=":D" title="Very Happy" /><!-- s:D -->ayView:Showday(::TPAR[04])

This works ok, with Harbour , compile Ok but the action is not fired

i have tried

ayView:Showday = ::TPAR[04] but i get an error (ole error)

really puzzling how Harbour interacts with ole syntax...

as an example

:ViewType = PLANPREF->VUEDEBUT this is OK in harbour the above should in theory be the same .....

:TimeLineView:BackgroundColor = ( RGB(176, 216, 255) ) works ok also

Antonio any idea ?

Thanks

Richard

Richard,

The Harbour OLE implementation invokes different code in these cases:

oDayView:Showday(::TPAR[04]) // this invokes a method

oDayView:Showday = ::TPAR[04] but i get an error (ole error) // This assign a data

So first of all we need to know it is is a data or a method. Whats the ProgId of this activex ? Once you tell me, I can inspect it here using the utility that I recently published here.

Antonio

it is not a method

it is a property (data)

Richard

Richard,

Then you should use:

oDayView:Showday = ::TPAR[04] but i get an error (ole error)

what Ole error you get ?

This is the error

Error description: (DOS Error -2147352571) WINOLE/1006 Argument error: _SHOWDAY
Args:
[ 1] = D 03/06/2013

Stack Calls

Called from: => WIN_OLEAUTO:_SHOWDAY( 0 )

Richard

What type of argument does it expect ?

Richard,

Have you tried it this way ?

oDayView:Showday( ::TPAR[ 04 ], .F. )

Antonio

oDayView:Showday( ::TPAR[ 04 ], .F. )

oDayView:Showday( ::TPAR[ 04 ], .t. )

Both have no effect as if they were completely ignored

Richard

Parameters
Day
[in] Date\DteTime object specifying the date to show in the current view.

Does this work?
oDayView:ShowDay( '#2013-10-10#' )

Note:
'#' + Transform( SToD( dDate ), "@R 9999-99-99" ) + '#' --> converts date to format accepted in ado / odbc

unfortunately no

it definitely is expectig a "date format" , here we send a character string

Error description: (DOS Error -2147352571) WINOLE/1007 Argument error: SHOWDAY
Args:
[ 1] = C #2013-10-10#

James

I have tried to set it as a date/time but no result

TTOS((STOT(DTOS(::TPAR[04]) + ::TPAR[03])) does not work

Richard

May I ask, if this is working with xHarbour ?

yes working perfect with xharbour

ayView:Showday(::TPAR[04]) tpar[04] is a date format