Page 2 of 3
Re: Trying Tgantt Fivetech class
Posted:
Tue Jul 31, 2012 6:09 pmby 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
Re: Trying Tgantt Fivetech class
Posted:
Tue Jul 31, 2012 7:01 pmby Antonio Linares
Jose,
You have to use the revised Class TGantt published in my previous post
Re: Trying Tgantt Fivetech class
Posted:
Tue Jul 31, 2012 8:54 pmby 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
Re: Trying Tgantt Fivetech class
Posted:
Wed Aug 01, 2012 12:02 amby 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
Re: Trying Tgantt Fivetech class
Posted:
Wed Aug 01, 2012 12:13 amby 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 Expand view
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 ...
Re: Trying Tgantt Fivetech class
Posted:
Thu Aug 02, 2012 9:05 amby ShumingWang
An other Ganntt sample made by other software:
Re: Trying Tgantt Fivetech class
Posted:
Thu Aug 02, 2012 10:02 amby Antonio Linares
Jose,
Please copy the source code of the new gantt.prg at the bottom of silvio.prg and try it again
Re: Trying Tgantt Fivetech class
Posted:
Thu Aug 02, 2012 2:07 pmby j.fmagalhaes
Antonio
Resulted with new copy. It's okay.
thank you
Jose Magalhaes
Re: Trying Tgantt Fivetech class
Posted:
Fri Aug 03, 2012 1:55 pmby 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.
Re: Trying Tgantt Fivetech class
Posted:
Fri Aug 03, 2012 4:59 pmby Antonio Linares
Andres,
Are you testing the example that I have posted here ?
viewtopic.php?p=132837#p132837
Re: Trying Tgantt Fivetech class
Posted:
Fri Aug 03, 2012 5:32 pmby 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 :
Re: Trying Tgantt Fivetech class
Posted:
Sun Aug 05, 2012 11:13 amby 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.
Re: Trying Tgantt Fivetech class
Posted:
Thu Aug 09, 2012 5:37 pmby Eoeo
Any solution ?
Re: Trying Tgantt Fivetech class
Posted:
Thu Aug 16, 2012 9:52 amby 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
Re: Trying Tgantt Fivetech class
Posted:
Fri Aug 17, 2012 8:14 pmby 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