Former Member Absent Member.
Absent Member.
7730 views

[archive] Appointment / Scheduler / Calendar

[Migrated content. Thread originally posted on 03 January 2005]

Hi all,

I'm looking for an active-x component that allows for automatic appointment / scheduling / calendar views similar to the outlook calendar.

Does anyone have any suggestions?
0 Likes
35 Replies
Former Member Absent Member.
Absent Member.

RE: [archive] Appointment / Scheduler / Calendar

Hi J,
componentsource.com has a few listed here:

http://www.componentsource.com/Catalog.asp?fl=A210&sc=CS&bc=A100~A210~BUSFUNCCALEND&ul=en&gf=+BUSFUNCCALEND

I know of one acucorp developer who has used the Gravitybox Schedule control with success.
0 Likes
Former Member Absent Member.
Absent Member.

RE: [archive] Appointment / Scheduler / Calendar

Dan,

Do you know where I could get some sample code used to interface with the gravity box control... it looks like it will do everything I need.

thanks for you help..

Jason
0 Likes
Former Member Absent Member.
Absent Member.

RE: [archive] Appointment / Scheduler / Calendar

When I looked at this control two years ago, I did a quick acucobol sample. The sample does very little, but it's a start. The best examples are the VB sample projects that come with the component. This is what I created my acucobol sample from.
0 Likes
Former Member Absent Member.
Absent Member.

RE: [archive] Appointment / Scheduler / Calendar

Jason,

We have implemented GravityBox Schedule control. Let me know if I can help answer any questions. Go Red Raiders!

Rob
0 Likes
Highlighted
Former Member Absent Member.
Absent Member.

RE: [archive] Appointment / Scheduler / Calendar

Thanks for chiming in Rob, you were the acucobol developer I alluded to, but I didn't want to obligate you to assist. I figured you'd see this "Gravitybox" thread eventually and you would respond and sure enough you did. Thanks. 😄
0 Likes
Former Member Absent Member.
Absent Member.

RE: [archive] Appointment / Scheduler / Calendar

Rob,

Thanks for the offer I'm sure I'll have some questions. I started working with the Gravity Box controls this week...

Jason
0 Likes
Former Member Absent Member.
Absent Member.

RE: [archive] Appointment / Scheduler / Calendar

No problem, Jason. Good Luck!

Dan, you're very tactful! 🙂
0 Likes
Former Member Absent Member.
Absent Member.

RE: [archive] Appointment / Scheduler / Calendar

Rob or anyone,

I've been working with the Gravity box controls for the schedule.

Have you used the following function?

Syntax:
Function ExportHTML(oHTMLParameters As CHTMLParameters) As Boolean

Here's the an the definition of the method from the def file.

* ExportHTML
METHOD, 1610809596, @ExportHTML,
"_CHTMLParameters**" @oHTMLParameters, TYPE 16393
RETURNING "boolean", TYPE 11


Since the CHTMLParameters is a class object, how do you load it?

I'm probably missing something simple/stupid...

Thanks for the help....


Jason
0 Likes
Former Member Absent Member.
Absent Member.

RE: [archive] Appointment / Scheduler / Calendar

Here's the VB code that does the load of the CHTMLParameters...

But I don't see how to do it in COBOL.

Private Sub mnmuExportHTML_Click()

Dim oHTMLParameters As CHTMLParameters

Set oHTMLParameters = New CHTMLParameters

'Setup the schedule to be exported.
oHTMLParameters.FileName = App.Path & "\" & "sampleschedule"
oHTMLParameters.Overwrite = True
oHTMLParameters.HTMLHeader = "This is Header Text"
oHTMLParameters.HTMLFooter = "This is Footer Text"
oHTMLParameters.PageTitle = "Sample Schedule Page"
oHTMLParameters.TableOnly = False
oHTMLParameters.UseFrames = True
Call Schedule1.ExportHTML(oHTMLParameters)


thanks for any help

Jason
0 Likes
Former Member Absent Member.
Absent Member.

RE: [archive] Appointment / Scheduler / Calendar

Jason,

I haven't used this method of the control. However, it looks like you need to create the occurence of the CHTMLParamaters and then populate the various properties of that object. Then, use the ExportHTML method using the CHTMLParamaters object.

So, something sort of like this: (I haven't tried this)

01 HTML-HANDLE HANDLE OF CHTMLParamaters

. . .

CREATE CHTMLParamaters HANDLE IN HTML-HANDLE.
( not sure about above line, but don't see any other way of getting it)

MODIFY HTML-HANDLE
@FileName = "sampleschedule"
@Overwrite = 1
@HTMLHeader = "This is Header Text"
@HTMLFooter = "This is Footer Text"
@PageTitle = "Sample Schedule Page"
@TableOnly = 0
@UseFrames = 1.
MODIFY SCHED-HANDLE @ExportHTML(HTML-HANDLE).

Hope this helps. Good Luck!

Rob
0 Likes
Former Member Absent Member.
Absent Member.

RE: [archive] Appointment / Scheduler / Calendar

The key is using the CREATE verb to return a handle.


WORKING-STORAGE SECTION.
*Declare an instance of @CHTMLParameters class.
*VB: Dim oHTMLParameters As CHTMLParameters
77 oHTMLParameters HANDLE OF  @CHTMLParameters.

PROCEDURE-DIVISION.
|Instantiate an instance of @CHTMLParameters class.
|VB: Set oHTMLParameters = New CHTMLParameters
CREATE @CHTMLParameters HANDLE IN oHTMLParameters.

|Setup the schedule to be exported.
|VB: oHTMLParameters.FileName = App.Path & "\" & "sampleschedule"
MODIFY oHTMLParameters @FileName = "sampleschedule".
|VB: oHTMLParameters.Overwrite = True
MODIFY oHTMLParameters @Overwrite = 1.
|VB: oHTMLParameters.HTMLHeader = "This is Header Text"
MODIFY oHTMLParameters @HTMLHeader = "This is Header Text".
|VB: oHTMLParameters.HTMLFooter = "This is Footer Text"
MODIFY oHTMLParameters @HTMLFooter = "This is Footer Text".
|VB: oHTMLParameters.PageTitle = "Sample Schedule Page"
MODIFY oHTMLParameters @PageTitle = "Sample Schedule Page".
|VB: oHTMLParameters.TableOnly = False
MODIFY oHTMLParameters @TableOnly = 0.
|VB: oHTMLParameters.UseFrames = True
MODIFY oHTMLParameters @UseFrames = 1.

|Export the Schedule as HTML - replace Schedule1 with name of your @Schedule handle or screen section item.
MODIFY Schedule1 @ExportHTML(oHTMLParameters)
    GIVING RETURN-CODE.

0 Likes
The opinions expressed above are the personal opinions of the authors, not of Micro Focus. By using this site, you accept the Terms of Use and Rules of Participation. Certain versions of content ("Material") accessible here may contain branding from Hewlett-Packard Company (now HP Inc.) and Hewlett Packard Enterprise Company. As of September 1, 2017, the Material is now offered by Micro Focus, a separately owned and operated company. Any reference to the HP and Hewlett Packard Enterprise/HPE marks is historical in nature, and the HP and Hewlett Packard Enterprise/HPE marks are the property of their respective owners.