Resolved How To Get The Value From Ocx Control

[Pramod Nair]

I am using Microsoft Date and Time picker (SP6) for Date selection on standard window. When i use to get its selected date using (SCREEN-VALUE) it returns nothing. I displayed a message it shows (?). Can i use this ocx control in normal window or i have to use smart window for this. I have done a lot on my window but this date control putting me into trouble.

Help required.

 

[Osborne]

Are you trying to get the value selected in the control? If so, then this should work:

MESSAGE chCtrlFrameTDDatePicker:DTPicker:Value VIEW-AS ALERT-BOX.

 

[Pramod Nair]

Are you trying to get the value selected in the control? If so, then this should work:

MESSAGE chCtrlFrameTDDatePicker:DTPicker:Value VIEW-AS ALERT-BOX.

Hi Osborne
I am trying to get the control value from another button's choose trigger. While checking the syntax you mentioned is giving an error. "Unknown attribute DTPicker used in widget:attribute phrase.(3406)"

 

[Osborne]

DTPicker is the name of the OCX control and it is likely you have it named differently - maybe even the control frame is also a different name. If you change to the name(s) you have it should work. If not try this:

MESSAGE DTPicker:DATETIME VIEW-AS ALERT-BOX.

 

[Pramod Nair]

DTPicker is the name of the OCX control and it is likely you have it named differently - maybe even the control frame is also a different name. If you change to the name(s) you have it should work. If not try this:

MESSAGE DTPicker:DATETIME VIEW-AS ALERT-BOX.

my ocx control Name is DTPicker according to the property and when i access its trigger by CTRL+S shows
CtrlFrame DTPicker.

 

[Osborne]

Do any of these work?:

MESSAGE CtrlFrame:DTPicker:Value VIEW-AS ALERT-BOX.

MESSAGE DTPicker:Value VIEW-AS ALERT-BOX.

 

[Pramod Nair]

my ocx control Name is DTPicker according to the property and when i access its trigger by CTRL+S shows
CtrlFrame DTPicker.

No both of them shows error i.e. The first one shows Unknow attribute what i written in my previous reply and the second one shows Unknown Variable or field (if Only giving DTPicker). and this time i took new control and did not changed the name nor in previous control.

 

[Osborne]

Do you have a variable like this?:

DEFINE VARIABLE chDatePicker AS COM-HANDLE NO-UNDO.

And an internal procedure called "initialize-controls" which does something like this?:

ASSIGN chDatePicker = chCtrlFrame:DTPicker.

If so, does this work?:

MESSAGE chDatePicker:Value VIEW-AS ALERT-BOX.

 

[Pramod Nair]

Do you have a variable like this?:

DEFINE VARIABLE chDatePicker AS COM-HANDLE NO-UNDO.

And an internal procedure called "initialize-controls" which does something like this?:

ASSIGN chDatePicker = chCtrlFrame:DTPicker.

If so, does this work?:

MESSAGE chDatePicker:Value VIEW-AS ALERT-BOX.

Oh great...... Yes this works. Loads of thanks Osborne.

 

[Osborne]

Good news. I totally forgot that when working with OCX controls you have to use COM-HANDLES!

 

[Pramod Nair]

Good news. I totally forgot that when working with OCX controls you have to use COM-HANDLES!

Osborne
I am getting Date and Time both as i only need Date What to do?

 

[Osborne]

This should just give the date:

MESSAGE DATE(chDatePicker:Value) VIEW-AS ALERT-BOX.

 

[Pramod Nair]

Thanks a lot Osborne.

 

[Pramod Nair]

Thanks a lot Osborne.

I need one more help that is i have to extract time also without date from the control.

 

[Osborne]

Others may have better solutions as the only ones I know of are these and the last one is .NET:

Progress KB - How to extract the TIME portion from a DATETIME or DATETIME-TZ field

MESSAGE "Hour =" CAST(BOX(chDatePicker:Value),System.DateTime):Hour SKIP
  "Minute =" CAST(BOX(chDatePicker:Value),System.DateTime):Minute SKIP
  "Second =" CAST(BOX(chDatePicker:Value),System.DateTime):Second VIEW-AS ALERT-BOX.

 

[Pramod Nair]

Others may have better solutions as the only ones I know of are these and the last one is .NET:

Progress KB - How to extract the TIME portion from a DATETIME or DATETIME-TZ field

MESSAGE "Hour =" CAST(BOX(chDatePicker:Value),System.DateTime):Hour SKIP
  "Minute =" CAST(BOX(chDatePicker:Value),System.DateTime):Minute SKIP
  "Second =" CAST(BOX(chDatePicker:Value),System.DateTime):Second VIEW-AS ALERT-BOX.

I have character variable which has selected date now i have extracted the date part as you said but to extract time will the above given soln work or any other way to do.

 

[Osborne]

As per the Progress article, the following will assign a character variable the current time:

DEF VAR tsdate AS DATETIME NO-UNDO.
DEF VAR vTime AS CHARACTER NO-UNDO.

tsdate = DATETIME(TODAY, MTIME).
vTime = STRING(INTEGER(TRUNCATE(MTIME(tsdate) / 1000, 0)), "HH:MM:SS").
MESSAGE vTime VIEW-AS ALERT-BOX.

So for the Date Time picker time just assign tsdate = chDatePicker:Value.

 

[Pramod Nair]

As per the Progress article, the following will assign a character variable the current time:

DEF VAR tsdate AS DATETIME NO-UNDO.
DEF VAR vTime AS CHARACTER NO-UNDO.

tsdate = DATETIME(TODAY, MTIME).
vTime = STRING(INTEGER(TRUNCATE(MTIME(tsdate) / 1000, 0)), "HH:MM:SS").
MESSAGE vTime VIEW-AS ALERT-BOX.

So for the Date Time picker time just assign tsdate = chDatePicker:Value.

Thanks again Osborne.