Trying Tgantt Fivetech class

[j.fmagalhaes]

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]

Jose,

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

[j.fmagalhaes]

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]

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]

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: Select all

 

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]

An other Ganntt sample made by other software:

[Antonio Linares]

Jose,

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

[j.fmagalhaes]

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

[Andrés González]

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.

[Antonio Linares]

Andres,

Are you testing the example that I have posted here ?

http://forums.fivetechsupport.com/viewt ... 37#p132837

[Eoeo]

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]

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.

[Eoeo]

Any solution ?

[ShumingWang]

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

[Eoeo]

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