FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexActive topicsAll discussionsLogin (GitHub)
Board index FiveWin for Harbour/xHarbour Trying Tgantt Fivetech class
j.fmagalhaes
Posts: 14
Joined: Thu Nov 11, 2010 03:02 PM
Re: Trying Tgantt Fivetech class
Posted: Tue Jul 31, 2012 06:09 PM

Antonio
I'm trying your gant class but I have this error

Application

Path and name: F:\Sdl\sdq88\Gantt\silvio.exe (32 bits)
Size: 2,210,304 bytes
Compiler version: xHarbour build 1.2.1 Intl. (SimpLex) (Rev. 9421)
FiveWin Version: FWHX 12.02
Windows version: 5.1, Build 2600 Service Pack 3

Time from start: 0 hours 0 mins 0 secs
Error occurred at: 31/07/12, 19:05:29
Error description: Warning BASE/1004 Message not found: TGANTT:SETGRIDMONTH

Stack Calls

Called from: source\rtl\tobject.prg => TGANTT:ERROR( 0 )
Called from: source\rtl\tobject.prg => TGANTT:MSGNOTFOUND( 0 )
Called from: source\rtl\tobject.prg => TGANTT:SETGRIDMONTH( 0 )
Called from: silvio.prg => MAIN( 50 )

Help
Jose Magalhaes

Antonio Linares
Posts: 44162
Joined: Thu Oct 06, 2005 05:47 PM
Re: Trying Tgantt Fivetech class
Posted: Tue Jul 31, 2012 07:01 PM

Jose,

You have to use the revised Class TGantt published in my previous post

regards, saludos

Antonio Linares
www.fivetechsoft.com
j.fmagalhaes
Posts: 14
Joined: Thu Nov 11, 2010 03:02 PM
Re: Trying Tgantt Fivetech class
Posted: Tue Jul 31, 2012 08:54 PM

AntĂłnio,
Yes, I used the class tgantt gantt.prg silvio.prg and that you put in the post today, with FWH1202 and still the same error. What am I doing wrong?
Regards
Jose Magalhaes

Eoeo
Posts: 222
Joined: Mon Jun 04, 2012 12:00 PM
Re: Trying Tgantt Fivetech class
Posted: Wed Aug 01, 2012 12:02 AM

Antonio,

Now the new class's modifies seems run ok also on test I made for Andrès G.

Only the best is to create also the Horizontal lines : can create an lValue if the user want these lines

this is a good idea because we can set a gant for one day and with horizontal lines the final user can see good the graph

Eoeo
Posts: 222
Joined: Mon Jun 04, 2012 12:00 PM
Re: Trying Tgantt Fivetech class
Posted: Wed Aug 01, 2012 12:13 AM
Antonio,

How I can make if I use two dbf

on first dbf ( xbrowse ) I have only the numbers (one field ) sample Camera

on second dbf (oGant) I have the numbers and the dates sample : Numtable, datein,datefin,state

I think I must search the number on the second dbf and show the graph


I try to make this but it not run

Code (fw): Select all Collapse
 

function AddDays( oGantt )
   local nCellWidth  := oApp():oGantt:nCellWidth
   local nCellHeight := oApp():oGantt:nCellHeight
   local oItem
   local aColors := { CLR_HRED, CLR_HGREEN, CLR_HBLUE, CLR_HCYAN, CLR_HMAGENTA, CLR_YELLOW }


    SELECT BE
    BE->(DbGotop())
    DO WHILE BE->(!EOF())
          Numero:=BE->CAMERA
          nRecBeach:=BE->(Recno())
                     SELECT RE
                     RE->(DbGotop())
                       DO WHILE RE->(!EOF())
                              IF RE->NUMTABLE=Numero
                                 oItem = oApp():oGantt:AddItem( nRecBeach, Day(RE->DATAIN ), Day( RE->DATAFIN ),;
                                          aColors[ RE->STATO ] )
                               ENDIF

                        RE->(dbSKIP())
                        enddo
                        BE->(dbSKIP())
                       end

    RE->(dbGOTOP())
     BE->(DbGotop())
return nil




Any Help please ...
ShumingWang
Posts: 474
Joined: Sun Oct 30, 2005 06:37 AM
Re: Trying Tgantt Fivetech class
Posted: Thu Aug 02, 2012 09:05 AM
An other Ganntt sample made by other software:
http://www.xtech2.top
Mobile:(86)13802729058
Email:100200651@qq.com
QQ:100200651
Weixin: qq100200651
Antonio Linares
Posts: 44162
Joined: Thu Oct 06, 2005 05:47 PM
Re: Trying Tgantt Fivetech class
Posted: Thu Aug 02, 2012 10:02 AM

Jose,

Please copy the source code of the new gantt.prg at the bottom of silvio.prg and try it again

regards, saludos

Antonio Linares
www.fivetechsoft.com
j.fmagalhaes
Posts: 14
Joined: Thu Nov 11, 2010 03:02 PM
Re: Trying Tgantt Fivetech class
Posted: Thu Aug 02, 2012 02:07 PM

Antonio
Resulted with new copy. It's okay.
thank you
Jose Magalhaes

Andrés González
Posts: 632
Joined: Thu Jan 19, 2006 10:45 AM
Re: Trying Tgantt Fivetech class
Posted: Fri Aug 03, 2012 01:55 PM

Antonio, still the gantt bars are not correct, the last one ends where it must to start. If we put the grid will appear the error.

Saludos



Andrés González desde Mallorca
Antonio Linares
Posts: 44162
Joined: Thu Oct 06, 2005 05:47 PM
Re: Trying Tgantt Fivetech class
Posted: Fri Aug 03, 2012 04:59 PM

Andres,

Are you testing the example that I have posted here ?

viewtopic.php?p=132837#p132837

regards, saludos

Antonio Linares
www.fivetechsoft.com
Eoeo
Posts: 222
Joined: Mon Jun 04, 2012 12:00 PM
Re: Trying Tgantt Fivetech class
Posted: Fri Aug 03, 2012 05:32 PM
Andrès ,

Now the sample made from Antonio seem run ok

Only if you are trying with my test sample ( that with tfsdi) there is an error because I use two file dbf and not one as Antonio used


Antonio,

you sample run ok only how we can scroll the xbrowse data and tgant together ?

I mean if I press the vertical scroll must be scroll also the xbrowse

and another .. if I scroll the Horizontal Scrollbar tgant must scroll the days


the best solution is to make a smal calendar instead of your SetGridMonth( 44.5 )

we need something of :

Andrés González
Posts: 632
Joined: Thu Jan 19, 2006 10:45 AM
Re: Trying Tgantt Fivetech class
Posted: Sun Aug 05, 2012 11:13 AM

Sorry Antonio, compiling your code, is giving me something rare because when I move the window with de mouse growing o decreasing the window, the grantt bars are not fix at all, they grow and decrease with the window, but the browse no change. Why can it happen?

Me hace una cosa rara, primero no se ajustan al browse y despues si muevo la ventana haciendola mas pequeña o mas grande las barras se hacen mas pequeñas o mas grandes y nunca se adaptan al browse. No se que puedo estar haciendo mal.

Saludos



Andrés González desde Mallorca
Eoeo
Posts: 222
Joined: Mon Jun 04, 2012 12:00 PM
Re: Trying Tgantt Fivetech class
Posted: Thu Aug 09, 2012 05:37 PM

Any solution ?

ShumingWang
Posts: 474
Joined: Sun Oct 30, 2005 06:37 AM
Re: Trying Tgantt Fivetech class
Posted: Thu Aug 16, 2012 09:52 AM

I think a simple way to do tgantt as an extend class to xbrowse like txcolumn class ,when xbrowse skip ,goup,godown,do paint/drawline ,at same time paint/drawline tgantt datarows.
Best regard!
Shuming Wang

http://www.xtech2.top
Mobile:(86)13802729058
Email:100200651@qq.com
QQ:100200651
Weixin: qq100200651
Eoeo
Posts: 222
Joined: Mon Jun 04, 2012 12:00 PM
Re: Trying Tgantt Fivetech class
Posted: Fri Aug 17, 2012 08:14 PM

Or fivetechsoft must create a test sample with :
a) calendar on top scrollable
b) a tgant graphic on middle scrollable
c) a xbrowse with data test scrollable

and all scrollable together

the Antonio 's test run but that test sampl not is a real tgant graphics

Antonio should create a test clarifier perhaps as a test Hotel Booking

Static archive · New replies & topics via GitHub Discussions