Dear All,
I want to learn Fivewin and need a sample application with source codes. The application should include the following functions:
1. Item Entry
- can import and save item photo (JPG) into record
- can input unlimited item description
2. Customer Entry
3. Invocie Entry
- header and detail format with use of xBrowse
- with pop-up for lookup item or customer record
4. Invoice Printing
- with preview function
- can print graphic logo on invoice
- can print item photo on invoice
- can be saved in PDF format
- can be exported to Excel format
5. Database used
- Advantage database or just DBFCDX
- MySQL
- initially run under WinXP, then can run under Ubuntu Server
- Is ADS still alive? The latest version is 9.1 dated on 10 Dec 2008
6. Use DBF to create temp files in local harddisk
7. Use third party ActiveX if needed
- barcode printing
- Excel-like pivot table and graph ploting
8. Multi-language for display
- use of Resources
9. Scripts for generating EXE
10. If possible, the program can handle 2-byte character (Chinese) for input
In addition, what is the difference of Harbour and xHarbour? Which one is better?
If you are interested, please quote your price to wongtentwo@yahoo.com
Thanks.
Require an application to learn Fivewin
-
Antonio Linares
- Site Admin
- Posts: 37481
- Joined: Thu Oct 06, 2005 5:47 pm
- Location: Spain
- Contact:
Re: Require an application to learn Fivewin
Max,
Here we provide you a complete invoicing application developed with Harbour and FiveWin. Full source code is included,
use it to build your own applications:
http://www.fivetechsoft.com/files/Invoicing.zip
Here we provide you a complete invoicing application developed with Harbour and FiveWin. Full source code is included,
use it to build your own applications:
http://www.fivetechsoft.com/files/Invoicing.zip
Re: Require an application to learn Fivewin
dear Antonio,1000 and 1000 of thanks for ur help
i really need a sample project having reports of all types(including Billing format type) with source code .
To generate report using Billing format is very difficult we have to adjust the space it is not up to the mark.
so pls help.
Regards,
sajith
i really need a sample project having reports of all types(including Billing format type) with source code .
To generate report using Billing format is very difficult we have to adjust the space it is not up to the mark.
so pls help.
Regards,
sajith
Re: Require an application to learn Fivewin
I would suggest to use a reporting tool like FastReport ( http://forums.fivetechsupport.com/viewt ... =15#p87790 )or Easy Report.
Best regrads,
Otto
Best regrads,
Otto
********************************************************************
mod harbour - Vamos a la conquista de la Web
modharbour.org
********************************************************************
mod harbour - Vamos a la conquista de la Web
modharbour.org
********************************************************************
Re: Require an application to learn Fivewin
Dear Otto,many many thanks for ur suggestion
Fast report is a licensed version and costly too. i need a report software with free version .
regards,
sajith
Fast report is a licensed version and costly too. i need a report software with free version .
regards,
sajith
Re: Require an application to learn Fivewin
Hi ! Mr. Sajith...sajith wrote:Dear Otto,many many thanks for ur suggestion
Fast report is a licensed version and costly too. i need a report software with free version .
regards,
sajith
Greeting from Indonesia..
you have to work hard...
Fivewin+xharbour+bcc55 can do everything...
I have done with them sinced 1998.. started with clipper+blinker
You can use free source code from the master Mr. Manuel Mercado :
1. TSBROWSE
2. TSBUTTON
3. TClipPrt < easy DOS printing )
from Mr. Lira Lira _ Joel [_]
4. Class RMChartX
and more...
please write me to private email xharbour@basepronet.com
regards
Fafi
Re: Require an application to learn Fivewin
Dear fafi,many thanks for ur reply and very nice to meet u
i need to build a "Bill format report " it is very difficult to
build a report of thistype.only by adjusting space we can do it but not up to the mark.
can u pls send a sample code to build a "Bill Format Report" vary urgent.
Regards,
sajith
i need to build a "Bill format report " it is very difficult to
build a report of thistype.only by adjusting space we can do it but not up to the mark.
can u pls send a sample code to build a "Bill Format Report" vary urgent.
Regards,
sajith
Re: Require an application to learn Fivewin
Sajith..
Please.. search TClipPrt
http://forums.fivetechsupport.com/viewt ... t&start=15
regards
fafi
Please.. search TClipPrt
http://forums.fivetechsupport.com/viewt ... t&start=15
regards
fafi
Re: Require an application to learn Fivewin
Dear fafi,many thanks for ur reply
i have done a bill format report.but the "Header alignment "is not in right way.because of space adjustment.
Full Code view.
i have done a bill format report.but the "Header alignment "is not in right way.because of space adjustment.
Code: Select all
HEADER " ",;//problem "Header alignment "is not in right way.
Space(100),;
Space(100),;
Space(100),;
Space(100),;
Space(100),;
Space(100),;
Space(100),;
Space(100),;
Space(100),;
Space(100),;
Space(100),;
Space(100),;
Space(100),;
Space(100),;
Space(100),;
Space(100),;
Space(100),;
Space(100),;
Space(100),;
"Name : "+ AllTrim(oRecSet:Fields( 'EmpName' ):Value) + Space(40+(12-Len(AllTrim(oRecSet:Fields( 'EmpName' ):Value)))) +"Designation : " + oRecSet:Fields( 'Department' ):Value , ;
Space(100),;
"Mobile Bill : " + AllTrim(Str(oRecSet:Fields( 'MobileBill' ):Value)) +Space(Len(AllTrim(oRecSet:Fields( 'EmpName' ):Value))-Len(AllTrim(Str(oRecSet:Fields( 'MobileBill' ):Value))))+ Space(52+(4-Len(AllTrim(Str(oRecSet:Fields( 'MobileBill' ):Value))))) + "Mobile Allowence : " + AllTrim(Str(oRecSet:Fields( 'MobAllownce' ):Value)) ,;
Space(100),;
"Leave Days : " + AllTrim(str(oRecSet:Fields('NoOfLeaves' ):Value))+Space(Len(AllTrim(oRecSet:Fields( 'EmpName' ):Value))-Len(AllTrim(str(oRecSet:Fields('NoOfLeaves' ):Value)))) + Space(52)+ "Leave DDN : " + AllTrim(str(oRecSet:Fields('LossOffPayAmt' ):Value)),;
Space(100),;
"Date : " +AllTrim(DToC( oRecSet:Fields( 'PayDate' ):Value))+Space(Len(AllTrim(oRecSet:Fields( 'EmpName' ):Value))-(Len(AllTrim(DToC( oRecSet:Fields( 'PayDate' ):Value))))) + Space(43)+ "Account No : " + AllTrim(oRecSet:Fields('AccountNo' ):Value);
PREVIEW
Code: Select all
//------------------------------------------------------------------------------
FUNCTION GenEmpPaySlipBill(oRecSet,oDlg)
//------------------------------------------------------------------------------
LOCAL cIniFile :="Ini\FontForRpt.INI"
LOCAL oReport,oFont1, oFont2, oFont3, oPen1, oPen2,nTotal,oPrn
DEFINE FONT oFont1 NAME "ARIAL" SIZE 0,Val(AllTrim(GETPVPROFSTRING( "FONT(PaySlipBill)","FontSize" , "", cIniFile))) BOLD
DEFINE FONT oFont2 NAME "ARIAL" SIZE 0,-17 BOLD
DEFINE FONT oFont3 NAME "ARIAL" SIZE 0,-12 BOLD
DEFINE PEN oPen1 WIDTH Val(AllTrim(GETPVPROFSTRING( "PEN1","WIDTH" , "", cIniFile))) COLOR 12632256
//DEFINE PEN oPen2 WIDTH 1 COLOR CLR_HMAGENTA
oPrn:=TPrinter():New()
REPORT oReport ;
TITLE " " ;
CENTERED;
FONT oFont1,oFont2 ;
PEN oPen1 ;
HEADER " ",;//problem "Header alignment "is not in right way.
Space(100),;
Space(100),;
Space(100),;
Space(100),;
Space(100),;
Space(100),;
Space(100),;
Space(100),;
Space(100),;
Space(100),;
Space(100),;
Space(100),;
Space(100),;
Space(100),;
Space(100),;
Space(100),;
Space(100),;
Space(100),;
Space(100),;
"Name : "+ AllTrim(oRecSet:Fields( 'EmpName' ):Value) + Space(40+(12-Len(AllTrim(oRecSet:Fields( 'EmpName' ):Value)))) +"Designation : " + oRecSet:Fields( 'Department' ):Value , ;
Space(100),;
"Mobile Bill : " + AllTrim(Str(oRecSet:Fields( 'MobileBill' ):Value)) +Space(Len(AllTrim(oRecSet:Fields( 'EmpName' ):Value))-Len(AllTrim(Str(oRecSet:Fields( 'MobileBill' ):Value))))+ Space(52+(4-Len(AllTrim(Str(oRecSet:Fields( 'MobileBill' ):Value))))) + "Mobile Allowence : " + AllTrim(Str(oRecSet:Fields( 'MobAllownce' ):Value)) ,;
Space(100),;
"Leave Days : " + AllTrim(str(oRecSet:Fields('NoOfLeaves' ):Value))+Space(Len(AllTrim(oRecSet:Fields( 'EmpName' ):Value))-Len(AllTrim(str(oRecSet:Fields('NoOfLeaves' ):Value)))) + Space(52)+ "Leave DDN : " + AllTrim(str(oRecSet:Fields('LossOffPayAmt' ):Value)),;
Space(100),;
"Date : " +AllTrim(DToC( oRecSet:Fields( 'PayDate' ):Value))+Space(Len(AllTrim(oRecSet:Fields( 'EmpName' ):Value))-(Len(AllTrim(DToC( oRecSet:Fields( 'PayDate' ):Value))))) + Space(43)+ "Account No : " + AllTrim(oRecSet:Fields('AccountNo' ):Value);
PREVIEW
COLUMN TITLE 'PARTICULARS' DATA "" CENTER SIZE 30 GRID
COLUMN TITLE 'EARNINGS' DATA oRecSet:Fields('BasicSalary' ):Value,;
oRecSet:Fields('Incentives' ):Value,;
oRecSet:Fields('TAAmt' ):Value ,;
oRecSet:Fields('DAAmt' ):Value ,;
oRecSet:Fields('HRAAmt' ):Value ,;
oRecSet:Fields('OtherAdditions' ):Value ,;
"-",;
"-",;
"-",;
"-",;
"-",;
"-",;
"-",;
"-" TOTAL SIZE 15 CENTER GRID
COLUMN TITLE 'DEDUCTIONS' DATA "-" ,;
"-",;
"-",;
"-",;
"-",;
"-",;
oRecSet:Fields( 'TaxAmount' ):Value,;
oRecSet:Fields( 'PFAmount' ):Value,;
oRecSet:Fields( 'PfArrers' ):Value,;
oRecSet:Fields( 'SalaryAdvance' ):Value,;
oRecSet:Fields( 'MobileRecovery' ):Value,;
oRecSet:Fields( 'LossOffPayAmt' ):Value,;
oRecSet:Fields( 'InsuranceAmt' ):Value,;
oRecSet:Fields( 'OtherDeduction' ):Value TOTAL SIZE 15 CENTER GRID
oReport:SetTxtColor(nRGB(0,0,0),1)
oReport:lSeparator := .T.
oReport:CELLVIEW()
nTotal:=(oRecSet:Fields('BasicSalary' ):Value+oRecSet:Fields('Incentives' ):Value+oRecSet:Fields('TAAmt' ):Value+;
oRecSet:Fields('DAAmt' ):Value+oRecSet:Fields('HRAAmt' ):Value+;
oRecSet:Fields('OtherAdditions' ):Value)-;
( oRecSet:Fields( 'TaxAmount' ):Value+oRecSet:Fields( 'PFAmount' ):Value+;
oRecSet:Fields( 'PfArrers' ):Value+ oRecSet:Fields( 'SalaryAdvance' ):Value+;
oRecSet:Fields( 'MobileRecovery' ):Value+oRecSet:Fields('LossOffPayAmt' ):Value+;
oRecSet:Fields( 'InsuranceAmt' ):Value+oRecSet:Fields( 'OtherDeduction' ):Value)
oReport:SayBitmap(0.1, oReport:PhyWidth() - 2.2, "Icons\rptlogo.bmp", 2, 0.6)
nHorz := oPrn:nHorzRes()
nVert := oPrn:nVertRes()
// oReport:aFont[1]:ninpWidth=10
// oReport:aFont[1]:ninpHeight=20
oReport:nTopMargin:=18
END REPORT
oReport:bSkip := { || oRecSet:MoveNext() }
oReport:bPostGroup:={|| oReport:newLine() }
oRecSet:MoveFirst()
oReport:bPostPage :={|| Print( oReport,nTotal ) }
ACTIVATE REPORT oReport WHILE ( ! oRecSet:Eof());
ON init(oReport:Say(0,"Basic Salary",,,oReport:nRow),;
oReport:Say(0,"Incentives",,,oReport:nRow+ oReport:afont[1]:nInpHeight),;
oReport:Say(10,"Travelling Allowence",,,oReport:nRow+(oReport:afont[1]:nInpHeight*2)),oReport:Say(10,"DA",,,oReport:nRow+(oReport:afont[1]:nInpHeight*3)),;
oReport:Say(10,"HRA",,,oReport:nRow+(oReport:afont[1]:nInpHeight*4)) ,oReport:Say(10,"Other Additions",,,oReport:nRow+(oReport:afont[1]:nInpHeight*5)) ,;
oReport:Say(10,"Income Tax",,,oReport:nRow+(oReport:afont[1]:nInpHeight*6)),;
oReport:Say(10,"Provident Fund",,,oReport:nRow+(oReport:afont[1]:nInpHeight*7)),oReport:Say(10,"Provident Fund Arrers",,,oReport:nRow+(oReport:afont[1]:nInpHeight*8)),;
oReport:Say(10,"Salary Advance",,,oReport:nRow+(oReport:afont[1]:nInpHeight*9)),oReport:Say(10,"Mobile Recovery",,,oReport:nRow+(oReport:afont[1]:nInpHeight*10)),;
oReport:Say(10,"Loss of Pay Amount",,,oReport:nRow+(oReport:afont[1]:nInpHeight*11)),oReport:Say(10,"Insurance Amount",,,oReport:nRow+(oReport:afont[1]:nInpHeight*12)),;
oReport:Say(10,"Other Deduction",,,oReport:nRow+(oReport:afont[1]:nInpHeight*13)),oReport:SayBitmap(1.7,1, "Icons\RegLogo1.bmp",1.2,0.5),;
oReport:Say(15," xxxxxxxxxxx(India) Pvt Ltd",2,,oReport:nTitleUpLine + (oReport:afont[2]:nInpHeight+oReport:afont[2]:nInpHeight+oReport:afont[2]:nInpHeight+oReport:afont[2]:nInpHeight+oReport:afont[2]:nInpHeight+oReport:afont[2]:nInpHeight+oReport:afont[2]:nInpHeight)),;
oReport:newline(),oReport:Say(25," xxxxxx",2,,oReport:nTitleUpLine + (oReport:afont[2]:nInpHeight+oReport:afont[2]:nInpHeight+oReport:afont[2]:nInpHeight+oReport:afont[2]:nInpHeight+oReport:afont[2]:nInpHeight+oReport:afont[2]:nInpHeight+oReport:afont[2]:nInpHeight+oReport:afont[2]:nInpHeight)) )
oRecSet:MoveFirst()
oDlg:END()
oFont1:END()
oFont2:END()
oFont3:END()
RETURN Nil